Re: Search Directory

Tested & working

#!/Perl/bin/perl

use strict;
use warnings;

my $dir = 'c:/';
my $file = 'autoexec.bat';

opendir(DIR,$dir);
print "found" if grep /$file/,readdir(DIR) ;
closedir(DIR);
[download]

so you can adapt that line to last if grep /$file/,readdir(DIR) ; to make your loop exit early

Grygonos

Comment on Re: Search Directory Select or Download Code

Replies are listed 'Best First'.
Re^2: Search Directory by Anonymous Monk on Feb 01, 2005 at 19:54 UTC
Hi, Getting this back: `Software error: Can't "last" outside a loop block` [download] Anyone knows why?	[reply] [d/l]
Re^3: Search Directory by Grygonos (Chaplain) on Feb 01, 2005 at 20:02 UTC
yes, its a very desriptive error. It means you tried to cut and paste the last statement i provided into your program and didn't put that statement inside a loop construct.. so perl says "Last?!? ... last what?" Grygonos	[reply]