Wanting to continuously check if a server is losing connectivity, I quickly put togethor a small perl script to do the job.
Open the file and edit the variables to determine debug status, email details, server ip etc.
By default it sends a ping every second. If this test fails 5 times in a row, a report is sent via mail.
Disable debug for it to run silently in the background.
pingstatus.pl (2.4 KiB, 428 hits)I use 2 digital cameras, and my phone, to take pictures nearly every day. I came accross a perl script written by Lars Strand. This copied photos from CAM0001.JPG to a date formatted file such as 20070113.0900.JPG.
I decided to take this as a base, and change it into something that suited my own needs.
The script will take directories on the command-line and copy any pictures found to a target directory set within the script. It then creates a file and directory structure based on the EXIF time/date found in the JPEG.
For example,
now becomes
.. making the files easy to find and splitting them into months.
The script produces an output such as,
ExifSort v1.0 - http://www.nooblet.org/exifsort/
o Processing folder, /mnt/storage/Photos/100DSCIM/
o Processing folder, /mnt/storage/Photos/100CASIO/
CIMG0553.JPG -> 20071111_145714.jpg
CIMG0554.JPG -> 20071111_153500.jpg
CIMG0555.JPG -> 20071111_153529.jpg
CIMG0556.JPG -> 20071111_153614.jpg
CIMG0557.JPG -> 20071111_155707.jpg
CIMG0564.JPG -> 20071111_181839.jpg
CIMG0567.JPG -> 20071111_182038.jpg
CIMG0569.JPG -> 20071111_182659.jpg
CIMG0574.JPG -> 20071111_215006.jpg
CIMG0575.JPG -> 20071112_120508.jpg
CIMG0580.JPG -> 20071112_120723.jpg
CIMG0582.JPG -> 20071112_182803.jpg
o Processing complete.
12 files copied.
- 101 files the same.
The script checks modified dates and file sizes, and will compare the md5 checksum if it still isn’t sure, to know if it has already copied an existing file.
The photos folder in my family photo gallery is a direct result of this exif sorting script.
Requirements:
exifsort.pl (5.2 KiB, 1,117 hits)