Типы данных и инициализация переменных

Если в переменной нужно сохранить большой объем текста, то можно вос¬пользоваться кодом:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
$Y=«Metkal;
<HTML>
<HEAD>
<Т1ТЬЕ>Строки</Т1ТЬЕ>
</HEAD>
<BODY>
Metkal print $Y; print "Привет"; print "</BODY>"; print "</HTML>";
В данном примере многострочный текст располагается между метками
(Metkal):
$Y=«Metkal;
Metkal
После первой метки Metkai обязательно указывается точка с запятой. Далее идет блок текста, а затем указывается название метки. Вторая метка обяза¬тельно должна начинаться с новой строки. Кроме названия метки, в строке не должно быть никаких других символов, в том числе и пробелов. Точка с за¬пятой не указывается. Регистр в названии метки имеет значение. В названии метки не должно быть русских букв.
Если первую метку заключить в апострофы, то внутри блока будет выведено не значение переменной, а ее имя:
#!/usr/bin/perl -w
# Выводим все сообщения об ошибках
# в окно Web-браузера
use CGI::Carp qw(fatalsToBrowser); print "Content-type: text/html\n\n";
$str = "Значение переменной";
$text 1=«METKA1;
Метка без апострофов<ВК>
$st г
<BRXBR>
METKAI
print $textl;
$text2=« "METKA2";
Метка с апострофами<ВЯ>
$st г METKA2
print $text2;
Вывод, соответствующий листингу 2.12:
Метка без апострофов Значение переменной
Метка с апострофами $str
Итак, в первом случае мы видим значение переменной $str, а во втором слу¬чае имя переменной.



Страница: 1 | 2


Web сайты на Perl и MySql