Check that file exists: Difference between revisions
Content added Content deleted
m (omit from Befunge) |
(Added PicoLisp) |
||
| Line 460: | Line 460: | ||
perl -e 'print -e "/input.txt", "\n";' |
perl -e 'print -e "/input.txt", "\n";' |
||
perl -e 'print -d "/docs", "\n";' |
perl -e 'print -d "/docs", "\n";' |
||
=={{header|PicoLisp}}== |
|||
<lang PicoLisp>(if (info "file.txt") |
|||
(prinl "Size: " (car @) " bytes, last modified " (stamp (cadr @) (cddr @))) |
|||
(prinl "File doesn't exist") )</lang> |
|||
=={{header|Pike}}== |
=={{header|Pike}}== |
||