On 18 Sep 2006 at 15:05, John W. Krahn wrote:

> Emilio Casbas wrote:
> > I have this script;
> > 
> > -------
> > use File::Find;
> > 
> > $File::Find::no_chdir = 0;
> > find(\&wanted, @ARGV);
> > 
> > sub wanted {
> >        print "$File::Find::name\n" if(-d);
> >        }
> > 
> > -------
> > 
> > I want to do a directory search for a given ARG, but no a recursive
> > search, for example
> > this script show this;

> my $dir = '/tmp';
> 
> opendir my $dh, $dir or die "Cannot open '$dir' $!";
> 
> print "$dir\n",
>       map !/\A\.\.?\z/ && -d "$dir/$_" ? "$dir/$_\n" : (),
>       readdir $dh;
> 
> John


That's looks nice John...but what is actually happening here. Some 
sort of negation of \A (is that a character class?) and a directory 
and/or something with a newline??? 

Could you help us mortals understand. 
Thanx.  


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to