Help for this page

Select Code to Download


  1. or download this
    perl -le'$x{(split)[0]}++for(`who`);print"$k => $v"while($k,$v)=each%x
+'
  2. or download this
    who|perl -lane'$x{$F[0]}++;END{print"$k => $v"while($k,$v)=each%x}'