字符串形式:表达式计算 Vsftp:/root/perl/14# cat aa
9
5
1
2
Vsftp:/root/perl/14# cat a1.pl
open (A,aa); while ($line = <A>){
chomp $line;
$str .=$line; ##将所有的行连接起来
print "\$str is $str\n";
};
print "11111111\n";
eval $str;
Vsftp:/root/perl/14# perl a1.pl
$str is 9
$str is 95
$str is 951
$str is 9512
11111111 ##在$str 中放入一些代码
Vsftp:/root/perl/14# cat a2.pl
$str='$c=$a+$b';
$a=10;$b=20;
eval $str;
print $c;
print "\n";
Vsftp:/root/perl/14# perl a2.pl
30 Vsftp:/root/perl/14# cat a3.pl
eval ( 5 / 0 );
print $@;
print "\n"; Vsftp:/root/perl/14# perl a3.pl
Illegal division by zero at a3.pl line 1. Perl会将错误信息放入一个称做$@的变量中 代码块形式:例外处理 在这种形式下,eval 后面跟的是一个代码块,而不再是包含字符串的标量变量 Vsftp:/root/perl/14# cat a3.pl
eval { $a=10;
$b=0;
$c=$a/$b;
print "1111111111\n";
};
print $@;
print "\n"; Vsftp:/root/perl/14# perl a3.pl
Illegal division by zero at a3.pl line 3. Vsftp:/root/perl/14# 在编译脚本时,Perl 对代码块进行语法检查并生成编译代码,在遇到运行错误时, Perl 将跳过eval块中剩余的代码,并将$@设置为相应的错误信息。 /**********没有eval 和有eval的区别: Vsftp:/root/perl/14# cat a3.pl
{ $a=10;
$b=0;
$c=$a/$b;
print "1111111111\n";
};
print $@;
print "\n"; print "2222222222222222\n";
Vsftp:/root/perl/14# perl a3.pl
Illegal division by zero at a3.pl line 3. 此时程序直接中断,没有继续运行 Vsftp:/root/perl/14# cat a3.pl
eval { $a=10;
$b=0;
$c=$a/$b;
print "1111111111\n";
};
print $@;
print "\n"; print "2222222222222222\n";
Vsftp:/root/perl/14# perl a3.pl
Illegal division by zero at a3.pl line 3. 2222222222222222 加上eval后程序出错,但是下面代码继续运行 为了产生自己的错误,你需要使用die,Perl 知道某一段代码是否在eval 块中执行,因此, 当die 被调用时,Perl只是简单的将错误信息复制给全局变量$@,并跳转到紧跟eval块的语句继续执行。 Vsftp:/root/perl/14# cat a3.pl
eval { $a=10;
$b=0;
open (F,"xx22") ;
print "1111111111\n";
};
print $@;
print "\n"; print "2222222222222222\n";
Vsftp:/root/perl/14# perl a3.pl
1111111111 2222222222222222 Vsftp:/root/perl/14# cat a3.pl
eval { $a=10;
$b=0;
open (F,"xx22") or die "xx22 $! ";
print "1111111111\n";
};
print $@;
print "\n"; print "2222222222222222\n";
Vsftp:/root/perl/14# perl a3.pl
xx22 No such file or directory at a3.pl line 3. 2222222222222222 Java/C++ 程序员肯定认出了它们与throw,try 和catch 的相似之处 try 对应于eval块,catch 对应于$@检查,而throw 对应die