home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5307 < prev    next >
Encoding:
Internet Message Format  |  1992-08-13  |  2.0 KB
  1. Path: sparky!uunet!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: write/format bug
  5. Message-ID: <1992Aug14.001147.17639@netlabs.com>
  6. Date: 14 Aug 92 00:11:47 GMT
  7. References: <RICKB.92Aug12173851@farfle.farfle.asd.sgi.com>
  8. Sender: news@netlabs.com
  9. Distribution: comp
  10. Organization: NetLabs, Inc.
  11. Lines: 46
  12. Nntp-Posting-Host: scalpel.netlabs.com
  13.  
  14. In article <RICKB.92Aug12173851@farfle.farfle.asd.sgi.com> rickb@farfle.farfle.asd.sgi.com (Rick Braumoeller) writes:
  15. : A Perl script that I use goes into several directories and
  16. : collects information about the files in them.  It then summarizes
  17. : using "write".  Sometimes the information can be multi-lined,
  18. : so I'd like to get output like this:
  19. : 
  20. : Directory  |  Comments
  21. : -----------+----------------------------------
  22. : dir1       |  This and that
  23. : foo        |  A longer comment, that spans two
  24. :            |  lines
  25. : 
  26. : For this, I am using the following format:
  27. : 
  28. : format STDOUT =
  29. : @<<<<<<<<< |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  30. : $dir,         $results{$dir}
  31. : ~~         |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  32. :               $results{$dir}
  33. : .
  34. : 
  35. : However, when I run with this format, Perl goes into some kind
  36. : of infinite loop when I do the first 'write' - slowly
  37. : consuming memory.  If I get rid of the | from the continuation
  38. : line, like this,
  39. : 
  40. : format STDOUT =
  41. : @<<<<<<<<< |  ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  42. : $dir,         $results{$dir}
  43. : ~~            ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  44. :               $results{$dir}
  45. : .
  46. : 
  47. : everything works fine, but my output isn't as nice.
  48. : 
  49. : Have I stumbled on something?  If you can't reproduce this
  50. : behavior, I'll gladly forward my script to you.
  51.  
  52. The current implementation detects blank lines by checking to see
  53. if the line is blank after inserting all the fields.  In Perl 5
  54. this will be revised so that a line is considered blank if none
  55. of its @ or ^ fields interpolated anything (expect whitespace).
  56. If I manage to put out another patch for version 4 it'll include
  57. that change.
  58.  
  59. Larry
  60.