Renaming files in current dir

[rjuuser]

Hello,

I'm working off some sample code...

#!/bin/perl

use strict;
use warnings;

# rename - Larry's filename fixer
my $op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    my $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

I'm usign Windows XP and in the command shell

>rename.pl "s/\.PRC/.txt/" *.PRC

does not do anything. Any ideas why this is not working?

 

[KevinADC]

Here is your code and question.

#!/bin/perl

use strict;
use warnings;

# rename - Larry's filename fixer
my $op = shift or die "Usage: rename expr [files]\n";
chomp(@ARGV = <STDIN>) unless @ARGV;
for (@ARGV) {
    my $was = $_;
    eval $op;
    die $@ if $@;
    rename($was,$_) unless $was eq $_;
}

I'm usign Windows XP and in the command shell

>rename.pl "s/\.PRC/.txt/" *.PRC

does not do anything. Any ideas why this is not working?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[rjuuser]

Yes, that was my question. Do you have any ideas how should I modify this code to get it work. Your help is most appreciated.

 

[KevinADC]

Are you wanting to rename all .PRC files to .txt in some directory?

------------------------------------------
- Kevin, perl coder unexceptional!

 

[rjuuser]

Yes.