Anonymous user
Extract file extension: Difference between revisions
→{{header|C++}}
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
|||
Line 514:
file.odd_one has extension : !
thisismine. has extension : !
</pre>
=={{header|Clojure}}==
<lang Clojure>
(defn file-extension [s]
(second (re-find #"(\.[a-zA-Z0-9]+)$" s)))
</lang>
{{out}}
<pre>
(map file-extension ["http://example.com/download.tar.gz"
"CharacterModel.3DS"
".desktop"
"document"
"document.txt_backup"
"/etc/pam.d/login"])
(".gz" ".3DS" ".desktop" nil nil nil)
</pre>
| |||