Perl利用do读取配置文件

perl中利用do读取配置文件.

main
1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl -w
use strict;

my $config;

unless( $config = do 'do' ){
  die "$!";
}

print "$config->{key1} $config->{key2}\n";

代码中do文件中的内容如下:

txt
1
2
3
4
5
$config =
{
    key1 => 1,
    key2 => 2,
};

简单来说do就是将file中的内容当成perl语句执行, 这里是将file中的内容赋值给了$config.相比这种用法,我更倾向于使用do来做内联函数.

引申: http://www.perlmonks.org/?node_id=589705

Comments