Help for this page

Select Code to Download


  1. or download this
    while (my $line=<>)   {
        $line =~ /(\S+)\s+(.+?)\s*((?:Last|Never).+)/;
        print "$1::$2::$3\n";
    }
    
  2. or download this
    flexlm::FlexLM license manag::Never logged in
    m12345::Shmoe,Ronald K.::Last login Thu May  1 14:11:54 2003 (160 days
    + ago)
    m54321::O'Schmoe,Karen D.::Last login Sun Sep 29 15:39:43 2002 (374 da
    +ys ago
    ...
    oracle::OraSchmoe Oracle user::Never logged in
    sshd::OpenSchmoe Privilege Se::Never logged in
    web::suitespot,httpd serv::Never logged in