RE: [PERL] Foreach på et antal biblioteksnavne i CGI

["Jesper Dalberg" <sslug@sslug>]

> Hej !
>
> Jeg vil lave et script, der kan lave et link til alle brugernes homedir.
>
> Jeg har lavet noget med:
>
> foreach $i (</home/*>) {
>     print "<a href=\"~$i\">$i</a><br>\n";
> }
>
>
> Men, når denne løkke er udført, laver den kun et link: /~/home/
>
> Og det dur ikke, hvordan får jeg den til at læse alle navne der
> er i /home ?

Det kunne være noget som dette....

my $dir="/home";
my ( @users, $n );

opendir(D,$dir);
while ($n=readdir(D)){
 push @users, $n if (-d "$dir/$n");
}
print "brugere:\n", (join ",", @users),"\n";


mvh,
Jesper