home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5488 < prev    next >
Encoding:
Internet Message Format  |  1992-08-25  |  2.3 KB
  1. Path: sparky!uunet!wupost!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: Processing multi-line entities with perl
  5. Message-ID: <1992Aug25.224548.11228@netlabs.com>
  6. Date: 25 Aug 92 22:45:48 GMT
  7. References: <1992Aug24.125350.3407@cas.org>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 79
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <1992Aug24.125350.3407@cas.org> lvirden@cas.org (Larry W. Virden) writes:
  14. : WARNING! NOVICE QUESTION APPROACHES!
  15. : 
  16. : 
  17. : Okay.  I have occasion to deal with files containing one or more entities of
  18. : the format:
  19. : 
  20. : 
  21. : [number1,number2]
  22. : text0
  23. : 
  24. :   text1
  25. :   text2
  26. :         text3
  27. : 
  28. :   text4
  29. :   possible lines text5 to textn
  30. : 
  31. : 
  32. : What I want to do is sort such entities by info in various places in the entry.
  33. : For instance, sometimes it may be by [number1,number2], other times 
  34. : by substrings within text0, etc.
  35. : 
  36. : Does anyone have some tips on where to begin processing such a file?  I
  37. : have seen shell, awk, etc. code which would redefine record separators to
  38. : be a newline.  But in my case, there is no unique line separating the
  39. : entities.  Each entity DOES begin with [some number, some other number],
  40. : but that value must remain as part of the entity.
  41. : 
  42. : Any tips that you might have would be appreciated.
  43.  
  44. There are several approaches you might take.  I usually just keep $_ as a
  45. lookahead line:
  46.  
  47.     while (<>) {
  48.     &do_something if /^\[\d+,\d+]/;
  49.     $text .= $_;
  50.     }
  51.     &do_something;
  52.  
  53.     sub do_something {
  54.     if ($text ne '') {
  55.         # do something
  56.         $text = '';
  57.     }
  58.     }
  59.  
  60. You could also play around with a record separator of "\n[", but
  61. that's a little messier.  (But it may also be a lot more efficient!)
  62.  
  63.     $/ = "\n[";
  64.  
  65.     while (!eof()) {
  66.     $_ .= <>;
  67.     chop; chop;
  68.     # do something
  69.     }
  70.     continue {
  71.     $_ = "[";
  72.     }
  73.  
  74. That assumes you don't have any text lines that start with "[".  If
  75. you do, then you have to do a lookahead of some sort, unless...
  76.  
  77. If the file's not too large, you can just slurp it in and split it
  78. on /^\[\d+,\d+]\n/:  
  79.  
  80.     {
  81.     local($/) = undef;
  82.     @stuff = split(/^\[\d+,\d+]\n/, <>);
  83.     }
  84.     while (($brackets,$text) = splice(@stuff, 0, 2)) {
  85.     # do something
  86.     }
  87.  
  88. And sometimes it's better to change the thing that spits out the files
  89. in the first place.  Then you could set $/ to a delimiter you know will
  90. not be in the text.
  91.  
  92. Larry
  93.