[原创] SuseLinux下根据端口查询对应的进程

######################################################
# QueryPortL.pl
# 根据端口查询对应的进程(Suse Linux 版本)
# Author:  Rick Cheng
# Date:    2005-10-29  
# Version: 1.0
######################################################

#! /usr/bin/perl -w

use strict;

my @portList;  #端口号列表

foreach (@ARGV)
{
    push @portList, $_ if (/^[^-]/d+$/);
}
&checkUsage();
print "PORT/tPID/tCOMMAND/n"; #输出表格头
foreach (@portList)
{  
    my $port = $_;
    my $pid = undef;
   
    #根据端口定位PID
    `lsof -i:$port > ./QueryPortL.port`;
    open TMP, "./QueryPortL.port" or die "Can't open QueryPortL.port: $!";
    my $index = 0;
    while (<TMP>)
    {
        chomp;
        if ($index == 1)
        {
            my @tokenList = split;
            $pid = $tokenList[1];
        }
        $index++;
    }
    close TMP; 
    `rm ./QueryPortL.port`;
   
    #未找到PID,跳出本次循环
    unless (defined $pid)
    {
        print "$port/tNA/tNA/n";
        next;
    }

    #根据PID定位进程名
    `ps -ef | grep $pid | grep -v grep > ./QueryPortL.pid`;
    open TMP, "./QueryPortL.pid" or die "Can't open QueryPortL.pid: $!";
    while (<TMP>)
    {
        chomp;     
        my @tokenList = split;     
        if ($tokenList[1] == $pid)
        {
            print "$port/t$pid/t$tokenList[7]/n";
            last;
        }
    }
    close TMP;
    `rm ./QueryPortL.pid`; 
}
print ":Done!/n";

#检测命令行输入
sub checkUsage()
{
    if ($#portList == -1)
    {
        print "[USAGE] perl QueryPortL.pl port1 port2 .../n";
        exit -1;
    }
}

  • 0
    点赞
  • 0
    收藏
  • 打赏
    打赏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页
评论

打赏作者

SIA

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值