home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4948 < prev    next >
Encoding:
Internet Message Format  |  1992-07-25  |  1.5 KB
  1. Path: sparky!uunet!darwin.sura.net!wupost!cs.utexas.edu!sun-barr!ames!agate!dog.ee.lbl.gov!network.ucsd.edu!nic!netlabs!lwall
  2. From: lwall@netlabs.com (Larry Wall)
  3. Newsgroups: comp.lang.perl
  4. Subject: Re: small clip problems
  5. Message-ID: <1992Jul24.183121.29243@netlabs.com>
  6. Date: 24 Jul 92 18:31:21 GMT
  7. References: <X920031.92Jul24112758@rubb.rz.ruhr-uni-bochum.de>
  8. Sender: news@netlabs.com
  9. Organization: NetLabs, Inc.
  10. Lines: 34
  11. Nntp-Posting-Host: scalpel.netlabs.com
  12.  
  13. In article <X920031.92Jul24112758@rubb.rz.ruhr-uni-bochum.de> x920031@rubb.rz.ruhr-uni-bochum.de (Jost Krieger) writes:
  14. : I got clip running fine with perl 4.0.35 on a MIPS machine (I just had
  15. : to comment out the setpriority, because the last compile was in the
  16. : SYSV environment.)
  17. : 
  18. : Now clip clips all the interesting stuff, and I'm interested in a lot
  19. : of things. Say python, the programming language/environment. So I write in my
  20. : .cliprc:
  21. : 
  22. : &SCANNER(<<'END');
  23. :  study;
  24. :  &hit if /\b[Pp]ython/;
  25. :  &hit if /\b[Pp]erl/;
  26. :  &hit if /\balex\b/;
  27. :  &hit if /\bWAIS\b/;
  28. : END
  29. : 
  30. : among other things. Whoops, I got a lot of witty sayings from Monty Python.
  31. : 
  32. : So I change to:
  33. : 
  34. :  if (/\b[Pp]ython/) {{
  35. :     next if $` =~/Monty/;
  36. :     &hit;
  37. :  }}
  38. : 
  39. : as the man page directs me. All clipping stops. Doesn't that trick
  40. : work any more in .35 ?
  41.  
  42. It ought to work.  Perhaps there's something weird about how perl was
  43. compiled.  Maybe you should try compiling it back in the BSD environment
  44. and see if it makes any difference.
  45.  
  46. Larry
  47.