home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / lang / perl / 5294 < prev    next >
Encoding:
Internet Message Format  |  1992-08-12  |  820 b 
  1. Path: sparky!uunet!gatech!bloom-beacon!eru.mt.luth.se!lunic!sunic!dkuug!uts!id.dth.dk!ej
  2. From: ej@id.dth.dk (Erik Johansen)
  3. Newsgroups: comp.lang.perl
  4. Subject: How do I determine if variable is tainted
  5. Keywords: perl taint
  6. Message-ID: <1992Aug13.091038.28195@id.dth.dk>
  7. Date: 13 Aug 92 09:10:38 GMT
  8. Organization: Department of Computer Science
  9. Lines: 17
  10.  
  11.  
  12. I have been puzzled for some time because of a script
  13. that stops because of an unsecure dependency in an eval.
  14.  
  15. What I really want is if anyone has a routine for listing
  16. all the variables that are tainted.
  17.  
  18.  
  19. - Erik
  20.  
  21. ---
  22.  $txt=" ltrterhnuc--sor eep-\nkJ.a "; srand(53747414);
  23.  for (1..26) { print substr($txt,rand 27,1); }  ### Is this a random write ?
  24. -- 
  25. ---
  26. Erik Johansen                  E-mail: ej@id.dth.dk
  27. Institute for Computer Science, Copenhagen, Denmark
  28.