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>
