> s/192.168.1.85/10.0.0.1/g
> print FILE $_;
hello,
Here the first line you lost a ';' at the end.
The whole script I've tested fine as below:
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use strict;
print header;
print start_html("Modify Information");
my $file = '/tmp/test.txt';
open FILE,$file or die $!;
my @file = <FILE>;
close FILE;
open FILE,">",$file or die $!;
for (@file) {
s/192.168.1.85/10.0.0.1/g;
print FILE $_;
}
close FILE;
print end_html;
__END__
Hope this helps!
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
