Tor Hildrum wrote:
>
> #!/usr/bin/perl -w
> use strict;
> use warnings;
>
> print "What file do you want to open?\n";
> chomp(my $openfile = <STDIN>);
> print "What file do you want to write to?\n";
> chomp(my $outfile = <STDIN>);
> print "What do you want to replace in the first file?\n";
> chomp(my $pattern = <STDIN>);
> print "What do you want to replace it with?\n";
> chomp(my $replace = <STDIN>);
>
> open (INFILE, "$openfile") or die "Can't open $openfile: $!\n";
> open (OUTFILE, ">$outfile") or die "Can't open $outfile: $!\n";
>
> while (<INFILE>) {
> if ($_ =~ /$pattern/i) {
> s/$pattern/$replace/;
> print OUTFILE $_; }
> else {
> print OUTFILE $_; }
> }
This can be written simply as:
while ( <INFILE> ) {
s/\Q$pattern\E/$replace/ig;
print OUTFILE;
}
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
