Parent Directory | Revision Log | Patch
revision 285 by dpavlin, Sun Mar 14 19:43:51 2004 UTC | revision 287 by dpavlin, Sun Mar 14 19:50:13 2004 UTC | |
---|---|---|
# | Line 14 foreach my $file (@ARGV) { | Line 14 foreach my $file (@ARGV) { |
14 | ||
15 | close(XML); | close(XML); |
16 | ||
17 | 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) { | if ($xml =~ s,<(\w+)(\s+[^>]*)delimiter\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) { |
18 | open(XML,"> $file-new") || die "can't create '$file-new': $!"; | open(XML,"> $file-new") || die "can't create '$file-new': $!"; |
19 | print XML $xml; | print XML $xml; |
20 | close(XML); | close(XML); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |