3 $filename = $uri = $ARGV[0];
4 $outputfile = $filename.".xml";
6 $uri =~ s/(.*),([^,]*),([^,]*)/$1#xpointer(1\/$2\/$3)/;
7 $uri =~ s/(.*),([^,]*)/$1#xpointer(1\/$2)/;
9 print "Now processing file $filename\n";
11 open(HEADER,">>$outputfile");
13 <?xml version="1.0" encoding="UTF-8"?>
18 system("cat $filename >> $outputfile");
20 open(FOOTER,">>$outputfile");