in reply to changing text in multiple files

There are many ways of skinning that cat and the only one who won't be happy will be the cat.

One way:

#!/usr/bin/perl -w ############################################# # useage: update.pl PATH # where PATH is the full path of the directory # we want to fix the files in. use strict; use Tie::File; exit(0) unless $ARGV[0]; chdir $ARGV[0] or die "Cound not chdir to " . $ARGV[0]; # # Create your own messages for above. my @files=glob("*.html"); foreach my $file(@files){ my @ry=(); tie @ry,"Tie::File",$file or die "Could not open $file"; $_=~s/2003/2004/g foreach @ry; utie @ry; }
Just one of many, many, ways of doing this.