Help for this page

Select Code to Download

Select or download this

  $ who am i
  idsfa    pts/11      Apr 20 15:09     (10.0.0.1)
  $ sudo who am i
  idsfa    pts/11      Apr 20 15:09     (10.0.0.1)

Select or download this

  use User::Utmp qw(:constants :utmpx);
  use POSIX qw(ttyname);
...
      $ip = $entry->{ut_host};
      last;
  }