Extract file extension: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine into a single file for ease of testing) |
(add PicoLisp) |
||
Line 1,156: | Line 1,156: | ||
</pre> |
</pre> |
||
The builtin get_file_extension() could also be used, however that routine differs from the task description in that "libglfw.so.3.1" => "so", and all results are lowercase even if the input is not. |
The builtin get_file_extension() could also be used, however that routine differs from the task description in that "libglfw.so.3.1" => "so", and all results are lowercase even if the input is not. |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(de extension (F) |
|||
(and |
|||
(fully |
|||
'((C) |
|||
(or |
|||
(>= "Z" C "A") |
|||
(>= "z" C "a") |
|||
(>= "9" C "0") ) ) |
|||
(setq F (stem (member "." (chop F)) ".")) ) |
|||
(pack F) ) ) |
|||
(println (extension "http://example.com/download.tar.gz")) |
|||
(println (extension "CharacterModel.3DS")) |
|||
(println (extension ".desktop")) |
|||
(println (extension "document")) |
|||
(println (extension "document.txt_backup")) |
|||
(println (extension "/etc/pam.d/login"))</lang> |
|||
{{out}} |
|||
<pre> |
|||
"gz" |
|||
"3DS" |
|||
"desktop" |
|||
NIL |
|||
NIL |
|||
NIL |
|||
</pre> |
|||
=={{header|PowerShell}}== |
=={{header|PowerShell}}== |