Perl / XML / Pattern Match (See related posts)

This code parses through the games.xml file generated by EMUCenter and changes Genre to Letter, also taking the first letter of the Title property and adding it to the Letter property. This allows sorting by letter in the EMUCenter interface. Two things, Change the metadata entry from Genre to Letter and remove the trailing </game> at the very end of the file.

   1  
   2  my $holdTerminator = $/;
   3  undef $/;
   4  
   5  if (open(FILE, '<c:\games.xml')) {
   6  	$file = <FILE>;
   7  }
   8  $/ = $holdTerminator;
   9  
  10  @array = split /\<\/game\>/, $file;
  11  open(FILE1, '>c:\newgames.xml');
  12  
  13  foreach $line (@array){
  14  	$line =~
  15  s/(\n\s+.*?"Title">)(.)(.*?)"Genre">.*?(<\/property>)/$1$2$3"Letter">$2$4/is
  16  ;
  17  	print FILE1 $line;
  18  	print FILE1 '</game>';
  19  
  20  }
  21  close(FILE1);