home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 3 / 3373 < prev    next >
Internet Message Format  |  1991-05-20  |  1KB
  1. From: rearl@watnxt3.ucr.edu (Robert Earl)
  2. Newsgroups: comp.lang.perl,alt.sources
  3. Subject: Re: perl version of from(1)
  4. Message-ID: <REARL.91May20044441@watnxt2.ucr.edu>
  5. Date: 20 May 91 11:44:41 GMT
  6.  
  7. In article <azioL/5ej/g.c@idunno.Princeton.EDU> subbarao@phoenix.Princeton.EDU (Kartik Subbarao) writes:
  8.  
  9. |   Anyone know of a cooler way to do this?
  10.  
  11. It's Perl, there's ALWAYS a cooler way.  :-)
  12.  
  13. |           @subj = split(/[: ]/,$_);
  14. |           print ' "'.$subj[2].'"'."\n";
  15.  
  16. This was sort of confusing, did you really want it to print just the
  17. first word of a subject?  Mine won't do that, but it's easy enough to
  18. change.
  19.  
  20. #! /usr/bin/perl
  21.  
  22. open(mail, $ENV{'MAIL'}) || exit;
  23.  
  24. while (<mail>) {
  25.     # skip this block unless it's "From ", else print it
  26.     /^From / || next; chop; print;
  27.     while (<mail>) {
  28.     chop;
  29.  
  30.     # for the other way, substitute this line:
  31.     # ((length) ? s/^Subject: *([^: ]+)/print qq| "$1"\n|/e : print "\n")
  32.  
  33.     ((length) ? s/^Subject: */print qq| "$'"\n|/e : print "\n")
  34.         && last;
  35.     }
  36. }
  37. print "\n";
  38.  
  39.  
  40. print "Just another Perl hacker, ";
  41. --
  42. ______________________________________________________________________
  43.             \                    
  44.  robert earl        /    "Love is a many splintered thing"
  45.  rearl@watnxt3.ucr.edu    \        --Sisters of Mercy
  46.  rearl@gnu.ai.mit.edu    /
  47.