Ako zistit zdrojovu IP adresu v perle

[Milan Hromada]

V perle som asi este slabsi
Vime naco sluzi utmp

On Thu, Dec 07, 2000 at 11:57:25AM +0000, Robert Vojta wrote:
> Zdravim,
>   nejsem Perlista, ale ...
> 
> #!/usr/bin/perl -w
> 
> use User::Utmp qw(getut);
> @utmp = getut();
> $tty = `/usr/bin/tty`;
> if ($tty =~ "/dev/(.*)\n")
> {
>   foreach $entry (@utmp)
>   {
===========================================================	
>     if (%$entry->{'ut_user'} ne "" and
>         %$entry->{'ut_line'} eq $1)
>     {
>       print "Device name: ".%$entry->{'ut_line'}."\n";
>       print "Host name  : ".%$entry->{'ut_host'}."\n";
===========================================================
Mohol by mi to niekto prosim vysvetlit
Dik
>     }
>   }
> }
> 
>   User::Utmp muzete ziskat treba z CPANu: M/MP/MPIOTR/User-Utmp-1.01.tar.gz.
> Jinak v tom hashi jsou nazvy klice shodne se strukturou 'struct utmp' z
> `man 5 utmp`.
> 
>   Jinak se muzete podivat do zdrojaku sh-utils, resp. src/who.c a podivat
> se jak se to dela.
> 
>   S pozdravem,
>     Robert Vojta
> 
-- 
 Milan Hromada
 tel: +421 (0)862 5151 335
 -------------------------
Cleanliness becomes more important when godliness is unlikely.
		-- P.J. O'Rourke