#!/usr/bin/perl -w use strict; use warnings; use utf8; use open qw(:std :utf8); use integer; $| = 1; # Filter_4_07_insert_div.pl # 2010-08-17 # Wolfgang Schmidle # Version für Chinesisch: Unterschiede zu westlichen Texten? # dieses Skript besser als XSLT, Vorbild das TEI-Skript? # text input my @text; while(<>) { push @text, $_; } # go through the text my $inText = 0; my $letztesElementWarHead = 0; my $letztesElementWarDiv = 0; foreach (@text) { if (/'; next; } next unless $inText; next if s!!\n\n!g; next if m!^ *$!; # Leerzeile if (m!]!) { $letztesElementWarDiv = 1; next; } if (m!!) { unless ($letztesElementWarHead || $letztesElementWarDiv) { $_= ''."\n".'

'."\n$_"; } } $letztesElementWarHead = 0; if (m!!) { $letztesElementWarHead = 1; } $letztesElementWarDiv = 0; } # geänderten Text ausgeben # print @text; printInOutputTextFile(@text); # TO DO: # keine

einfügen innerhalb von

und

# keine

einfügen innerhalb von tables # aber stimmt das? Problem von in in TEI