- or download this
use strict;
use warnings;
...
}
} #Restore $^I and @ARGV to the values they had before the block
- or download this
while(my $line = $INFILE)
- or download this
{
local $^I = "";
...
}
- or download this
~/pperl_programs$ cat data.txt
DEVICE=eth0
...
IPADDR=10.9.0.200
NETMASK=255.255.0.0
GATEWAY=10.9.1.254