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

["John Mørck Hansen" <sslug@sslug>]

"Christian Borup" <sslug@sslug> skrev:
>
> 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;

Det har du ret i. Jeg fandt selv ud af det lidt senere :)
Min løsning ser så således ud:

   if( @ARGV >= 1 && -d $ARGV[0] )
   {
      opendir DIR, $ARGV[0];
      @dir= grep { !/^\./ && -d $ARGV[0]."/".$_ } readdir DIR;
      closedir DIR;
      ...
   }


(John =;-)