On Nov 12, 6:55 am, [EMAIL PROTECTED] (Rob Dixon) wrote: > [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 $_; > > > > }- Hide quoted text - > > - Show quoted text -- Hide quoted text - > > - Show quoted text -
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/