eval

字符串形式:表达式计算


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