I did some testing but it may not work on your system.use POSIX '_exit'; use File::Find; my $search_folder = '/some/folder'; find sub { return unless -f; local @ARGV = $_; defined( my $pid = fork ) or die "Cannot fork: $!"; unless ( $pid ) { local $^I = ''; while ( <> ) { s/some text/another text/g; print; } _exit( 0 ); } }, $search_folder;
In reply to Re: Find and Replace script
by jwkrahn
in thread Find and Replace script
by Gangabass
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |