请教一段Perl代码

unixu

我从一个正常运行的脚本里，看到有如下一段Perl代码， 实在不太理解红字的部分， 还请帮忙， 谢谢。

my ($in,$str,$hashref);
my %node_cfg;

$in = new FileHandle "</tmp/file";

$str = <$in>;
close $in;
$hashref;                    #实在搞不懂这里， 这是什么意思， 这样能执行吗     
eval $str;                    # 我认为$str是一段不能个执行的代码， 那放在eval里有什么用呢， 请高手点解？ 谢了。
%node_cfg = %$hashref;


##############

/tmp/file 内容如下：



$hashref = {
             'server1.test.com' => {
                                            'STATUS' => 'Running',
                                            'CPU' => 'Intel',
                                            'SYSTEM_ID' => '001',
                                            'OS' => 'Windows 2008 Enterprise R2'
                                          },

             'server2.test.com' => {
                                            'STATUS' => 'Running',
                                            'CPU' => 'Intel',
                                            'SYSTEM_ID' => '002',
                                            'OS' => 'Redhat Enterprise Linux 6'
                                          }
           }

jason680

回复 1# unixu


$ perldoc -f eval

    eval EXPR
    eval BLOCK
    eval    In the first form, the return value of EXPR is parsed and executed
            as if it were a little Perl program. The value of the expression
            (which is itself determined within scalar context) is first
            parsed, and if there were no errors, executed in the lexical
            context of the current Perl program, so that any variable settings
            or subroutine and format definitions remain afterwards. Note that
            the value is parsed every time the "eval" executes. If EXPR is
            omitted, evaluates $_. This form is typically used to delay
            parsing and subsequent execution of the text of EXPR until run
            time.

            ...

   

pitonas

{:2_172:}  大神 ! 帮我看看代码， 它是否有问题 ?
http://bbs.chinaunix.net/forum.p ... ;extra=#pid24106017
19 楼

回复 2# jason680


   

rubyish

unixu 发表于 2014-01-21 09:48
我从一个正常运行的脚本里，看到有如下一段Perl代码， 实在不太理解红字的部分， 还请帮忙， 谢谢。

1. $hashref;                    #实在搞不懂这里， 这是什么意思， 这样能执行吗     

复制代码

my  ...

这条是没用的。
delete it is ok.
try

1. my ($S,$H);
   
2. my %C;
   
3. 
   
4. $S = <>;        # input: $H = { a => 1, b => 2 }
   
5. #$H;            #实在搞不懂这里， 这是什么意思， 这样能执行吗     
   
6. eval $S;
   
7. %C = %$H;       # %C now ( a => 1, b => 2 )

复制代码

davidju1918

eval 是為了避免上面的 file handle 產生錯誤導致 crash