die小问题

bitterness

#!/usr/bin/perl -w
$file="mer.log";
die "$file is exists!\n" if -e $file;
die "$file is execute!\n" if -x $file;
die "$file is wirteable!\n" if -w $file;


第一个执行完了，第二句就不执行了?

churchmice

你都已经死了
还怎么跑

bitterness

死了就直接退出整个程序了
我想一个个判断，用if 要打较多字

churchmice

1. 
   
2. #!/usr/bin/perl -w
   
3. $file="mer.log";
   
4. print "$file is exists!\n" if -e $file;
   
5. print "$file is execute!\n" if -x $file;
   
6. print "$file is wirteable!\n" if -w $file;
   

复制代码

churchmice

用warn也可以
croak好像也可以

bitterness

OK

幸福家园

...............