--- branches/humanistika/import_xml/convert_delimiter.pl 2004/03/14 19:44:57 286
+++ branches/humanistika/import_xml/convert_delimiter.pl 2004/03/14 20:34:24 291
@@ -14,7 +14,11 @@
close(XML);
+<<<<<<< .working
if ($xml =~ s,<(\w+)\s+delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"\s*>(.*?)\1>,<$1>\n\t\t\t$2\n\t\t\t$3\n\t\t$1>,gis) {
+=======
+ if ($xml =~ s,<(\w+)(\s+[^>]*)delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"([^>]*)>(.*?)\1>,<$1$2$4>\n\t\t\t$3\n\t\t\t$5\n\t\t$1>,gis) {
+>>>>>>> .merge-right.r290
open(XML,"> $file-new") || die "can't create '$file-new': $!";
print XML $xml;
close(XML);