Extract file extension: Difference between revisions
Frink
m (→{{header|sed}}: Use more portable (POSIX) CLI flags) |
(Frink) |
||
Line 1,190:
document.txt_backup (empty string)
/etc/pam.d/login (empty string)
</pre>
=={{header|Frink}}==
<lang frink>fileExtension[str] :=
{
if [ext] = str =~ %r/(\.[A-Za-z0-9]+)$/
return ext
else
return ""
}
files = ["http://example.com/download.tar.gz",
"CharacterModel.3DS",
".desktop",
"document",
"document.txt_backup",
"/etc/pam.d/login"]
r = new array
for f = files
r.push[[f, "->", fileExtension[f]]]
println[formatTable[r, "right"]]</lang>
{{out}}
<pre>
http://example.com/download.tar.gz -> .gz
CharacterModel.3DS -> .3DS
.desktop -> .desktop
document ->
document.txt_backup ->
/etc/pam.d/login ->
</pre>
| |||