Zjistit, zda je port otevreny (fuser/lsof)

[Zdenek Pytela]

	Dobry den,
hledam nejakou malou utilitku, ktera zjisti, jestli je - prikladne -
nekym pouzivan port 22/tcp, jako to umi fuser nebo lsof. Nechci brutalni
metodu, jakou to dela Net::Ping, tj.
  $ping = Net::Ping->new("tcp");
  $ping->{port_num} = $servport;
  if ($ping->ping($host)) ...
ani rovnou navazovat spojeni, ale neco, co jenom primo na stroji, na
kterem skript pobezi, zjisti, jestli nekdo nasloucha na vyjmenovanych
tcp i udp portech.

	A pripadne obecne, nejsou nekde nejake "vzorove" priklady, jak se
daji znamych prikazu implementovat v perlu? Idealni by byla metodicka
prirucka typu: prvni navrh skriptu, ktery "dela grep", proc je to spatne,
druha moznost, proc selze pri zabudovani prepinacu, konecna efektivni verze.
Diky,

-- 

--Zdenek Pytela, <letty na mrakoplas.phil.muni.cz>