![](https://seccdn.libravatar.org/avatar/7b33cb1e776e35b87edb8ef09f0c888f.jpg?s=120&d=mm&r=g)
On Son, 16 Sep 2001, Thilo A. Coblenzer wrote:
Ich würde gerne ein Skript bauen, daß die Favoriten des MS Internetexplorers (bitte nicht schlagen!) auf einer html-Seite als Links darstellt. Leider habe ich überhaupt keine Idee, wie ich die Verzeichnisstruktur auslesen und samt Links in einen html-Code bekomme!
Hm. Ein perlscript duerfte gut geeignet sein...
Ein spontan hingeschriebenes und minimal getestetes Beispiel:
==== ieurls2html.pl ====
#!/usr/local/bin/perl -w
use strict;
use File::Find;
use File::Basename;
use Carp;
my $FAVDIR = "/winc/windows/Favoriten";
my $HTMLNAME = "$ENV{HOME}/Desktop/IE-Urls.html";
my $indent = " ";
my @files;
sub print_header {
print HTML q[
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//DE">
<html>
<head>
<title>IE Urls</title>
</head>
<body><p>
];
}
sub print_footer {
print HTML "</p>\n</body>\n</html>\n";
}
sub wanted {
-f && push(@files, $File::Find::name);
}
#### MAIN ####
unless(-d $FAVDIR) {
croak "ERROR: $FAVDIR is not a directory: $!";
exit 1;
}
finddepth(\&wanted, $FAVDIR);
open(HTML, ">$HTMLNAME") or die "Can't open $HTMLNAME: $!";
&print_header;
my $oldlevel = 0;
foreach my $file (@files) {
chomp $file;
my $subdir = dirname($file) . '/';
$subdir =~ s¡$FAVDIR/?¡/¡;
my $title = basename($file);
chomp $title;
$title =~ s/\.url//;
my $level = ( $subdir =~ tr/\/// );
if ($level > $oldlevel) {
print HTML "<br>\n