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