--- trunk/import_xml/convert_delimiter.pl 2004/03/14 17:16:21 280
+++ trunk/import_xml/convert_delimiter.pl 2004/03/14 19:43:51 285
@@ -14,7 +14,7 @@
close(XML);
- 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)"(\s[^>]*)>(.*?)\1>,<$1$2$4>\n\t\t\t$3\n\t\t\t$5\n\t\t$1>,gis) {
open(XML,"> $file-new") || die "can't create '$file-new': $!";
print XML $xml;
close(XML);