写一个程序,从命令行中取得一串文件名,并汇报这些文件是否可读、可写、可执行以及这个文件是否存在。
- #! /usr/bin/perl
- sub if_rwx {
- $f = $_;
- -r $f ? print "$f readable\n" : print "$f unreadable\n";
- -w _ ? print "$f writeable\n" : print "$f unwriteable\n";
- -x _ ? print "$f executable\n" : print "$f unexecutable\n";
- }
- @li = @ARGV;
- foreach (@li) {
- if (-f $_ || -d $_) {
- &if_rwx ($_);
- } else {
- print "$_ No such file or directory\n"
- }
- }
编辑回复