Re: Exceeding CPU Limit

it is really hard to read your code. way to many global variables, duplicated code, bad formating and it even does not compile here.

Can you refactor your code a little bit? Maybe this function helps you.

use strict;
use warnings;

use English qw( -no_match_vars ) ;
use Data::Dumper;

sub get_files_in_directory {
    my ( $dir, $filter ) = @_;
    opendir my $DIR, $dir or die "Can't open $dir: $OS_ERROR";
    my @files = grep {/$filter/} readdir($DIR);
    closedir $DIR;
    return @files;
}

# print every file in tmp starting with 'N'
print Dumper( get_files_in_directory( '/tmp', qr/^N/ ) );
[download]

perltidy is a great tool if you are too lazy to format your code nicely.

Comment on Re: Exceeding CPU Limit Download Code

Replies are listed 'Best First'.
Re^2: Exceeding CPU Limit by davidrw (Prior) on Mar 24, 2006 at 16:10 UTC
or can also use File::Find::Rule or similar: `my @files = File::Find::Rule->file()->name( qr/^N/ )->maxdepth(1)->in( + '/tmp/' );` [download] Note that that will return full paths ..	[reply] [d/l]