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

[Jacob Eiler <sslug@sslug>]

use CGI qw(escapeHTML);

my $home = "/home";

opendir(HOME, "$home") || die "Unable to open $home: $!\n";
my @users = grep(-d "/home/$_", readdir(HOME));
close(HOME) || warn "Unable to close $home: $!\n";

foreach my $user (@users) {
  print qq[<a href="$home/$user/">], escapeHTML("$home/$user"),
"</a><br>\n";
}

/eiler

Jesper Lund wrote:
> 
> 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 ?
> 
> Mvh. Jesper


-- 
Jacob Eiler - Software Developer - sslug@sslug
                      --- o ---
'The time has come,' the  Walros said, 'to talk of
many things.'                       -- Lewis Carroll