Ako zistit zdrojovu IP adresu v perle

[Robert Vojta]

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";
    }
  }
}

  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

-- 

   Robert Vojta aka Penguin (Oo.oO) // ICQ 64746424 // Phone 0603-167911
     http://www.ipex.cz/~vojta                   mailto: vojta na ipex.cz

       GCS d? s+: a-- C++ SL++++ P+ L++++ E--- W+ N+ K w--- O- M- V-
         PS+ PE Y+ PGP++ t 5? X R tv- b+++ DI? D G+ e+ h-- r++ x?