Re^2: I need "Antigrep"

[tphyahoo]

in reply to Re: I need "Antigrep"
in thread I need "Antigrep"

Unfortunately doesn't work.

hartman@ds0207:~/filesContainingArena> find | xargs hartman@ds0207:~/f
+ilesContainingArena> find | xargs ./antigrep.pl c
.
./a
./b
./c

Maybe I can use that as a starting point though, so....

UPDATE: Thanks for the update, Ikegami :)

[ikegami]

Fixed. $fh was going out of scope prematurely when I used

   if (!open(my $fh, '<', $filename)) {
      warn("Unable to open $filename: $!\n");
      next;
   }

I'm not sure how xargs works, but I tested it using antigrep.pl c *