spambait wrote:Seriously though, I don't understand how this feature would be useful.
#! /usr/bin/perl
# randomize the filenames for the photo frame
$dir = $ARGV[0] || die "directory?\n";
chdir($dir) || die "chdir";
opendir(D, ".") || die "opendir";
@files = grep {/jpg/} readdir(D);
closedir(D);
# array shuffle from perl FAQ
srand;
@newfiles = ();
for (@files) {
my $r = rand @newfiles + 1;
push(@newfiles,$newfiles[$r]);
$newfiles[$r] = $_;
}
if ($#files != $#newfiles) { die "$#files != $#newfiles\n"; }
while ($old = pop @files) {
$new = pop @newfiles;
$new =~ s/^p/r/;
! -f $new || die "won't overwrite $new - check the regexp\n";
print "$old -> $new\n";
rename $old, $new || warn "rename $old -> $new: $!\n";
}