| Current Path : /var/www/web-klick.de/dsh/91_archiv/mail07/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/91_archiv/mail07/link.pl |
open(DIR,"<link.txt");
open(DDIR,">link.html");
while ( $z = <DIR> ) {
chop($z);
if ( $z =~ /S:(.*?)(\s+)(.*)/ ) {
print DDIR "<A HREF=https://" . $1 . "> " . $3 . "</A> <BR>\n";
} elsif ( $z =~ /(.*?)(\s+)(.*)/ ) {
print DDIR "<A HREF=http://" . $1 . "> " . $3 . "</A> <BR>\n";
} else {
print DDIR "<H3> " . $z ."</H3><P>\n";
}
}
close(DIR);
close(DDIR);