Rename Function

[Nova980]

Hello,

I have a file that is As2'd to me named BC090602.txt. Every week the numbers in the file name change. So next week the file will be named BC090603.txt. How can I change my script to look for the BC characters then change orginal filename to just BC.txt no matter what the numbers are? Can I use wild characters?

#!/usr/bin/perl

print "Content-type:text/html\n\n";

rename("BC090602.txt", "BC.txt") || print "Unable to change name.<br><br>";

print "Done";

exit;

 

[Kirsle]

You'll probably need to scan the directory and find files that begin with BC.

foreach my $file (<BC*.txt>) {
   rename ($file, "BC.txt");
   last; # so we only rename 1 file
}

Or to shorten it:

rename ( (<BC*.txt>)[0], "BC.txt");

Example:

[kirsle@firefly test]$ touch BC010203.txt
[kirsle@firefly test]$ touch BC010204.txt
[kirsle@firefly test]$ ll
total 0
-rw-rw-r-- 1 kirsle kirsle 0 2009-07-14 13:05 BC010203.txt
-rw-rw-r-- 1 kirsle kirsle 0 2009-07-14 13:05 BC010204.txt
[kirsle@firefly test]$ perl
rename ( (<BC*.txt>)[0], "BC.txt");
__END__
[kirsle@firefly test]$ ll
total 0
-rw-rw-r-- 1 kirsle kirsle 0 2009-07-14 13:05 BC010204.txt
-rw-rw-r-- 1 kirsle kirsle 0 2009-07-14 13:05 BC.txt

Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[Nova980]

Thanks a million, works perfectly. How can I include the current date after the BC in BC.txt? Ex:

foreach my $file (<BC*.txt>) {
   rename ($file, "BCyymmdd.txt");
   last; # so we only rename 1 file
}

 

[Nova980]

Nevermind I just used POSIX qw(strftime).

Thanks again.