-bash-4.1$ cat collect_netstat.pl
####采集端口信息程序
use Data::Dumper;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
if ( $#ARGV < 1 ){
print "Usage perl collect_netstat.pl Ipaddr Port :!\n";
exit(-1);
};
my $ip=$ARGV[0];
my $port=$ARGV[1];
$a=`netstat -nap | grep $port | grep LISTEN |grep ^tcp | awk '{print \$NF}'`;
if ($a=~ /.*?(\d+)\/.*?/sm){
print $1."\n";
$process =$1;
};
print '--------------------------'."\n";
print $process."\n";
@b=`netstat -nap | grep $process | grep ESTAB | grep ^tcp | awk '{if (\$4!~/$ip:$port/) print \$0}'`;
foreach (@b){
$a=$_;
if ($a=~ /.
perl 发送form表单
最新推荐文章于 2022-05-21 12:34:05 发布
这篇博客展示了如何使用Perl脚本`collect_netstat.pl`收集网络端口信息,并通过HTTP POST请求发送到指定地址。脚本首先通过netstat命令获取监听特定端口的进程ID,然后收集与该进程相关的ESTABLISHED连接信息,最后将数据以百分比形式发送到`http://1.1.1.1:9001/api/collect_netstat`。
摘要由CSDN通过智能技术生成