home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / perl / tutorial / eg / convex / bacctsum next >
Encoding:
Text File  |  1990-07-18  |  5.6 KB  |  169 lines
  1. #!/usr/bin/perl
  2.  
  3. #
  4. # this output generated from my pstruct perl script, available upon request
  5. # it's only here so i can figure out the structure lay out
  6. #
  7. # struct rusage {
  8. #     struct timeval ru_utime;                 00000000 rusage.ru_utime
  9. #     struct timeval ru_stime;                 00000008 rusage.ru_stime
  10. #     long ru_maxrss;                          00000010 rusage.ru_maxrss
  11. #     long ru_ixrss;                           00000014 rusage.ru_ixrss
  12. #     long ru_idrss;                           00000018 rusage.ru_idrss
  13. #     long ru_isrss;                           0000001c rusage.ru_isrss
  14. #     long ru_minflt;                          00000020 rusage.ru_minflt
  15. #     long ru_majflt;                          00000024 rusage.ru_majflt
  16. #     long ru_nswap;                           00000028 rusage.ru_nswap
  17. #     long ru_inblock;                         0000002c rusage.ru_inblock
  18. #     long ru_oublock;                         00000030 rusage.ru_oublock
  19. #     long ru_msgsnd;                          00000034 rusage.ru_msgsnd
  20. #     long ru_msgrcv;                          00000038 rusage.ru_msgrcv
  21. #     long ru_nsignals;                        0000003c rusage.ru_nsignals
  22. #     long ru_nvcsw;                           00000040 rusage.ru_nvcsw
  23. #     long ru_nivcsw;                          00000044 rusage.ru_nivcsw
  24. #     struct timeval ru_exutime;               00000048 rusage.ru_exutime
  25. # };
  26. # sizeof(struct rusage) = 0x50 bytes
  27.  
  28. $rusage_size = 0x50;  # unused
  29. $rusage_t = 'L22';
  30.  
  31. # 
  32. # struct batch_acct {
  33. #     char quename[MAX_QUEUENAME+1];           00000000 batch_acct.quename
  34. #     char host[MAXHOSTNAMELEN+1];             00000010 batch_acct.host
  35. #     time_t submit_time;                      00000054 batch_acct.submit_time
  36. #     time_t complete_time;                    00000058 batch_acct.complete_time
  37. #     uid_t uid;                               0000005c batch_acct.uid
  38. #     gid_t gid;                               0000005e batch_acct.gid
  39. #     long aid;                                00000060 batch_acct.aid
  40. #     long seqno;                              00000064 batch_acct.seqno
  41. #     char rhost[MAXHOSTNAMELEN+1];            00000068 batch_acct.rhost
  42. #     short rpriority;                         000000aa batch_acct.rpriority
  43. #     short qpriority;                         000000ac batch_acct.qpriority
  44. #     short nice;                              000000ae batch_acct.nice
  45. #     struct rusage rusage;                    000000b0 batch_acct.rusage
  46. #     int reserved[8];                         00000100 batch_acct.reserved
  47. # };
  48. # sizeof(struct batch_acct) = 0x120 bytes
  49.  
  50. $batch_acct_size = 0x120;
  51. $batch_acct_t = 'A16A65x3LLSSLLA65xsssa80i8';
  52.  
  53. ( $program = $0 ) =~ s:.*/::;
  54.  
  55. $ok = 'vlq';
  56. while ($ARGV[0] =~ /^-./) {
  57.     $_ = shift;
  58.     s/^-//;
  59.     foreach $flag (split(//)) {
  60.         if ( $ok !~ /$flag/ ) {
  61.             printf stderr "unknown flag: %s\n", $flag;
  62.             die "usage: $program [-$ok] [batch_acct_file ...]\n";
  63.         }
  64.         die "$program: '$flag' flag already set\n" if $flags{$flag}++;
  65.     }
  66. }
  67.  
  68. # set all flags if none set
  69. @flags{'v','l','q'} = (1,1,1) 
  70.     unless $flags{'v'} || $flags{'l'} || $flags{'q'};
  71.  
  72. unshift (@ARGV, '-') if $#ARGV < $[;  # snatch stdin back
  73.  
  74. $batch_acct = '.' x $batch_acct_size;  # don't actually need to pre-extend
  75.  
  76. $MILLION = 1e6;
  77.  
  78.  
  79. while ( $file = shift ) {
  80.    open file || die "$program: can't open $file: $!, aborting";
  81.    while (read(file,$batch_acct,$batch_acct_size) == $batch_acct_size) {
  82.  
  83.     $records++;
  84.  
  85.     ( $quename, $host, $submit_time, $complete_time, 
  86.       $uid, $gid, $aid, $seqno, $rhost, $rpriority, 
  87.       $qpriority, $nice, $rusage, $reserved ) 
  88.           = unpack ( $batch_acct_t, $batch_acct );
  89.  
  90.     ( $utime_sec, $utime_usec, $stime_sec, $stime_usec,
  91.       $maxrss, $ixrss, $idrss, $isrss, $minflt, $majflt,
  92.       $nswap, $inblock, $oublock, $msgsnd, $msgrcv, $nsignals,
  93.       $nvcsw, $nivcsw, $exutime_sec, $exutime_usec ) 
  94.           = unpack ( $rusage_t, $rusage );
  95.  
  96.     $utime = $utime_sec + ($utime_usec/$MILLION);
  97.     $stime = $stime_sec + ($stime_usec/$MILLION);
  98.  
  99.     $login = &login($uid);
  100.  
  101.     if ( $flags{'v'} ) {  
  102.         printf("%-8s %-8s %3d %s %8.2fu %8.2fs\n",
  103.         $quename, $login, $nice, &mktime($submit_time), $utime, $stime);
  104.     }
  105.  
  106.     if ( $flags{'l'} ) {
  107.         $ujobs{$login}++;
  108.         $uutimes{$login} += $utime;
  109.         $ustimes{$login} += $stime;
  110.     }
  111.  
  112.     if ( $flags{'q'} ) {
  113.         $qjobs{$quename}++;
  114.         $qutimes{$quename} += $utime;
  115.         $qstimes{$quename} += $stime;
  116.     }
  117.    } 
  118. } 
  119.  
  120. printf "\nbatch accounting records: %d\n", $records if $flags{'v'};
  121.  
  122. if ( $flags{'l'} ) {
  123.     print "\nsummary by login\n" if $flags{'v'} || $flags{'q'};
  124.  
  125.     foreach $login (sort keys %ujobs) {
  126.     printf("%-8s %5d %12.2fu %12.2fu\n",
  127.         $login, $ujobs{$login}, $uutimes{$login}, $ustimes{$login});
  128.     } 
  129. }
  130.  
  131. if ( $flags{'q'} ) {
  132.     print "\nsummary by queue\n" if $flags{'v'} || $flags{'l'};
  133.  
  134.     foreach $queue (sort keys %qjobs) {
  135.     printf("%-8s %5d %12.2fu %12.2fu\n",
  136.         $queue, $qjobs{$queue}, $qutimes{$queue}, $qstimes{$queue});
  137.     } 
  138. }
  139.  
  140. exit 0;
  141.  
  142. sub login {
  143.     local($id) = @_;
  144.     local($name, $passwd, $uid, $gid, $quota, $comment, $gdocs, $dir, $shell);
  145.  
  146.     $name = '';
  147.  
  148.     if (!defined $login{$id}) {
  149.  
  150.     ($name, $passwd, $uid, $gid, $quota, 
  151.      $comment, $gdocs, $dir, $shell) = getpwuid($id);
  152.  
  153.     $login{$id} = ($name ne '') ? $name : sprintf("#%d", $id);
  154.     } 
  155.     return $login{$id};
  156. } 
  157.  
  158. sub mktime {
  159.     local($time) = @_;
  160.     local($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
  161.     local($date);
  162.     
  163.     ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst)
  164.           = localtime($time);
  165.     $mon+1;
  166.  
  167.     sprintf("%02d/%02d/%02d %02d:%02d", $mday, $mon, $year, $hour, $min);
  168. } 
  169.