Ed Christian wrote:
>> #!/usr/bin/perl
>>
>> +
>> use warnings;
>> use strict;
>> use File::Find;
>>
>> find sub {
>> return unless -f;
>> return unless $_ =~ /.\d+$/;
>> print "$_\n";
>> #print "$File::Find::name\n";
>>
>> +
>> open(SD, "$_") or die "can't open $_ $!\n";
>> #my $fh = IO::File->new("> /tmp/savedata/new/$_") or die
>> "Coul +dn't open new for writing: $! \n";
>> open(MY, "> /tmp/savedata/new/$_") or die "can't open new $_
>> $ +!\n";
>
> Why are you repeatedly opening and closing the file within the "find"
> subroutine? You're overwriting the file every time by opening with
> ">" and not ">>". Either place your open outside the find, or use
> append mode.
Er, that is, if your find subroutine recurses through directories and
finds the same filename nested deeper within the search path. Ignore the
"open outside the find" comment as just plain silly. :)
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
