SHARE
TWEET

Untitled

a guest Jul 11th, 2017 101 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # Programmer:    Greg Hill
  2.  
  3. # Date Modified: 01/01/2004
  4.  
  5.  
  6.  
  7. #!/perl/bin/
  8.  
  9. # Usage: perl c:\documents\*.txt "Greg Hill"
  10.  
  11.  
  12.  
  13. $fnd = "found.tx_";
  14.  
  15. open(OUTPUT, ">$fnd") or die("Cannot open output names list.\n");
  16.  
  17. @wildCard = ($ARGV[0]);
  18.  
  19. foreach $f (<@wildCard>) {
  20.  
  21. $fcnt++;
  22.  
  23. print "Searching in > $fcnt - $f\n";
  24.  
  25. open(IN, $f) || die "Can not open it";
  26.  
  27. $cnt = 0;
  28.  
  29.  
  30.  
  31. $inFile = $ARGV[0];
  32.  
  33. $cText = $ARGV[1];
  34.  
  35.  
  36.  
  37. while (<IN>) {
  38.  
  39.    print IN;
  40.  
  41.    $cLine = substr($_,70, length($_)-70);
  42.  
  43.    print (OUTPUT "$_\n\n");
  44.  
  45.    }
  46.  
  47.    $cnt++;
  48.  
  49.    $cntPrint = $cnt+1
  50.  
  51. }
  52.  
  53.  
  54.  
  55.  
  56.  
  57. print "results are saved to found.tx_";
  58.  
  59. close(OUTPUT)
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top