grep or readdir taking long time

[gregaug]

hello,

I have a page that uses a passed in number ($currnum), then checks if any files exist for that number from the specified page. For some reason, the page tends to slow down a lot at the readdir line, and, thru testing, I am positive it is that line. This is chunk of code as it currently stands, but I have had the \Q before the ^, as well as not there at all. Does anyone have any idea on what could be slowing it down so much at this spot? Any help is appreciated.

my $DIR = $ROOT.'temp';
opendir(DR,$DIR);
my $spot='page82.'.$currnum;
@EDITS = grep /^\Q$spot/, readdir DR;

 

[KevinADC]

You don't need \Q at all from what I can see.

my $DIR = $ROOT.'temp';
opendir(DR,$DIR) or die "$!";
my $spot= "page82$currnum";
@EDITS = grep /^$spot/, readdir DR;
close DR;

could be there are just a ton of files in the directory?

 

[gregaug]

I'm wondering if there are just significantly more in here than elsewhere. Does anyone have any clue how long it takes to grep?

 

[MikeLacey]

I wonder how many times that regex in the grep call is evaulated...

Try this:

@EDITS = grep /^$spot/o, readdir DR;


Mike

I am not inscrutable.

Want great answers to your Tek-Tips questions? Have a look at faq219-2884