map-ger-icc-genres.pl

#!/usr/bin/env perl

while (<STDIN>) {
  s/Administrative\/regulatory prose<\/classCode>/Instructional:AdministrativeRegulatoryProse<\/classCode>/;
  s/Blogs<\/classCode>/Blog<\/classCode>/;
  s/Creative<\/classCode>/Creative:Novels_ShortStories<\/classCode>/;
  s/Learned_Humanities<\/classCode>/Informational:Learned:Humanities<\/classCode>/;
  s/Learned_Natural_Sciences<\/classCode>/Informational:Learned:NaturalSciences<\/classCode>/;
  s/Learned_Social_Sciences<\/classCode>/Informational:Learned:SocialSciences<\/classCode>/;
  s/Learned_Technology<\/classCode>/Informational:Learned:Technology<\/classCode>/;
  s/Popular_Humanities<\/classCode>/Informational:Popular:Humanities<\/classCode>/;
  s/Popular_Natural_Sciences<\/classCode>/Informational:Popular:NaturalSciences<\/classCode>/;
  s/Popular_Social_Sciences<\/classCode>/Informational:Popular:SocialSciences<\/classCode>/;
  s/Popular_Technology<\/classCode>/Informational:Popular:Technology<\/classCode>/;
  s/Press_comments<\/classCode>/Persuasive<\/classCode>/;
  s/Press_news_reports<\/classCode>/Informational:Reportage<\/classCode>/;
  s/SkillsHobbies<\/classCode>/Instructional:Skills_Hobbies<\/classCode>/;
  print;
}