#!/usr/bin/perl -w use strict; -d "autogen" or mkdir "autogen", 0755; open IDXALL, ">indxal.htm" or die $!; print IDXALL < Loser Plateau area : Cave description index

Kataster Gruppe 1623:
Loser Augst-Eck - INDEX

END <>; # eat header line while (<>) { chomp; y/\t/ /; $_ = "\",$_,\""; s/","/\t/g; s/\\"/"/g; my ($dummy, $kat_num, $kat_status, $ents, $other_number, $file, $name, $x4, $x5) = split /\t/, $_; my $number = $kat_num; if ($number eq "") { $number = $other_number; $other_number = ""; } my $e = $ents; $e =~ s/ +/ /g; #print IDXALL "

$number $e

"; print IDXALL "

!i) { $n = $1; last; } } close FILE; if (!defined $n) { print STDERR "no name found in $f for $number\n"; } else { my $n2 = $n; my $name2 = $name; $n2 =~ s/ $.*$$//; $name2 =~ s/ $.*$$//; $n2 =~ s/ CUCC\b//; $name2 =~ s/ CUCC\b//; if ($name2 =~ m!^\Q$n2\E(?:[ /]\Q$number\E)?$!i) { #print STDERR "OK $number $n\n"; } else { print STDERR "BAD $number : `$n' != `$name' in $f\n"; } } } } if ($name eq "") { $name = "?"; } print IDXALL $name; if (length $x4) { print IDXALL " ($x4)"; } if (length $other_number) { print IDXALL " ($other_number)"; } if (length $file) { print IDXALL ""; } if (length $x5) { print IDXALL " - $x5"; } #print IDXALL "\n"; print IDXALL "\n"; } print IDXALL <-->

$number $e

"; if ($file eq "" && $number !~ m!/!) { $file = "autogen/$number.htm"; open FILE, ">$file" or die $!; print FILE < END if ($kat_num ne "") { print FILE "1623:$kat_num\n"; } else { print FILE "$number\n"; } print FILE <<END;