![]() |
![]() |
|
|
|||||||
| 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:
: Gottesdienst-Zeiten
____________________________________
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
, wollte es eigentlich von news4condoman hören. |
|
|
|
![]() |
| Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|