home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / lang / perl / 5962 < prev    next >
Encoding:
Internet Message Format  |  1992-09-15  |  3.6 KB
  1. Path: sparky!uunet!noc.near.net!bigboote.WPI.EDU!bigboote.wpi.edu!john
  2. From: john@sekrit.WPI.EDU (John Stoffel)
  3. Newsgroups: comp.lang.perl
  4. Subject: Question on use of Next, Redo and Last
  5. Date: 14 Sep 92 17:34:43
  6. Organization: Worcester Polytechnic Institute
  7. Lines: 135
  8. Distribution: world
  9. Message-ID: <JOHN.92Sep14173443@sekrit.WPI.EDU>
  10. NNTP-Posting-Host: sekrit.wpi.edu
  11.  
  12.  
  13. I've been writing a program to parse through a bunch of mail messages
  14. consisting of syserr logs from workstations that we manage on campus
  15. here.  I used some code written by Larry Wall to parse out the machine
  16. the error log came from and some other info, and then the body of the
  17. message which contained the actuall log for that day.  I still don't
  18. totally grok (or even understand!  :-) why the code works.  I've read
  19. the camel book quite a few times, but the section on last, next, etc
  20. is kinda weak without a really good contrived example.  Here is
  21. Larry's code and then mine, just to give an example I can deal with. 
  22.  
  23. Thanks!
  24.  
  25.                     John
  26.  
  27. ----------------------------larry code---------------------------------
  28.  
  29. # Taken from his reply to dana@thumper.bellcore.com
  30.  
  31. $USER = $ENV{'USER'};
  32. open(MAILBOX, "/usr/spool/mail/$USER")
  33.     || die "cannot open mailbox for $USER: $!\n";
  34.  
  35. $/ = "";
  36.  
  37. while (<MAILBOX>) {
  38.     next unless /^From /;
  39.     next unless /\*\*Phone Message\*\*/;
  40.  
  41.     # Got one...
  42.  
  43.     $_ = <MAILBOX>;    # Assuming next paragraph contains this stuff:
  44.     ($from) = /From:  +(.*)/;
  45.     ($comp) = /Company: +(.*)/;
  46.     ($phone) = /Phone: +(.*)/;
  47.     print "F: $from ($phone). M: ";
  48.  
  49.     while (<MAILBOX>) {
  50.     last if /^From /;
  51.     tr/\n/ /;        # or maybe tr/\n/ /s
  52.     print;
  53.     }
  54.     print "\n";
  55.     redo if $_;            # moral equivalent of unget
  56. }
  57.  
  58.  
  59. -----------------------my code-------------------------------------
  60. #!/usr/local/bin/perl
  61. #
  62. # 
  63. # This program reads in a bunch of mail messages from the syserr demons and 
  64. # creates a summary report.  This saves my brain cells and fingers!
  65. # 
  66. # fmterr.pl version 1.0  9/10/92
  67. #
  68.  
  69. $syserr = "/usr1/john/.SYSERR";
  70.  
  71. $/ = "";    # to read in paragraphs of stuff
  72.         # tried using "From ", but that just caught
  73.         # the beginning headers AFTER they went through.
  74.         # maybe redo would do the trick?
  75.  
  76. $\ = "\n";
  77.  
  78. open(SYSERR,$syserr) || die "Can't open $syserr: $!\n";
  79.  
  80. TOP:
  81. while (<SYSERR>) {
  82.     next unless /^From /;
  83.  
  84.     ($hostname) = join('',"--",/Subject: syserr on (\w+)\.*/,"--");
  85.     ($date) = /Date: .*, (.*) \d\d.*/; 
  86.     ($num) = split(' ',$date,1);
  87.     if ($num < 10) {
  88.     $date = '0' . $date;
  89.     }
  90.     $host{$hostname . $date} = $hostname;  # I like being able to do this!
  91.     $date{$hostname . $date} = $date;
  92.  
  93.     while (<SYSERR>) {
  94.     last if /^From /;
  95.  
  96.     $tmp = $tmp . $_;
  97.     }                
  98.     
  99.     $data{$hostname . $date} = $tmp;
  100.     undef($tmp);
  101.  
  102.     redo if $_;
  103. }                 
  104.  
  105. $~ = BODY;
  106.  
  107. foreach $key (sort keys %host) {
  108.     split(/^/,$data{$key});
  109.     undef($count);
  110.     undef($tmp);
  111.     foreach (@_) {
  112.     if (/file: table is full/) {
  113.         $count++;
  114.     }
  115.     else {
  116.         $tmp = $tmp . $_;
  117.     }
  118.     }
  119.     if (defined($count)) {
  120.     $tmp = $tmp . " file: table was full $count times\n\n";
  121.     }
  122.  
  123.     undef($data{$key});
  124.     $data{$key} = $tmp;
  125.     write;
  126. }
  127.  
  128. format BODY =
  129. ---------------------------------------------------------------------------
  130. @<<<<<<<<<<<<<<<                                              --@<<<<<<<<--
  131. $host{$key},$date{$key}
  132.  
  133. @*
  134. $data{$key}
  135. .
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142. --
  143. Youth of today!  Join me in a mass rally for traditional mental attitudes!
  144. -------------------------------------------------------------------------------
  145. john@wpi.wpi.edu | Work Station Specialist | Worcester Polytechnic Institute
  146. John Stoffel     | 508-831-5512 (work)     | Worcester, MA  01609
  147.