Schau dir mal folgendes Skript an, hab ich mal für dich geschriebn, vielleicht wirds dann klarer:
#!/usr/bin/perl
use strict;
sub escape {
$_[0] =~ s/([^\w\.\~\-])/'%' . unpack("H8", $1)/eg;
return($_[0]);
}
print("Content-Type: text/html\n\n");
print("<html>\n<head>\n<title>Index</title>\n</head>\n\n<body>\n");
opendir(DIR, ".");
while (defined(my $file = readdir(DIR))) {
printf("<a href=\"%s\">%s</a><br>\n", &escape($file), $file);
}
print("</body>\n</html>");
Die Sub escape() sollte dir helfen für Files. Wenn du generell Escapen willst, solltest du die Klasse in der RegEx in dieser allerdings u. U. etwas erweitern, etwa so [^\w\.\/\?\=\&\#\~\-], aber wenn dus für eben Filesnamen verwedest sollten Zeichen wie z. B. das '?' (Sofern man so was wirklich in einem File-Namen braucht. Ich zweifel ja da dran ob man sich nicht einfach auf alphanumerische Zeichen beschränken sollte...) wohl besser escaped werden, da der Server das Nachfolgende sonst IMHO als Query interpretiert.
Ach ja und 100% sicher bin ich mir mit den Sonderzeichen in der Klasse leider auch ned, leider hab ich bisher keine Beschreibung gefunden welche Zeichen denn nun escaped werden müssen und welche nicht, bzw. welche nicht escaped werden dürfen, ich denke aber das oben erwähnte '?' fällt darunter. However zur Not, in deinem Fall escape alles, wenn was ned klappt, den ganzen Filenamen das wird zwar sau unleserlich aber würde (müsste wenn ales korrekt implementiert ist)gehen...