aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

new files

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 12:38:42 -07:00
parent 3af7344581
commit 86c034bb8b
1364 changed files with 21352 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Check-that-file-exists/Erlang/check-that-file-exists.erl Normal file
View file

@ -0,0 +1,23 @@
#!/usr/bin/escript
file_exists(Filename) ->
{ Flag, _ } = file:read_file_info(Filename), Flag == ok.
dir_exists(Filename) ->
{ Flag, Info } = file:read_file_info(Filename),
(Flag == ok) andalso (element(3, Info) == directory).
print_result(Flag, Filename) ->
Tail = if
Flag -> "exists";
true -> "does not exist"
end,
io:put_chars(lists:concat([Filename, " ", Tail, "\n"])).
check_file(Filename) -> print_result(file_exists(Filename), Filename).
check_dir(Filename) -> print_result(dir_exists(Filename), Filename).
main(_) ->
check_file("input.txt"),
check_dir("docs"),
check_file("/input.txt"),
check_dir("/docs").