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

最新推荐文章于 2022-10-31 10:16:40 发布

SIA

最新推荐文章于 2022-10-31 10:16:40 发布

阅读量2.9k

点赞数

分类专栏： Perl 文章标签： suse perl linux date

本文链接：https://blog.csdn.net/SIA/article/details/520936

版权

本文提供了一个名为QueryPortL.pl的Perl脚本，用于在Suse Linux系统中根据指定的端口号查询相应的进程信息。作者Rick Cheng在2005年10月29日编写了这个1.0版本的脚本。脚本首先通过lsof命令获取端口占用的PID，然后使用ps命令和grep查找进程名称。

摘要由CSDN通过智能技术生成

######################################################
# 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>)
    {
        cho