Adding date to Photographs.

This is one of the common things that I want to do when I want to print the photos and its truely boring job to do given the fact that the Date Photo taken is already in the image taken by the Digital Photos. So finally I wrote a simple script to do this. Here it is for anyone who might be interested:

(Note you will need the program called anotate, written by me, posted earlier and exiftool)

#!/usr/bin/perl
if ($#ARGV < 0 )
{
    print \"$#ARGV \\n\";
    print \"Usage $ARGV[0] filename/dir\\n\";
    exit -1;
}
@files = `find \"$ARGV[0]\" -iname \"*jpg\" -print`;
$count = 1;
foreach $file (@files) {
    if ($flag) {
        # system(\"annotate \"$date\" \"$file\" \"$file\"\");
        # }
        # else {
        @details = `exiftool \'$file\'`;
        foreach $det (@details) {
            @words = split(/ : /, $det);
            $_ = $det ;
            chomp($words[1]);
            if (/Date\\/Time Original/ ) {
                $date =$words[1] ;

            }
        }
    }
    system(\"annotate \"$date\" \"$file\" \"$file\"\");
        
    $count ++;
}

About Amit Agarwal