| ||||||||||||||||||||||||
![[Date Prev]](/grafix/mhonarc/prev.png)
![[Kronologisk oversigt]](/grafix/mhonarc/up.png)
![[Date Next]](/grafix/mhonarc/next.png)
|
|
|
|||||||||||||||||||||||||
|
|||||||||||||||||||||||||||
|
|
|
|||||||||||||||||||||||||
Tak for svarene, scriptet endte med at se sådan her ud, og det virker fint efter hentigten
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<font size=+2>\n";
print "<body bgcolor=000000 text=6666ff>\n";
print "<a href=/admin>Webserver administration</a><br>\n";
foreach $i (</home/*>) {
$i =~ s/\/home\///;
unless ($i eq "httpd" || $i eq "ftp" || $i eq "lost+found") {
print "<center><a href=/~$i>$i</a></center>\n";
}
}
print "</font>\n</center>\n";
Jeg sad selv og grublede over det, blev enig med mig selv om at KISS stadig er Okay... ;))
/Jesper
----- Oprindelig meddelelse -----
Fra: "Ole Tange" <sslug@sslug>
Til: <sslug@sslug>
Sendt: 16. november 2000 13:03
Emne: Re: [PERL] Foreach på et antal biblioteksnavne i CGI
> On Thu, 16 Nov 2000, Jesper Lund wrote:
>
> > Jeg vil lave et script, der kan lave et link til alle brugernes homedir.
>
> Er det så ikke hellere noget ala:
>
> while(($u,$uid)=(getpwent)[0,2]) {
> $uid < 100 and next; # De er ikke rigtige brugere
> print '<A HREF="/~',$u,'">',$u,'</A><BR>';
> }
>
> /Ole
> --
> SSLUGs julefrokost. Onsdag d. 13/12
> http://www.sslug.dk/moede/hygge/2000-12-13/
|
|
|
||||||||||||
|
||||||||||||||
| ||||||||||||||
|
||||||||||||||
|
|
|
||||||||||||