| Marc Kupietz | 62869dd | 2023-05-26 11:53:27 +0200 | [diff] [blame^] | 1 | #!/usr/bin/env perl |
| 2 | |
| 3 | while (<STDIN>) { |
| 4 | s/Administrative\/regulatory prose<\/classCode>/Instructional:AdministrativeRegulatoryProse<\/classCode>/; |
| 5 | s/Blogs<\/classCode>/Blog<\/classCode>/; |
| 6 | s/Creative<\/classCode>/Creative:Novels_ShortStories<\/classCode>/; |
| 7 | s/Learned_Humanities<\/classCode>/Informational:Learned:Humanities<\/classCode>/; |
| 8 | s/Learned_Natural_Sciences<\/classCode>/Informational:Learned:NaturalSciences<\/classCode>/; |
| 9 | s/Learned_Social_Sciences<\/classCode>/Informational:Learned:SocialSciences<\/classCode>/; |
| 10 | s/Learned_Technology<\/classCode>/Informational:Learned:Technology<\/classCode>/; |
| 11 | s/Popular_Humanities<\/classCode>/Informational:Popular:Humanities<\/classCode>/; |
| 12 | s/Popular_Natural_Sciences<\/classCode>/Informational:Popular:NaturalSciences<\/classCode>/; |
| 13 | s/Popular_Social_Sciences<\/classCode>/Informational:Popular:SocialSciences<\/classCode>/; |
| 14 | s/Popular_Technology<\/classCode>/Informational:Popular:Technology<\/classCode>/; |
| 15 | s/Press_comments<\/classCode>/Persuasive<\/classCode>/; |
| 16 | s/Press_news_reports<\/classCode>/Informational:Reportage<\/classCode>/; |
| 17 | s/SkillsHobbies<\/classCode>/Instructional:Skills_Hobbies<\/classCode>/; |
| 18 | print; |
| 19 | } |