【 スクリプト改造工房 PART 5 】

[0978 nobodyさん 03/03/15 16:53 ID:???]

>>973
while (<IO>){
　if ($_ =~ /<>$ip/){
　　@y2=split(/<>/,$_);
　　if ($y2[6] ne $ip){
　　　push(@log,$_);
　　}else{
　　　push(@log,'All Clear (^-^)v');
　　}
　}else{
　　push(@log,$_);
　}
}