![]() |
![]() |
|
![]() |
![]() |
|
Programmierung Rat & Tat für Programmierer |
![]() |
|
Themen-Optionen | Ansicht |
![]() |
#1 |
Newbie
![]() Registriert seit: 05.09.2001
Beiträge: 11
|
![]() hi!
ich habe einen ordner mit mehreren 100 html sieten. jetzt möchte ich eine seite erstellen mit links zu all diesen daten. wie kann ich das automatisch machen lassen? gibt es da ein progi? |
![]() |
![]() |
![]() |
#2 |
Elite
![]() Registriert seit: 26.06.2001
Alter: 54
Beiträge: 1.351
|
![]() installier dir phase 5 html editor, erstelle eine neue seite, öffne den ordner mit den fertigen pages, dann klick dich durch. und zwischendurch abspeichern nicht vergessen. geht sicher ruckzuck
![]() fluffster ![]() |
![]() |
![]() |
![]() |
#3 | |
Hero
![]() |
![]() Zitat:
![]()
____________________________________
Bibel |
|
![]() |
![]() |
![]() |
#4 |
Inventar
![]() Registriert seit: 24.09.2001
Beiträge: 7.335
|
![]() Code:
#!/usr/bin/perl -w use strict; use File::Find; use URI::Escape; use HTML::Entities; my $startdir = $ARGV[0]; my $htmlfile = $ARGV[1]; if( $startdir eq '' or $htmlfile eq '') { usage(); exit; } open(OUT, ">$htmlfile") or die "Schreibfehler '$htmlfile' -$!\n"; print OUT << "__START__"; <html> <head> <title>Verzeichnislisting für $startdir</title> </head> <body> <h1>$startdir</h1> __START__ find(\&link, $startdir); print OUT << '__ENDE__'; </body> </html> __ENDE__ close(OUT); exit; sub link { return() if( $_ eq '.' or $_ eq '..'); print OUT "<a href=\"" . uri_escape($File::Find::name) . "\"> " . encode_entities($_) . "</a> \n"; } sub usage { print STDERR << '__UND_AUS__'; make_index.pl dir html-file dir ... Das Directory, das indiziert werden soll html-file ... Das File, in das der Index geschrieben werden soll __UND_AUS__ };
____________________________________
Weiterhin zu finden auf http://martin.leyrer.priv.at , http://twitter.com/leyrer , http://www.debattierclub.net/ , http://www.tratschen.at/ und via Instant Messaging auf Jabber: m3 <ät> cargal.org . |
![]() |
![]() |
![]() |
#5 |
Elite
![]() Registriert seit: 26.06.2001
Alter: 54
Beiträge: 1.351
|
![]() pfoa, cool. und funkts?
![]() |
![]() |
![]() |
![]() |
#6 |
Inventar
![]() Registriert seit: 24.09.2001
Beiträge: 7.335
|
![]() Was glaubst Du denn?
![]() ![]() ![]()
____________________________________
Weiterhin zu finden auf http://martin.leyrer.priv.at , http://twitter.com/leyrer , http://www.debattierclub.net/ , http://www.tratschen.at/ und via Instant Messaging auf Jabber: m3 <ät> cargal.org . |
![]() |
![]() |
![]() |
#7 |
Elite
![]() Registriert seit: 26.06.2001
Alter: 54
Beiträge: 1.351
|
![]() jaja, glaub ich schon
![]() |
![]() |
![]() |
![]() |
Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|