Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How do I change several files at the same time
Little tricks
For example, you wish to recursively modify all HTML files. There are two approaches:
In UNIX you can use the following one-liner from the shell:
Alternatively, you can use the File::Find package:
Happy coding, Cheers NEIL
In UNIX you can use the following one-liner from the shell:
Code:
find docs -type f -name "*.html" | xargs perl -i -p -e 's/foo/bar/g'Alternatively, you can use the File::Find package:
Code:
use File::Find;
sub change {
if( -f && /\.html$/ ) {
my $in = $_;
my $out = "$in.$$";
open( IN, $in ) or die;
open( OUT, ">$out" ) or die;
while( <IN> ) {
s/foo/bar/g;
print OUT;
}
close IN;
close OUT;
rename( $out, $in );
}
}
my @dirs = qw( docs );
find ( \&change, @dirs );Happy coding, Cheers NEIL