Extract file extension: Difference between revisions

Content added Content deleted
No edit summary
Line 203: Line 203:
/etc/pam.d/login -> ( ) as expected
/etc/pam.d/login -> ( ) as expected
</pre>
</pre>

=={{header|Arturo}}==

<lang arturo>files #("http://example.com/download.tar.gz" "CharacterModel.3DS" ".desktop" "document" "document.txt_backup" "/etc/pam.d/login")

loop files {
ext $(if $(not $(contains $(getExtension &) "_")) { $(getExtension &) } { ""+"" })
print & + " => extension: " + ext
}</lang>

{{out}}

<pre>http://example.com/download.tar.gz => extension: .gz
CharacterModel.3DS => extension: .3DS
.desktop => extension:
document => extension:
document.txt_backup => extension:
/etc/pam.d/login => extension: </pre>


=={{header|AWK}}==
=={{header|AWK}}==