|
#!/usr/bin/perl
# ip 가 같지않는것 검색 하려면...
#아래 해쉬는 ip에서 얻는값 이라 가정 합니다,...
%hash= ('103.204.112.96' => '',
'104.204.112.96' => '',
'154.204.116.96' => '',
'154.204.146.96' => ''
);
# tmp디렉토리내 화일 목록 참고용
# son-104.203.112.96
# son-104.204.112.96
# son-103.204.112.96
# son-104.204.116.96
# son-154.204.116.96
# son-154.204.146.96
opendir (LOGIN, "./tmp/$dirfile");
@list = readdir(LOGIN);
closedir(LOGIN);
foreach $dirfile (@list) {
($cars, $add) = split(/-/,$dirfile);
if ($hash{$add} == undef) {print "$add\n";}
else {print "$dirfile\n";}
}
위 소스는 제가 한번 해본거 입니다,
안될거라 믿습니다,
된다고 가정 하면
$dirfile=104.203.112.96
104.204.116.96
이렇게 2개만 존재 하겠지요,
|
79
720
2001-10-01 01:08:46
닉네임
