Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use warnings;
...
user :0 Thu Apr 6 03:00 - 23:00 (08:00)
root :0 Thu Apr 6 06:00 - 03:00 (08:00)
root :0 Wed Apr 5 06:00 - 03:00 (08:00)
  2. or download this
    $ ./z.pl
Apr 5 workstation was in use for 8.0 hours
Apr 6 workstation was in use for 16.0 hours
Apr 7 workstation was in use for 8.0 hours