Extract file extension: Difference between revisions
m
→{{header|Perl 6}}: Combine into a single file for ease of testing
(added Factor) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine into a single file for ease of testing) |
||
Line 1,091:
<lang perl6>sub extension (Str $path --> Str) {
$path.match(/:i ['.' <[a..z0..9]>+]? $ /).Str
}
# Testing:
for <
http://example.com/download.tar.gz
|