当前位置: 主页 > 脚本 >

perl 脚本里面的shell模块

时间:2013-04-23 11:51来源:www.shencan.net 作者:shencan 点击:
脚本 如下 dig.pl #!/usr/bin/perl -w use strict; use Shell qw/dig/; my @array = (); open FILE,,Domain or die $!\n; while (FILE) { chomp; /(\S+)/; push @array,$1; } close FILE; while (1) { for my $url (@array) { my $sh = Shell-new; print
欢迎大家分享自己的文档,请点击查阅:分享方法,Linux系统运维
如果你喜欢这文章,可以点击文章结尾处百度分享,分享到你的各种社区收藏,或推荐给朋友……


脚本 如下

dig.pl
#!/usr/bin/perl -w
use strict;
use Shell qw/dig/;
my @array = ();
open FILE,’<’,'Domain’ or die “$!\n”;
while (<FILE>) {
chomp;
/(\S+)/;
push @array,$1;
}

close FILE;
while (1) {

for my $url (@array) {
my $sh = Shell->new;
print $sh->dig(“\@8.8.8.8 $url  +short”);
}

sleep 5
}

 

用处不大 放上来 怕以后能用到

转载请注明linux系统运维
http://www.linuxyw.com/linux/jiaoben/20130423/113.html

------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
验证码: 点击我更换图片