Extract file extension: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|Perl 6}}: use the new test-cases, and compare output to the built-in .extension method
→‎{{header|Perl 6}}: restrict to ASCII letters and numbers
Line 812:
 
<lang perl6>sub extension (Str $path --> Str) {
$path.match(/:i ['.' <+alpha-[_a..z0..9]>+]? $ /).Str
}</lang>
 
Retrieved from "https://rosettacode.org/wiki/Extract_file_extension"