KAKO DA grupno preimenujete uzastopne fajlove slika na Mac OS X-u

Ja sam želeo da upotrebim QuickTime «Image Sequence» funkciju da bih napravio brz MPEG film od direktorijuma sa JPG-ovima. Problem je bio to što je u direktorijumu bilo 600 slika koje su snimane sedam meseci, tako da sam upotrebio jednostavan perl script da bih grupno preimenovao fajlove (on u stvari koristi cp, tako da originalni fajlovi ostaju netaknuti). Nakon pokretanja skripta, otvorite QuickTime, izaberite File – Open Image Sequence i selektujte 1.jpg zatim frame rate i tako dalje.

Perl je sledeći (rename.pl):

#!/usr/bin/perl

$iteration=1;

foreach my $file (`ls *.jpg`) {
    chop($file);
    system("cp $file $iteration.jpg;");
    $iteration++;
    }