v-dev-redis01:/root# cat x.pl
open (LOG ,"<","/root/x.out");
while (<LOG>) {
chomp;
next if ($_ eq '192.168.32.5');
print "\$_ access $_\n";
}
v-dev-redis01:/root# cat x.out
192.168.32.1
192.168.32.2
192.168.32.3
192.168.32.4
192.168.32.5
192.168.32.6
192.168.32.7
v-dev-redis01:/root# perl x.pl
$_ access 192.168.32.1
$_ access 192.168.32.2
$_ access 192.168.32.3
$_ access 192.168.32.4
$_ access 192.168.32.6
$_ access 192.168.32.7本文章为转载内容，我们尊重原作者对文章享有的著作权。如有内容错误或侵权问题，欢迎原作者联系我们进行内容更正或删除文章。
