--- trunk/import_xml/convert_delimiter.pl 2004/03/14 19:43:51 285
+++ trunk/import_xml/convert_delimiter.pl 2004/03/14 19:50:13 287
@@ -14,7 +14,7 @@
close(XML);
- 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) {
+ 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) {
open(XML,"> $file-new") || die "can't create '$file-new': $!";
print XML $xml;
close(XML);