home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / lang / perl / 4933 < prev    next >
Encoding:
Internet Message Format  |  1992-07-23  |  1.4 KB
  1. Path: sparky!uunet!dtix!darwin.sura.net!Sirius.dfn.de!rz.ruhr-uni-bochum.de!rubb!x920031
  2. From: x920031@rubb.rz.ruhr-uni-bochum.de (Jost Krieger)
  3. Newsgroups: comp.lang.perl
  4. Subject: small clip problems
  5. Message-ID: <X920031.92Jul24112758@rubb.rz.ruhr-uni-bochum.de>
  6. Date: 24 Jul 92 09:28:01 GMT
  7. Sender: x920031@rubb.rz.ruhr-uni-bochum.de (Jost Krieger)
  8. Organization: Ruhr-Universitaet Bochum, Rechenzentrum
  9. Lines: 34
  10.  
  11. I got clip running fine with perl 4.0.35 on a MIPS machine (I just had
  12. to comment out the setpriority, because the last compile was in the
  13. SYSV environment.)
  14.  
  15. Now clip clips all the interesting stuff, and I'm interested in a lot
  16. of things. Say python, the programming language/environment. So I write in my
  17. .cliprc:
  18.  
  19. &SCANNER(<<'END');
  20.  study;
  21.  &hit if /\b[Pp]ython/;
  22.  &hit if /\b[Pp]erl/;
  23.  &hit if /\balex\b/;
  24.  &hit if /\bWAIS\b/;
  25. END
  26.  
  27. among other things. Whoops, I got a lot of witty sayings from Monty Python.
  28.  
  29. So I change to:
  30.  
  31.  if (/\b[Pp]ython/) {{
  32.     next if $` =~/Monty/;
  33.     &hit;
  34.  }}
  35.  
  36. as the man page directs me. All clipping stops. Doesn't that trick
  37. work any more in .35 ?
  38.  
  39. Jost
  40. --
  41. -- 
  42. Jost Krieger, Rechenzentrum der Ruhr-Universitaet Bochum
  43. x920031@rubb.rz.ruhr-uni-bochum.de
  44. g=Jost;s=Krieger;ou=ruba;ou=rz;pd=ruhr-uni-bochum;ad=dbp;c=de
  45. -- 
  46. -- 
  47. Jost Krieger, Rechenzentrum der Ruhr-Universitaet Bochum
  48. x920031@rubb.rz.ruhr-uni-bochum.de
  49. g=Jost;s=Krieger;ou=ruba;ou=rz;pd=ruhr-uni-bochum;ad=dbp;c=de
  50.