Voir la source de Quel process écoute sur un port

[[Category:solaris]]

Lorsqu'un port tcp/ip est à l'écoute, il est parfois utile de savoir quel est le process correspondant. Pour le port 22, tout admin système sait que c'est ssh, mais certains ports ne peuvent pas se deviner.

Sous Solaris, pour répondre à cette question, le plus simple est d'utiliser lsof, mais il n'est pas installé par défaut. Sinon on peut utiliser des scripts qui se basent sur la commande '''pfiles'''. C'est beaucoup, beaucoup plus long à répondre que lsof, mais normalement ça marche sur tous les Solaris de base.

Ci-dessous, on va voir quels process écoutent sur le port 5666. Pour commencer, on vérifie que le port est bien à l'écoute.

 # netstat -an |grep LISTEN |grep 5666
       *.5666               *.*                0      0 49152      0 LISTEN

==Avec lsof==

 # lsof -i :5666
 COMMAND   PID   USER   FD   TYPE        DEVICE SIZE/OFF NODE NAME
 nrpe     9736 nagios    5u  IPv4 0x3008c674040      0t0  TCP *:5666 (LISTEN)
 nrpe    10507 nagios    5u  IPv4 0x3011dd44340      0t0  TCP *:5666 (LISTEN)
 nrpe    11080 nagios    5u  IPv4 0x30102752e00      0t0  TCP *:5666 (LISTEN)
 nrpe    12388 nagios    5u  IPv4 0x6007a842400      0t0  TCP *:5666 (LISTEN)
 nrpe    12573 nagios    5u  IPv4 0x300d05ac7c0      0t0  TCP *:5666 (LISTEN)
 nrpe    15447 nagios    5u  IPv4 0x3011ebff540      0t0  TCP *:5666 (LISTEN)
 nrpe    16331 nagios    5u  IPv4 0x3015ac4eac0      0t0  TCP *:5666 (LISTEN)
 nrpe    16444 nagios    5u  IPv4 0x30159e15c40      0t0  TCP *:5666 (LISTEN)
 nrpe    18492 nagios    5u  IPv4 0x3015add71c0      0t0  TCP *:5666 (LISTEN)
 nrpe    25023 nagios    5u  IPv4 0x300cfdf55c0      0t0  TCP *:5666 (LISTEN)

==Avec un script ksh==

Voici le script (récupéré sur le net).

 #!/usr/bin/ksh
 ID=`id | cut -f 2 -d '=' | cut -f 1 -d '('`
 if [ $ID -ne 0 ] ; 
 then 
         echo >&2 "Need to be run by root"
         exit 1 
 fi
 i=0
 while getopts :p:P:a opt
 do
 case "${opt}" in
 p ) port="${OPTARG}";i=3;;
 P ) pid="${OPTARG}";i=3;;
 a ) all=all;i=2;;
 esac
 done
 if [ $OPTIND != $i ]
 then
 echo >&2 "usage: $0 [-p PORT] [-P PID] [-a] (Wildcards OK) "
 exit 1
 fi
 shift `expr $OPTIND - 1`
 if [ "$port" ]
 then
 # Enter the port number, get the PID
 #
 port=${OPTARG}
 echo "PID\tProcess Name and Port"
 echo "_________________________________________________________"
 for proc in `ptree -a | awk '/ptree/ {next} {print $1};'`
 do
 result=`pfiles $proc 2> /dev/null| egrep "port: $port$"`
 if [ ! -z "$result" ]
 then
 program=`ps -fo comm= -p $proc`
 echo "$proc\t$program\t$port\n$result"
 echo "_________________________________________________________"
 fi
 done
 elif [ "$pid" ]
 then
 # Enter the PID, get the port
 #
 pid=$OPTARG
 # Print out the information
 echo "PID\tProcess Name and Port"
 echo "_________________________________________________________"
 for proc in `ptree -a | awk '/ptree/ {next} $1 ~ /^'"$pid"'$/ {print $1};'`
 do
 result=`pfiles $proc 2> /dev/null| egrep port:`
 if [ ! -z "$result" ]
 then
 program=`ps -fo comm= -p $proc`
 echo "$proc\t$program\n$result"
 echo "_________________________________________________________"
 fi
 done
 elif [ $all ]
 then
 # Show all PIDs, Ports and Peers
 #
 echo "PID\tProcess Name and Port"
 echo "_________________________________________________________"
 for proc in `ptree -a | sort -n | awk '/ptree/ {next} {print $1};'`
 do
 out=`pfiles $proc 2>/dev/null| egrep "port:"`
 if [ ! -z "$out" ]
 then
 name=`ps -fo comm= -p $proc`
 echo "$proc\t$name\n$out"
 echo "_________________________________________________________"
 fi
 done
 fi
 exit 0


==Avec un script perl==

Voici le script, également trouvé sur le net.

 #! /usr/bin/env perl
 ##
 ## Search the processes which are listening on the given port.
 ##
 ## For SunOS 5.10.
 ##
 
 use strict;
 use warnings;
 
 die "Port missing" unless $#ARGV >= 0;
 my $port = int($ARGV[0]);
 die "Invalid port" unless $port > 0;
 
 my @pids;
 map { push @pids, $_ if $_ > 0; } map { int($_) } `ls /proc`;
 
 foreach my $pid (@pids) {
     open (PF, "pfiles $pid 2>/dev/null |") 
         || warn "Can not read pfiles $pid";
     $_ = <PF>;
     my $fd;
     my $type;
     my $sockname;
     my $peername;
     my $report = sub {
         if (defined $fd) {
             if (defined $sockname && ! defined $peername) {
                 print "$pid $type $sockname\n"; } } };
     while (<PF>) {
         if (/^\s*(\d+):.*$/) {
             &$report();
             $fd = int ($1);
             undef $type;
             undef $sockname;
             undef $peername; }
         elsif (/(SOCK_DGRAM|SOCK_STREAM)/) { $type = $1; }
         elsif (/sockname: AF_INET[6]? (.*)  port: $port/) {
             $sockname = $1; }
         elsif (/peername: AF_INET/) { $peername = 1; } }
     &$report();
     close (PF); }