Anonymous user
Extract file extension: Difference between revisions
→{{header|Perl 6}}: replace the solution with a simpler one, and mention the built-in ".extension" method
(→Task: improve formatting and wording) |
(→{{header|Perl 6}}: replace the solution with a simpler one, and mention the built-in ".extension" method) |
||
Line 793:
=={{header|Perl 6}}==
<lang perl6>sub extension ( Str $filename --> Str ) {▼
The built-in <code>.IO.extension</code> method can be used, but it...
* doesn't include the dot in the output
* doesn't restrict extensions to letters and numbers.
Here's a custom implementation which does satisfy those requirements:
$filename.match(/:i ['.' <+alpha-[_]>+]? $ /).Str
}</lang>
Testing:
<lang perl6>say "$_ -> {(extension $_).perl}" for
'mywebsite.com/picture/image.png',
'http://mywebsite.com/picture/image.png',
Line 808 ⟶ 813:
'/path/to.my/file',
'file.odd_one',
{{out}}
<pre>
|