Специальные литералы

В языке Perl доступны следующие литералы:
• LINE — содержит номер текущей строки в программе;
• FILE — имя и путь к файлу с текущей программой;
• END — служит для указания логического конца программы. Фрагмент
кода, расположенный после этого литерала, не обрабатывается интерпре¬татором языка;
• DATA — служит для указания логического конца программы и допол¬нительно открывает файл с дескриптором DATA для чтения информации после литерала.
Рассмотрим пример:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
print "Текущая строка — ", LINE , "<BR>";
print "Название файла — ", FILE , "<BR>";
END
print "Текст, расположенный после литерала END ";
Вывод:
Текущая строка — 6
Название файла — Z:/home/perlbook.ru/cgi-bin/index.pl
Как видно из примера, мы не получили вывод оператора print из последней строки, т. к. он расположен после литерала END .