Re: [PERL] [Newbie] Dir liste ???

[Christian Borup <sslug@sslug>]

"John Mørck Hansen" wrote:

> "Christian Borup" <sslug@sslug> skrev:
> >
> > Du har brug for opendir, readdir og closedir.
> >
> >     opendir DIR, ".";
> >     @dir= grep { -d $_ } readdir DIR;
> >     closedir DIR;
>
> Hvorfor virker det ikke hvis jeg bruger $ARGV[0] eller bare skriver "/" i
> opendir ?

Fordi du ikke er i det dir du lister hvorfor -d fejler (tsk tsk du har ikke
læst perldoc -f readdir :-). Følgende virker bedre:

     $dir= "foobar";
     opendir DIR, ".";
     @dir= grep { -d "$dir/$_" } readdir DIR;
     closedir DIR;

./borup