home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 1 / 1568 < prev    next >
Internet Message Format  |  1990-12-28  |  715b
  1. From: rommel@lan.informatik.tu-muenchen.dbp.de (Kai-Uwe Rommel)
  2. Newsgroups: alt.sources,comp.lang.perl
  3. Subject: Re: uumerge.pl
  4. Message-ID: <3317@tuminfo1.lan.informatik.tu-muenchen.dbp.de>
  5. Date: 9 Jul 90 12:20:52 GMT
  6.  
  7. And this is my version for awk. It does not require all parts to be in
  8. separate files, the parts may be concatenated to one single file.
  9.  
  10. Kai Uwe Rommel
  11. Munich
  12. rommel@lan.informatik.tu-muenchen.dbp.de
  13.  
  14. ------------------------
  15.  
  16. #!/bin/awk -f
  17.  
  18. BEGIN {
  19.   body = 0;
  20. }
  21.  
  22. /^[ ]*$/ || /[a-z]/ {
  23.   body = 0;
  24. }
  25.  
  26. /^begin/ {
  27.   body = 1;
  28. }
  29.  
  30. /^M/ && !/[a-z]/ && length($0)>60 {
  31.   body = 1;
  32. }
  33.  
  34. /^end/ {
  35.   print $0 | "uudecode -";
  36.   body = 0;
  37. }
  38.  
  39. {
  40.   if ( body )
  41.     print $0 | "uudecode -";
  42. }
  43.  
  44. -----------------
  45.