卡塞尔 & 格林兄弟童话与世界紧密相连

2009年的活 动


/>/g; $ret =~ s/"/"/g; $ret =~ s/\n/
\n/g if $use_br; return $ret; } sub read_event { my $use_br = shift; @events = (); open FR, "< $event_file"; while () { chomp; next if !length($_); if ($use_br) { $_ =~ s/\\n/\n/g; $_ = HTMLenc($_,1); } my ($jahr1,$mon1,$tag1,$mon2,$tag2,$ort,$bild,$abstr) = split /\t/,$_,8; next if length($jahr1)<4; $jahr1 = sprintf "%04d", $jahr1; $mon1 = sprintf "%02d", $mon1; $tag1 = sprintf "%02d", $tag1; $mon2 = sprintf "%02d", $mon2; $tag2 = sprintf "%02d", $tag2; push @events, "$jahr1\t$mon1\t$tag1\t$mon2\t$tag2\t$ort\t$bild\t$abstr"; } close FR; } ##################################### read_event(1); print "\n"; my $o_mon = -1; foreach (reverse sort @events) { my ($jahr1,$mon1,$tag1,$mon2,$tag2,$ort,$bild,$abstr) = split /\t/,$_,8; # my $von = ($mon1?$mon1."\xd4\xc2":'').($tag1?$tag1."\xc8\xd5":''); my $von = ($tag1?$tag1."\xc8\xd5":''); my $bis = " - ".($mon2+0?$mon2."\xd4\xc2":'').($tag2+0?$tag2."\xc8\xd5":'') if $mon2+$tag2; my $pic = $bild || 'leer.jpg'; if ($o_mon ne $mon1) { print "\n"; $o_mon = $mon1; } print <<"HTML"; HTML } print "
$jahr1/$mon1\xc8\xd5
$von
$bis
$ort
\n"; ####################################### !>