Perl eval函数使用实例

    }
    else
    {
       print $rtn,"n";
    }
} ;

Output:

Exception: error message at (eval 1) line 1.

Script3:

#!/usr/bin/perl -w
 
# a run-time error
eval '$answer =' ;   # sets $@
warn $@ if$@;

Output:

syntax error at (eval 1) line 2, at EOF