perl中的<DATA>语法

Question

我在哪里可以找到有关perl中以下语法的更多信息？

之间的连接<DATA>和__DATA__尚不清楚.

while (my $date_string = <DATA>) {
  chomp($date_string);
  next if not length $date_string;
  print "$date_string ist Unixtime ",
        $lang_date->str2time($date_string),
        " und ",
    $lang_date->time2str( '%d.%m.%Y %T (%Z)',$lang_date->str2time($date_string) ),
        "\n";
}

__DATA__
1.3.1999
1 Marz 1999
1. Marz 1999
1/3/1999

Answer 1

引用文档:

该__DATA__标记告诉编译Perl代码完成perl的编译器.

__DATA__令牌之后的所有内容都可通过文件句柄进行读取FOOBAR::DATA,其中是到达令牌FOOBAR时当前包的名称__DATA__.

这与__END__包'main'中的工作原理相同,但对于其他模块,数据__END__不能自动检索,而后数据__DATA__则是.

可以添加到此只是使用__DATA__部分是非常方便的说明Perl中的一些文件阅读相关的概念.它基本上是一个附加到代码的文件,该文件的内容可以通过它轻松访问<DATA>.这就是为什么它在SO上很受欢迎.)

Answer 2

之后的所有内容都__DATA__被视为您可以从文件句柄中读取的文件DATA. DATA是自动打开的,你不需要做任何事情就可以这样做.

什么不清楚？您的程序似乎正在正确使用它.