Extract file extension: Difference between revisions
Content added Content deleted
Drkameleon (talk | contribs) 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}}== |