projects
/
webpac
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
8b0ab35
)
preserve other attributes
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 14 Mar 2004 19:43:51 +0000
(19:43 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Sun, 14 Mar 2004 19:43:51 +0000
(19:43 +0000)
git-svn-id: file:///home/dpavlin/private/svn/webpac/trunk@285
13eb9ef6
-21d5-0310-b721-
a9d68796d827
import_xml/convert_delimiter.pl
patch
|
blob
|
history
diff --git
a/import_xml/convert_delimiter.pl
b/import_xml/convert_delimiter.pl
index
230cd2a
..
44c117f
100755
(executable)
--- a/
import_xml/convert_delimiter.pl
+++ b/
import_xml/convert_delimiter.pl
@@
-14,7
+14,7
@@
foreach my $file (@ARGV) {
close(XML);
- if ($xml =~ s,<(\w+)
\s+delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"\s*>(.*?)</\1>,<$1>\n\t\t\t<delimiter>$2</delimiter>\n\t\t\t<value>$3
</value>\n\t\t</$1>,gis) {
+ if ($xml =~ s,<(\w+)
(\s+[^>]*)delimiter\s*=\s*"(\s[^"]+|[^"]+\s)"(\s[^>]*)>(.*?)</\1>,<$1$2$4>\n\t\t\t<delimiter>$3</delimiter>\n\t\t\t<value>$5
</value>\n\t\t</$1>,gis) {
open(XML,"> $file-new") || die "can't create '$file-new': $!";
print XML $xml;
close(XML);