Re: Sweeping Directories

[david nicol]

david nicol wrote:


>         $Filename = $_;
>         while (<IN>){
>                 s/\bacme\b/Fuzzball/gi;
>                 print OUT;
> 
>         };

if that doesn't work, perhaps

         $Filename = $_;
         select OUT;
         while (<IN>){
                 s/\bacme\b/Fuzzball/gi;
                 print;
 
         };
         select STDOUT

will.  Or the clearer

                print OUT $_;