home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / lang / perl / 6895 < prev    next >
Encoding:
Internet Message Format  |  1992-11-08  |  1.2 KB
  1. Path: sparky!uunet!olivea!spool.mu.edu!yale.edu!ira.uka.de!chx400!sicsun!sic!brossard
  2. From: brossard@sic.epfl.ch (Alain Brossard EPFL-SIC/SII)
  3. Newsgroups: comp.lang.perl
  4. Subject: Why is <...> going to stdout?
  5. Message-ID: <4227@sicsun.epfl.ch>
  6. Date: 7 Nov 92 14:34:09 GMT
  7. Sender: news@sicsun.epfl.ch
  8. Lines: 32
  9.  
  10.  
  11.     I have the following piece of code which somehow outputs to
  12. stdout and I can't figure out why!  I'm it didn't use to do this before
  13. some extensive changes to other parts of my script.
  14.  
  15. print STDERR "Before\n";
  16.     foreach $f ( <$ftp_dir/${patch_ID}*>,
  17.              <${loc412}/${patch_ID}*>,
  18.              <${loc413}/${patch_ID}*> ) {
  19.     next if $f =~ /\*$/;
  20.         next if $f =~ /$patch_id/o;
  21.         next if $f =~ /$patch_ID-$prev_rev/o;
  22.         unlink $f;
  23.     }
  24. print STDERR "\nAfter\n";
  25.  
  26.  
  27.     What I get on stdout (or stderr?) is:
  28.  
  29. Before
  30. /u/ftp/pub/sun-patches/100483-02.README/u/ftp/pub/sun-patches/100483-02.tar.Z/export/mnt/4.1.2/100483-02/export/mnt/4.1.2/4.1.3/100483*
  31. After
  32.  
  33.  
  34.    I'm sure it is coming from this piece of code because I put a print
  35. before and after to bracket the problem.
  36.  
  37.     This occur on sunOS 4.1.3 using perl 4.019 and perl 4.035.
  38.  
  39.  
  40.                     Alain Brossard
  41.                     brossard@sic
  42.