Program za preimenovanje slik

Jaz mam sicer sprogramiran program, ki mi naredi še direktorij glede na datum slikanja.

Lahko si pomagaš s tem: http://www.microsoft.com/windowsxp/usin...

Moj programček, star, zelo star (skopiraj v file recimo move2dirs.pl) daj v isti direktorij, kjer imaš slike, instaliraj perl (recimo http://www.activestate.com/)

#!/usr/bin/perl

#
# Move the files into directories based on modification date of the file
#

 
use strict;
use warnings;
use File::stat;
use File::Copy;

my $dir = '.';
print "Start:\n";
opendir(DIR, $dir) or die $!;
my $i=0;
my @FILES;

while (my $file = readdir(DIR)) {

    # Use a regular expression to ignore files beginning with a period
    next if ($file =~ m/^\./);
		next unless (-f "$dir/$file");
		next if ($file =~m/move2dirs/); # ignore the perl script - this file
	  $FILES[$i++] = "$file";
		print "$i > $file\n";

}

closedir(DIR);

my $filename;
my $sb;
my $targetdir;

my 	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
       $atime,$mtime,$ctime,$blksize,$blocks);
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst);
foreach $filename (sort @FILES)
{
	# print "$filename ..";
#	($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,
#       $atime,$mtime,$ctime,$blksize,$blocks)
#           = stat($filename);
    
    $sb = stat("$dir/$filename");
    printf "File is %s, size is %s, perm %04o, mtime %s ...", 
        $filename, $sb->size, $sb->mode & 07777,
        scalar localtime $sb->mtime;
        
    #  0    1    2     3     4    5     6     7     8
    ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
                                                localtime($sb->mtime);  
    $year+=1900;
    $mon++; $mon = sprintf( "%02d", $mon);
    $mday = sprintf( "%02d", $mday);
    $targetdir = $year . "_" . $mon . "_" . $mday;
    print "Modified: $targetdir\n";
    mkdir "$dir/$targetdir" if(!-d "$dir/$targetdir");      # Create a dir using the name of the target dir
  	move("$dir/$filename", "$dir/$targetdir/$filename") or die "move failed: $!"; # Moving file
}

http://www.snapfiles.com/get/renamemast...

Išči file rename