Opened by skontox at 2003-08-27 12:48
User since
2003-08-11
265 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-11
265 Artikel
BenutzerIn
Achso, Du willst einfach alles was auf Deinem Webspace liegt über eine HTML Seite ansehen?
Dann lese einfach die Verzeichnisstruktur rekursiv aus und formatiere die Ausgabe in hübschem HTML.
Dazu brauchst Du nichtmal ein Modul... Aber mit File::FInd geht es am leichtesten.
Mit File::Find
Dann lese einfach die Verzeichnisstruktur rekursiv aus und formatiere die Ausgabe in hübschem HTML.
Dazu brauchst Du nichtmal ein Modul... Aber mit File::FInd geht es am leichtesten.
Mit File::Find
Code: (dl
)
1
2
3
@ARGV = qw(.) unless @ARGV;
use File::Find;
find sub { print $File::Find::name,"\n<br>\n" }, @ARGV;
http://hamburg.pm.org
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}
jeden 2. mittwoch im monat
--
#!/usr/bin/perl -w
$l=join('',map chr,(116,110,105,114,112))if$^T;
!!$$?@_=qw(Jhfg Aabgure Prey Hnpxre):$l=1;
for(@_){eval reverse($l)."'"._(_(_($_))).' \''}
sub _{$_=~y+a-z+n-za-m+and pop}