On Tuesday 16 November 2004 11:11 pm, Alan Dayley wrote:
> 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++) {
put an equal sign in there instead:
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
--
Registered Linux User: 275424
Today's Fortune: Truth is the most valuable thing we have -- so let us
economize it.
-- Mark Twain
---------------------------------------------------
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
%20%7B%0A>%20>%20>%20%20%20/.*_(.*)%5C.JPG/;%0A>%20>%20>%20%20%20%24n3%20=%20sprintf%20%22%3.3d%22,%20(%24n);%0A>%20>%20>%20%20%20s/%24+/%24n3/;%0A>%20>%20>%20%20%20%24n++;%0A>%20>%20>%20%7D%0A>%20>%20>%0A>%20>%20>%20for(my%20%24n=0;%20%24n<%24#fromfiles;%20%24n++)%20%7B%0A>%20%0A>%20put%20an%20equal%20sign%20in%20there%20instead:%0A>%20for(my%20%24n=0;%20%24n<=%24#fromfiles;%20%24n++)%20%7B%0A>%20%0A>%20>%20>%20%20%20system%20%22mv%20%24fromfiles%5B%24n%5D%20%24tofiles%5B%24n%5D%5Cn%22;%0A>%20>%20>%20%7D%0A>%20>%0A>%20>%20It%20did%20work!%20%20Mostly.%20%20The%20last%20file%20did%20not%20get%20renamed%20but%20I%20handled%20that%0A>%20>%20manually.%0A>%20>%0A>%20>%20Thank%20you.%20%20I%20did%20not%20relish%20the%20idea%20of%20manually%20renaming%20a%20boatload%20of%0A>%20>%20files.%0A>%20>%0A>%20>%20Alan%0A>%20>%20---------------------------------------------------%0A>%20>%20PLUG-discuss%20mailing%20list%20-%20PLUG-discuss@lists.plug.phoenix.az.us%0A>%20>%20To%20subscribe,%20unsubscribe,%20or%20to%20change%20%20you%20mail%20settings:%0A>%20>%20http://lists.PLUG.phoenix.az.us/mailman/listinfo/plug-discuss%0A>%20%0A>%20%0A>%20 "Reply to this message")
(text/plain)