home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / mail / misc / 2484 < prev    next >
Encoding:
Internet Message Format  |  1992-07-27  |  1.8 KB
  1. Path: sparky!uunet!usc!nic!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.mail.misc
  4. Subject: Re: extract adding address
  5. Message-ID: <1992Jul27.164239.17483@netlabs.com>
  6. Date: 27 Jul 92 16:42:39 GMT
  7. References: <1992Jul24.184037.15528@infonode.ingr.com>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 33
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <1992Jul24.184037.15528@infonode.ingr.com> fordke@infonode.ingr.com (Keith Ford) writes:
  14. : 
  15. : I would like to pipe a RFC 822 message into a program and have
  16. : it return the return address.  The Reply-To: line should take
  17. : precedence (sp?) over the From: line.  I'm using a UNIX box
  18. : with System V.  A shell script or C program would be nice.
  19. : I don't use perl, but I guess I could learn.
  20.  
  21. Here's the usual Perl incantation for such things.  It relies on two
  22. subtle tricks: first, if you split a string using a pattern with
  23. parens, it returns the corresponding portions of the delimiters as well
  24. as the fields between delimiters, and second, if you assign a list to
  25. an associative array, each pair of strings becomes one key-value pair.
  26. Once you've done that you can look at the entries in any order you please.
  27.  
  28.     #!/usr/bin/perl
  29.     $/ = "";                    # paragraph mode
  30.     $* = 1;                    # multi-line pattern matching
  31.     $_ = <>;                    # read one paragraph
  32.     %head = ('PRESTUFF', split(/^(\S+):\s*/));    # split on entry names
  33.     print $head{'Reply-To'} || $head{'From'};    # print the one you want
  34.  
  35. You can even get at the uucp-style colon-less From line if you so desire
  36. since that will be part of PRESTUFF, if the article contains such a line.
  37.  
  38. Also, if you're allergic to answers with embedded newlines, you can say
  39.  
  40.     s/\n[ \t]+/ /g;                # join multi-line entries
  41.  
  42. just before the split line.
  43.  
  44. Larry Wall
  45. lwall@netlabs.com
  46.