Help for this page

Select Code to Download


  1. or download this
    my $host = "host";
    my $user = "name";
    ...
        print $chan3 "who\n";
        print "THREE-b: [$_]\n" while <$chan3>;
        $chan3->close;
    
  2. or download this
    ONE:  [/usr/local]
    TWO:  [user    pts/40       Jun 26 07:04 (192.168.1.247)]
    ...
    TWO:  [user    pts/43       Jun 26 07:57 (192.168.1.194)]
    THREE-a: [Enter user name: Enter user name: ]
    THREE-b: [Enter user name: ]