#!/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°³¸¸ Á¸Àç ÇÏ°ÚÁö¿ä,
|