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