rlm@78: #!/usr/bin/perl rlm@78: rlm@78: # use module rlm@78: use XML::Simple; rlm@78: use Data::Dumper; rlm@78: $xml = new XML::Simple; rlm@78: rlm@78: rlm@78: $sss = <Created with Raphaël rlm@78: rlm@78: rlm@78: HERE rlm@78: rlm@78: rlm@78: # read XML file rlm@78: $data = $xml->XMLin($sss, ForceArray => 1); rlm@78: rlm@78: rlm@78: my %data = %$data; rlm@78: rlm@78: my %juzz = rlm@78: ( rlm@78: rlm@78: path => $data{'path'}, rlm@78: rect => $data{'rect'}, rlm@78: width =>"16in" , rlm@78: height =>"12in" , rlm@78: version =>"1.1", rlm@78: xmlns =>"http://www.w3.org/2000/svg" rlm@78: rlm@78: ); rlm@78: rlm@78: rlm@78: $out = $xml->XMLout(\%juzz , RootName=>'svg'); rlm@78: rlm@78: rlm@78: my $fixed = < rlm@78: rlm@78: HERE rlm@78: rlm@78: rlm@78: rlm@78: $fixed .= $out; rlm@78: rlm@78: print $fixed; rlm@78: rlm@78: ############### send to file rlm@78: rlm@78: open OUT, ">/home/rlm/Desktop/perlOut.svg"; rlm@78: select OUT; rlm@78: print $fixed; rlm@78: close OUT; rlm@78: rlm@78: rlm@78: rlm@78: rlm@78: rlm@78: