perlquestion
ggrise
<p>
Hi wise perl monks, I have a question:
<br>
zentara in a prior post had supplied some code (below) which recursively replaced text in files. You called the program for example:
<br>
perl zsr.pl 'gaggle' 'geese' txt
<br>
and it works just fine replacing gaggle with geese in .txt files. However if I try to do a dos to unix file conversion
<br>
perl zsr.pl '\r\n' '\n' txt
<br>
it finds the windows "carriage return line feed" just fine but replaces that with the text \n instead of a "line feed".
<br>
if I replace the line:
<br>
$_ =~ s/$search/$replace/g;
<br>
with
<br>
$_ =~ s/\r\n/\n/g;
<br>
it does the dos to unix conversion ok
<br>
why ?
<br>
Thanks for your time.
</p>
<code>
#!/usr/bin/perl
# by zentara
# Recursively searches down thru directories replacing patterns in files.
# usage zsr 'search' 'replace' 'ext'(optional with no .)
# use '' for null string in $replace
# ex: zsr 'type1' 'series A'
use warnings;
use strict;
use File::Find;
my ($search,$replace,$ext) = @ARGV;
if (defined $ext) {$ext = ".$ext"} else {$ext = '.*'};
die "Usage : zsr 'search' 'replace' 'extension' (extension optional)\n" if ($search eq "");
find (\&wanted, ".");
sub wanted {
my $open = $_;
my $tempfile = 0;
if (!($open =~ /$ext$/i) or (-d||-B||-l)) {return}
print $open,"\n";
my $mode = (stat $open)[2];
#print $mode,"\n";
#printf "Permissions are %04o\n", $mode & 07777;
open (TEMP,">> $tempfile");
open (FH, "< $open") or die "Can't open $open: $!\n";
while (<FH>) {
$_ =~ s/$search/$replace/g;
print TEMP $_;
}
close FH;
close TEMP;
rename ($tempfile, $open) or die "Can't rename $open: $!\n";
chmod ($mode,$open) or die "Can't restore permissions to $open, possibly wrong owner: $!\n";
}
</code>