这个Perl脚本实现了什么？

发布时间：2020-12-15 23:28:50 所属栏目：大数据来源：网络整理

导读：我正在阅读别人写的Perl脚本,我对Perl不太熟悉所以有人能让我知道前三行做了什么？ my $ref = do($filename);$ref != 0 or die "unable to read/parse $filenamen";@varLines=@{$ref};foreach $ord (@varLines){ # code here} 在获取命令行参数设置$filenam

我正在阅读别人写的Perl脚本,我对Perl不太熟悉所以有人能让我知道前三行做了什么？

my $ref = do($filename);
$ref != 0 or die "unable to read/parse $filenamen";
@varLines=@{$ref};
foreach $ord (@varLines)
{
    # code here
}

在获取命令行参数设置$filename之后,这是在程序的开头

传递给此脚本的文件格式为

[
  {
    "Key1" => "val1","key2" => " "A",},{
    "Key3" => "val2","key4" => " "B",]

解决方法

它这样做：

> my $ref = do($filename)在名称为$filename(ref)的文件中执行Perl代码,并将$ref赋值为文件中最后一个命令的值
> $ref！= 0或die …如果$filename中的最后一个命令不成功,则意图中止(请参阅下面的评论以供讨论)
> @varLines = @ {$ref};假设$ref是对数组的引用,并将@varLines初始化为该数组的内容
> foreach $ord(@varLines){…}为数组中的每个项执行一些代码,在循环的持续时间内调用每个$ord

重要的是,这一切都取决于名称在$filename中的文件中的内容.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!