test610.pl

来自「THIS IS HTTP CURL Example」· PL 代码 · 共 25 行

#!/usr/bin/env perl
# Create and remove directories and check their existence
if ( $#ARGV != 1 ) 
{
	print "Usage: $0 mkdir|rmdir|gone path\n";
	exit 1;
}
if ($ARGV[0] eq "mkdir")
{
	mkdir $ARGV[1] || die "$!";
	exit 0;
}
elsif ($ARGV[0] eq "rmdir")
{
	rmdir $ARGV[1] || die "$!";
	exit 0;
}
elsif ($ARGV[0] eq "gone")
{
	! -e $ARGV[1] || die "Path $ARGV[1] exists";
	exit 0;
}
print "Unsupported command $ARGV[0]\n";
exit 1;