Delete a file: Difference between revisions
Content added Content deleted
m (→{{header|RPL}}: typo in comment) |
|||
Line 748: | Line 748: | ||
<pre> |
<pre> |
||
Usage: furor rmdir.upu unnecessary_directory |
Usage: furor rmdir.upu unnecessary_directory |
||
</pre> |
|||
=={{header|Peri}}== |
|||
<syntaxhighlight lang="peri"> |
|||
###sysinclude standard.uh |
|||
###sysinclude args.uh |
|||
###sysinclude str.uh |
|||
###sysinclude io.uh |
|||
// =================== |
|||
#g argc 3 < { #s ."Usage: " 0 argv print SPACE 1 argv print ." filename\n" end } |
|||
2 argv 'e inv istrue { #s ."The given file ( " 2 argv print ." ) doesn't exist!\n" end } |
|||
2 argv removefile |
|||
end |
|||
</syntaxhighlight> |
|||
<pre> |
|||
Usage: peri removefile.upu filename |
|||
</pre> |
|||
<syntaxhighlight lang="peri"> |
|||
###sysinclude standard.uh |
|||
###sysinclude args.uh |
|||
###sysinclude str.uh |
|||
###sysinclude io.uh |
|||
#g argc 3 < { ."Usage: " #s 0 argv print SPACE 1 argv print SPACE ."unnecessary_directory\n" end } |
|||
2 argv 'd inv istrue { ."The given directory doesn't exist! Exited.\n" }{ |
|||
2 argv rmdir |
|||
} |
|||
end |
|||
</syntaxhighlight> |
|||
<pre> |
|||
Usage: peri rmdir.upu unnecessary_directory |
|||
</pre> |
</pre> |
||