The script will rename
all files in the current directory whose names contain the first argument
by replacing that part of the filename with the second argument.
so far i could just get the file names that matches $ARGV[0].I need help on how to rename the files .For ex if argumnets are a bbb
if a file name is rename.txt
then O/P must be renbbbme.txt.
-
#!/usr/bin/perl
-
use strict;
-
-
use File::Find;
-
die"Usage:$0 filename newname\n" if @ARGV!=2;
-
my ($filename, $newname) = @ARGV;
-
-
opendir(D,".") or die "Cannot open .: $!";
-
-
my @allfiles = ();
-
foreach my $file (readdir D) {
-
next if -d "$file";
-
next if $file !~ m/[\Q$ARGV[0]\E]/;
-
push @allfiles, $file;
-
}
-
print "@allfiles\n";
-
Thanks
Mythili
