Solved! Re: File renaming command or script?

On Tuesday 16 November 2004 09:17 pm, Jerry Davis wrote:
>
> this is crude but it works:
>
> #!/usr/bin/env perl
>
> my @fromfiles = <*.JPG>;
> my @tofiles = <*.JPG>;
>
> my $n = 1;
> my $n3;
>
> foreach (@tofiles) {
> /.*_(.*)\.JPG/;
> $n3 = sprintf "%3.3d", ($n);
> s/$+/$n3/;
> $n++;
> }
>
> for(my $n=0; $n<$#fromfiles; $n++) {
> system "mv $fromfiles[$n] $tofiles[$n]\n";
> }

It did work! Mostly. The last file did not get renamed but I handled that
manually.

Thank you. I did not relish the idea of manually renaming a boatload of
files.

Alan
---------------------------------------------------
PLUG-discuss mailing list - PLUG-discuss@lists.plug.phoenix.az.us
To subscribe, unsubscribe, or to change you mail settings:
http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss