Re: pb of listing and renaming files

[Scott R. Godin]

John W. Krahn wrote:

>     chomp;
>     if ( /(.*)\.BMP/ ) {
>         print "processing image $_ ..\n";
>         system( 'mv', $_, "$1.bmp" ) == 0 or die "system 'mv $_' failed:
> $?";
>         }

next unless /(.*)\.BMP$/;#anchor it to the end of the string!
print "processing image file: $_\n";

#rename will clobber existing files, so check first!
warn "File exists!: $1.bmp. skipping...\n" && next
        if -f "$1.bmp";

# use perl rather than spawning external processes!
rename( $_, "$1.bmp" ) or die "unable to rename file $_: $!"; 



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]