7 my $filename = shift @ARGV;
8 my $file_to_write_to_pattern = shift @ARGV;
9 my $files_written =
"";
11 open(XMLFILE, $filename);
18 my $towriteto = $file_to_write_to_pattern;
19 $towriteto =~ s/XXX/$num/;
21 open(TOWRITE,
">$towriteto");
27 $files_written .=
" $towriteto";
30 my $xml_header =
"<?xml version=\"1.0\"?>\n<gnc-v2>\n";
31 my $to_write = $xml_header;
38 if ($_ =~ m/\<\/$tag\>/) {
39 $to_write .=
"</gnc-v2>\n";
40 write_file($to_write, $grab_num);
41 $to_write = $xml_header;
46 elsif ($_ =~ m/\<$tag .*\>/) {