[e6/home/www/script]# cat ./closeweb.pl
#!/usr/bin/perl
my $string=`ifconfig | grep 'inet addr' | awk '{print \$2}'`;
my @array = $string =~ /addr:(\d+.\d+.\d+.\d+)/g;
#print $_, "\n" foreach(@array); # ¹è¿ Ãâ·Â
foreach $ip (@array) {
chomp $ip;
print "iptables -I INPUT -p tcp --dport 80 -d $ip -j DROP\n";
my $result = `iptables -I INPUT -p tcp --dport 80 -d $ip -j DROP`;
}
'Trend' 카테고리의 다른 글
버핏의 투자 (0) | 2008.02.24 |
---|---|
linux find 샘플 (0) | 2008.02.16 |
Common Development and Distribution License (CDDL) (0) | 2008.01.21 |
리뷰 고고싱 게임?!!! (0) | 2008.01.21 |
소켓에서 읽을 데이터가 없습니다 라고 에러가 날때 (0) | 2008.01.14 |