######################################################
# 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