home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / lang / perl / 5672 < prev    next >
Encoding:
Internet Message Format  |  1992-09-01  |  1.3 KB
  1. Path: sparky!uunet!usc!news!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: how to 'write' cr-nl
  5. Message-ID: <1992Sep2.063834.2075@netlabs.com>
  6. Date: 2 Sep 92 06:38:34 GMT
  7. References: <399@carssdf.UUCP> <ASHERMAN.92Sep1091415@laser.fmrco.com> <400@carssdf.UUCP>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 37
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <400@carssdf.UUCP> watson@carssdf.UUCP (John Watson -- Self Empl. Sys.Integrator) writes:
  14. : In article <ASHERMAN.92Sep1091415@laser.fmrco.com> asherman@fmrco.COM writes:
  15. : >What's wrong with:
  16. : >
  17. : >format STDOUT =
  18. : >@<<<<<<<<<<<<<<<<<< Test: @>>>>>>>>>>>> ^M
  19. : >.
  20. : 
  21. : My problem here, besides forgeting to put it in on a line or two, and
  22. : creating a debugging mess is possibily
  23. : 
  24. : entering spaces after the ^M which are not visible by the vi editor,
  25. : creating leading white space on the next line.
  26.  
  27. It shouldn't do that, because formats drop any trailing spaces on the line.
  28.  
  29. Alternative 1.
  30.  
  31.     format STDOUT =
  32.     @<<<<<<<<<<<<<<<<<< Test: @>>>>>>>>>>>> @
  33.     $foo,                     $bar,        "\r"
  34.     .
  35.  
  36. Alternative 2.
  37.  
  38.     $child = open(STDOUT, "|-");
  39.     die "Phooey" unless defined $child;
  40.     if (!$child) {
  41.     $\ = "\r\n";
  42.     while (<STDIN>) {
  43.         chop;
  44.         print;
  45.     }
  46.     exit;
  47.     }
  48.  
  49. Larry
  50.