Карта сайта Клуба Скептиков обычным текстом (без JavaScript)

Карта сайта Клуба Скептиков

#!/usr/bin/perl print "Content-type: text/html\n\n"; # $doc_root=$ENV{'DOCUMENT_ROOT'}; # $doc_uri = $ENV{'DOCUMENT_URI'}; # $sec_name="$doc_root/sections.txt"; # $sec_name =~ s|//|/|g; $file_name="map.txt"; open (FILE, "$file_name"); @LINES=; # chomp(@LINES); close(FILE); foreach $line (@LINES) { ($link, $name, $comment) = split(/;/, $line); if ($name ne '') { chomp($name); print "

$name"; if ($comment ne '') { chomp($comment); print " ($comment)"; } print "\n"; } else {print $line;} }