这个Perl脚本实现了什么?

前端之家收集整理的这篇文章主要介绍了这个Perl脚本实现了什么?前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在阅读别人写的Perl脚本,我对Perl不太熟悉所以有人能让我知道前三行做了什么?

my $ref = do($filename);
$ref != 0 or die "unable to read/parse $filename\n";
@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中的文件中的内容.

猜你在找的Perl相关文章