HJG 2006-05-25 Digital cameras typically produce pictures with filenames like "100_0001.jpg", "Dscn1234.jpg" or "Imgp0001.jpg".
For organizing a collection of photos, it is better to rename them to a filename based on a prefix and the date and time of when the picture was taken, such as "holidays_2005-12-13_14-15-16.jpg" or "gurt2005_1213_141516a.jpg".
Some software that can do such renaming:
Of course, we can do that with Tcl/Tk also, here is a simple program to do just the renaming:
# FotoRename1.tcl - HaJo Gurt - 2006-06-25
catch {console show}
wm withdraw .
set fnFormat "gurt%Y_%m%d_%H%M%S"
set dir "."
puts "# FotoRename1:"
foreach fname1 [lsort [glob -dir $dir "*.jpg"]] {
file stat $fname1 stat
array set attr [file attributes $fname1]
set fn1 [file tail $fname1]
if { $stat(type) == "file" } {
set fn2 [clock format $stat(mtime) -format $fnFormat ]
set ext ".jpg"
append fn2 $ext
if { [file exist $fn2] } {
puts "# File exists: $fn2" ;# don't overwrite existing files
} else {
puts [format "mv %-30s %s" $fn1 $fn2]
file rename -- $fn1 $fn2
}
}
}
puts "# Done."