Rosetta Code/Fix code tags: Difference between revisions

Content added Content deleted

Inline

@@ Line 30: / Line 30: @@
 povray c gettext);
-my $slang = '/lang';
+my $text = join "", <STDIN>;
+for (@langs) {
-my $text = do { local $/; <STDIN> };
+    $text =~ s|<$_>|<lang $_>|g;
+    $text =~ s|</$_>|</lang>|g;
-foreach my $i (@langs) {
-    $text =~ s|<$i>|<lang $i>|g;
-    $text =~ s|</$i>|<$slang>|g;
 }
-$text =~ s|<code (.+?)>(.*?)</code>|<lang \1>\2<$slang>|sg;
+$text =~ s|<code (.+?)>(.*?)</code>|<lang \1>\2</lang>|sg;
 print $text;