my %ips_to_check = map {chomp; $_ => undef} <DATA>; while (my $confLine = <$in>) { if ($confLine =~ /ip4-address address="([\d\.]+)"/ and exists $ips_to_check{$1}){ $confLine =~ s{/>}{update"/>}; } print {$out} $confLine; }
Software efficiency halves every 18 months, thus compensating for Moore's Law.
In reply to Re: Return to original loop
by NetWallah
in thread Return to original loop
by stroke
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |