Extract file extension: Difference between revisions
Content added Content deleted
(→{{header|Tcl}}: Added zkl) |
m (→{{header|zkl}}: spelling) |
||
Line 507: | Line 507: | ||
L("","","file",".odd_one")) |
L("","","file",".odd_one")) |
||
</pre> |
</pre> |
||
The last |
The last one is an odd duck so some code is in order: |
||
<lang zkl>fcn exonly(fileName){ |
<lang zkl>fcn exonly(fileName){ |
||
var re=RegExp(0'|\.[a-zA-Z0-9]+$|); |
var re=RegExp(0'|\.[a-zA-Z0-9]+$|); |