Исправление animechaos, (текущая версия) :
regexp
my $result = '';
my $file = $ARGV[0];
$file && -f $file or die $!;
open (my $input, '<', $file) or die $!;
while (<$input>) {
s{(10.8.100.5/32)}{$1, 192.168.0.0/24}g;
$result .= $_;
}
close ($input);
open (my $output, '>', $file) or die $!;
print $output $result;
close ($output);
Исходная версия animechaos, :
regexp
my $result = '';
my $file = $ARGV[0];
$file && -f $file or die $!;
open (my $input, '<', $file) or die $!;
while (<$input>) {
s{(10.8.100.5/32)}{$1, 192.168.0.0/24}g;
$result .= $_;
}
close ($input);
open (my $output, '>', $file) or die $!;
print $output $result;
close ($output);