Extract file extension: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 527:
</pre>
=={{header|Perl 6}}==
<lang Perl 6>use v6 ;
sub extension ( Str $filename --> Str ) {
my $extension = $filename.split(/\./).pop ;
if ( $extension ) {
if ( $extension ~~ / <[\/_]> / ) {
return "" ;
}
else {
return "." ~ $extension ;
}
}
else {
return "" ;
}
}
.say for ("mywebsite.com/picture/image.png" , "http://mywebsite.com/picture/image.png" ,
"myuniquefile.longextension" , "/path/to.my/file" , "file.odd_one" ).map( { extension $_ } ) ;
</lang>
{{out}}
<pre>.png
.png
.longextension
</pre>
| |||