Hi, I am a Perl baby :-)
I was trying to write a script to replace baby to bigboy in a file:-
However the below script doesn't work Could someone help me???
#!/usr/bin/perl -w
use strict;
open (FILE_IN , $ARGV[0]) || die ("ERROR: Gimme Input pleease");
my @array_of_lines = <FILE_IN>;
foreach my $line (@array_of_lines)
{
$line =~ s/baby/bigboy/g;
}
close FILE_IN;
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
