Delete a file: Difference between revisions
Content added Content deleted
(+ Forth) |
No edit summary |
||
Line 6: | Line 6: | ||
[[Category:Forth]] |
[[Category:Forth]] |
||
There is no means to delete directories in ANS Forth. |
There is no means to delete directories in ANS Forth. |
||
s" |
s" input.txt" delete-file throw |
||
s" / |
s" /input.txt" delete-file throw |
||
==[[Java]]== |
==[[Java]]== |
Revision as of 00:00, 3 August 2007
Delete a file
You are encouraged to solve this task according to the task description, using any language you may know.
You are encouraged to solve this task according to the task description, using any language you may know.
In this task, the job is to delete a file called "input.txt" and delete a directory called "docs". This should be done twice: once "here", i.e. in the current working directory and once in the filesystem root.
Forth
There is no means to delete directories in ANS Forth.
s" input.txt" delete-file throw s" /input.txt" delete-file throw
Java
import java.util.File; public class FileDeleteTest { public static boolean deleteFile(String filename) { boolean exists = new File(filename).delete(); return exists; } public static void test(String type, String filename) { System.out.println("The following " + type + " called " + filename + (deleteFile(filename) ? " was deleted." : " could not be deleted.") ); } public static void main(String args[]) { test("file", "input.txt"); test("file", File.seperator + "input.txt"); test("directory", "docs"); test("directory", File.seperator + "docs" + File.seperator); } }
Perl
use File::Spec::Functions qw(catfile rootdir); # here unlink 'input.txt'; rmdir 'docs'; # root dir unlink catfile rootdir, 'input.txt'; rmdir catfile rootdir, 'docs';
Without Perl Modules
Current directory
perl -e 'unlink input.txt' perl -e 'rmdir docs'
Root Directory
perl -e 'unlink "/input.txt"' perl -e 'rmdir "/docs"'
Python
import os # current directory os.remove("output.txt") os.rmdir("docs") # root directory os.remove("/output.txt") os.rmdir("/docs")
Toka
needs shell " docs" remove " input.txt" remove