How can I put a prefix on all of my photo files in a folder?

Question

I have OS 10. I have thousands of pictures I need to organize. I want to have a 3 digit number before each file that will be the same for multiple files. (ex. 123-01,123-02, 123-03.......) I don't want to enter it all by hand. Is there a script or program to help me?

Answer 1

OS 10 has Perl. This script will do that:

#!/usr/bin/perl

$DIR = "[YOUR DIRECTORY HERE]";
$PREFIX = "[YOUR PREFIX HERE]";

&doDir($DIR);

sub doDir {
local $myDir = shift;
chdir $myDir;
print "Checking directory \"", $myDir, "\"\n";
opendir DIR, $myDir || die("Could not open directory \"$myDir\"");
local @files = readdir DIR;
closedir DIR;

foreach $file (@files) {
next if $file eq ".";
next if $file eq "..";
local $ffn = $myDir . "/" . $file;
next if (-d $ffn); # Ignore directories
$newFile = $PREFIX . $file;
print $file, " -> ", $newFile, "\n";
rename $file, $newFile;
}
}

Answer 2

In windows you can CTRL+A or hold CTRL and click on all the files you want and then choose rename and enter the 123 etc and they will all get batched together sequentially