Parent Directory | Revision Log
merge changes from trunk to branches, converted all import_xml
1 | dpavlin | 278 | #!/usr/bin/perl -w |
2 | |||
3 | use strict; | ||
4 | use XML::Simple; | ||
5 | use IO::File; | ||
6 | use Data::Dumper; | ||
7 | |||
8 | dpavlin | 279 | my $xml = '<?xml version="1.0" encoding="ISO-8859-2"?> |
9 | <xml> | ||
10 | <isis delimiter=" aa ">foo</isis> | ||
11 | <isis> | ||
12 | <delimiter> aa </delimiter> | ||
13 | <format>foo</format> | ||
14 | </isis> | ||
15 | dpavlin | 278 | |
16 | dpavlin | 279 | <test foo="a" foo_a=" a" foo_a_=" a " fooa_="a ">truæ</test> |
17 | </xml>'; | ||
18 | |||
19 | dpavlin | 278 | my $xml_file = shift @ARGV; |
20 | |||
21 | if ($xml_file) { | ||
22 | my $fh = new IO::File($xml_file) || die "can't open $xml_file: $!"; | ||
23 | $xml = XMLin($fh); | ||
24 | } else { | ||
25 | dpavlin | 279 | $xml = XMLin($xml, |
26 | ForceArray => [ 'isis', 'config', 'format' ], | ||
27 | ForceContent => 1, | ||
28 | NormaliseSpace => 0, | ||
29 | KeyAttr => [ 'isis' ] | ||
30 | ); | ||
31 | dpavlin | 278 | } |
32 | |||
33 | print Dumper($xml),"\n"; | ||
34 |
Name | Value |
---|---|
svn:executable | * |
ViewVC Help | |
Powered by ViewVC 1.1.26 |