如何将脚本文件的结尾读取为数据文件（Perl 或任何其他语言）

【问题标题】：How to read the end of a script file as a data file (Perl or any other language)如何将脚本文件的结尾读取为数据文件（Perl 或任何其他语言）
【发布时间】：2011-10-01 04:41:50
【问题描述】：

我正在寻找执行以下操作的正确语法（在 Perl、Shell 或 Ruby 中）：

# variable to access the data lines appended as a file

END_OF_SCRIPT_MARKER

raw data starts here
and it continues.

【问题讨论】：

标签： ruby perl shell

【解决方案1】：

Perl 使用 __DATA__:

#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>)
{
     print;
}

__DATA__
Text to print
goes here

【讨论】：

这是未经授权的版权材料版本。请不要链接到有盗版电子书的网站。
@Raoul：谢谢，没想到是抄袭！
如果有人感兴趣的话，Ruby中__DATA__的等价物是__END__
而 Perl 中的 __END__ 是 __DATA__ 的同义词，因此请使用其中一个。可能的相关兴趣：Inline::Files.