# ls
glob.pl temp.sh test1.txt test3.txt test5.txt test7.txt test9.txt
show-args test10.txt test2.txt test4.txt test6.txt test8.txt unlink.pl
#!/usr/bin/perl
my $count = unlink glob "*.txt";
print "deleted $count files.\n";
# ./unlink.pl
deleted 10 files.
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |