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

新闻


/>/g; $ret =~ s/"/"/g; $ret =~ s/\n/
\n/g if $use_br; return $ret; } sub read_news { my $use_br = shift; %news = (); %sort = (); open FR, "< $news_file"; while () { chomp; if ($use_br) { s/\\n/
\n/g; } else { s/\\n/\n/g; } my ($f,$sort,$ueber,$abstr,$long) = split /\t/,$_,5; next if !length($f); $news{$f} = [$sort,$ueber,$abstr,$long]; $sort{$f} = $sort; } close FR; } ##################################### read_news(0); $z = scalar keys %news; $i = $z*10; print "\n"; foreach my $f (sort {$news{$b}[0] <=> $news{$a}[0]} keys %news) { my ($sort,$ueber,$abstr,$long) = @{$news{$f}}; $sort = HTMLenc($sort,1); $ueber = HTMLenc($ueber,1); $abstr = HTMLenc($abstr,1); print <<"HTML"; HTML } print "
\n"; ####################################### !>