linux-l: Perlsuche

JSC schlegel at tfh-berlin.de
Fr Apr 13 14:03:31 CEST 2001


On Fri, Apr 13, 2001 at 12:37:08AM +0200, Duncan Rubinger wrote:
> > ls */public_html
> 
> Aber leider nicht in Perl ...
> 
abgeleitet aus: perldoc -f readdir

opendir(DIR, "/home") || die "can't opendir /home: $!";
@dirs = grep { ! /^\./ && -d "/home/$_/public_html" } readdir(DIR);
closedir DIR;
print join("\n", at dirs),"\n";

bye
Jens
-- 
 --------------------------------------------------------------
| Jens Schlegel                                                |
| TFH Berlin         email: schlegel at tfh-berlin.de             |
 --------------------------------------------------------------



Mehr Informationen über die Mailingliste linux-l