字符串形式:表达式计算

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