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

Question

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

# variable to access the data lines appended as a file

END_OF_SCRIPT_MARKER

raw data starts here
and it continues.

Answer 1

Perl使用__DATA__执行此操作：

#!/usr/bin/perl

use strict;
use warnings;

while(<DATA>)
{
     print;
}

__DATA__
Text to print
goes here