Parent Directory | Revision Log
merge changes from trunk to branches, converted all import_xml
1 | dpavlin | 280 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | |||
5 | |||
6 | foreach my $file (@ARGV) { | ||
7 | |||
8 | open(XML,$file) || die "can't open '$file': $!"; | ||
9 | |||
10 | my $xml; | ||
11 | while (<XML>) { | ||
12 | $xml .= $_; | ||
13 | } | ||
14 | |||
15 | close(XML); | ||
16 | |||
17 | 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) { | ||
18 | open(XML,"> $file-new") || die "can't create '$file-new': $!"; | ||
19 | print XML $xml; | ||
20 | close(XML); | ||
21 | |||
22 | rename "$file-new","$file" || die "can't update original file '$file' with '$file-new': $!"; | ||
23 | |||
24 | print "$file converted\n"; | ||
25 | } | ||
26 | } | ||
27 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |