[EMAIL PROTECTED] wrote:
> Hi I am new to this group and to Perl.
>
> I am having trouble with searching and replacing a pattern in a file
> and then
> copying to a new file. I am trying to write an interactive program to
> do this
> where I input the file name for the search and replace and the file
> name
> for the modified file to be saved.
>
> Here is my code.
> Can anyone offer any suggestions?
> Thanks in advance.
>
> #!/usr/bin/perl -w
> use strict;
>
> my $input;
> my $output;
> my $search;
> my $replace;
>
> print "enter an input file name:\n";
>
> $input = <STDIN>;
> chomp ($input);
>
> print "enter an output file name:\n";
>
> $output = <STDIN>;
> chomp ($output);
>
> print "enter a search pattern:\n";
>
> $search = <STDIN>;
> chomp ($search);
>
> print "enter a replacement string:\n";
>
> $replace = <STDIN>;
>
> 's/$search/$replace/g' $input >> $output;
You need to open your input and output files, then lines from the input file,
modify them, and write them to the output file one at a time.
HTH,
Rob
#!/usr/bin/perl
use strict;
use warnings;
print "enter an input file name:\n";
my $input = <STDIN>;
chomp ($input);
print "enter an output file name:\n";
my $output = <STDIN>;
chomp ($output);
print "enter a search pattern:\n";
my $search = <STDIN>;
chomp ($search);
print "enter a replacement string:\n";
my $replace = <STDIN>;
chomp ($replace);
open my $in, '<', $input or die "Can't open '$input': $!";
open my $out, '>', $output or die "Can't open '$output': $!";
while (<$in>) {
s/\Q$search/$replace/g;
print $out $_;
}
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
