perl的几种产生异常方式

最新推荐文章于 2024-07-10 09:45:32 发布

wgz7747147820

最新推荐文章于 2024-07-10 09:45:32 发布

阅读量625

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/wgz7747147820/article/details/90633581

版权

perl 专栏收录该内容

31 篇文章 0 订阅

订阅专栏

[root@rwsoda203db1 perl_tidb]# cat p.pl
#!/usr/bin/perl
use strict "subs";
use strict;
use v5.16;
use warnings;
use Carp;

#croak和confess会终止程序
print "*" x 20,"\n";
#croak "croak:Can not open file AAA.TXT $!\n" unless open(F,"<","AAA.TXT");
print "*" x 20,"\n";
carp "carp:Can not open file AAA.TXT $!\n" unless open(F,"<","AAA.TXT");
print "*" x 20,"\n";
warn "warn:Can not open file AAA.TXT $!\n" unless open(F,"<","AAA.TXT");
print "*" x 20,"\n";
confess "confess:Can not open file AAA.TXT $!\n" unless open(F,"<","AAA.TXT");
print "*" x 20,"\n";
#croak "croak:Can not open file AAA.TXT $!\n" unless open(F,"<","AAA.TXT");
[root@rwsoda203db1 perl_tidb]# ./p.pl
********************
********************
carp:Can not open file AAA.TXT No such file or directory
 at ./p.pl line 12.
********************
warn:Can not open file AAA.TXT No such file or directory
********************
confess:Can not open file AAA.TXT No such file or directory
 at ./p.pl line 16.