Rosetta Code/Find bare lang tags: Difference between revisions
m
→{{header|Perl}}: future-proof regex
No edit summary |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: future-proof regex) |
||
Line 625:
}
$total++
} elsif (m/==\s*\{\{\s*header\s*\|\s*([^\s\}]+)\s*\}\}\s*==/) {
$lang = lc $1
}
Line 636:
}
}</lang>
=={{header|Perl 6}}==
{{trans|Perl}}
| |||