in reply to Re: Re: File::FInd subfolders
in thread File::FInd subfolders

No. What I mean is that instead of $File::Find::name you should use $_: 

my $folder = '//..';
find (\&process, $folder);

sub process {
  if ( $_ =~ /\learn$/ ) {
    open (FILE, '<', $_ ) or
    die "Cannot open file: $!";
    while (  $line = <FILE> ) {
      $/= "# input for";
      $line  =~  s/.....;
      push(@outLines, $line );
    }
    print to outputfile...
  }
}

[download]

Jenda
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live.
   -- Rick Osborne

Edit by castaway: Closed small tag in signature

In Section Seekers of Perl Wisdom