Rosetta Code

Rosetta Code/Fix code tags: Difference between revisions

Page Discussion

Rosetta Code/Fix code tags (view source)

Revision as of 17:05, 9 April 2009

12 bytes added ,  15 years ago
no edit summary
No edit summary
No edit summary
Line 31:
 
my $text = join "", <STDIN>;
my $slang="/lang";
 
for (@langs) {
$text =~ s|<$_>|<lang $_>|g;
$text =~ s|</$_>|<&#2f;lang$slang>|g;
}
 
$text =~ s|<code (.+?)>(.*?)</code>|<lang \$1>\$2<&#2f;lang$slang>|sg;
 
print $text;
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/97765"