аналог isset
Ребята помогите.
В php есть такая штука как isset, которая проверяет на наличие переменной (как я понял)
есть ли что нить типа этого в perl,
мне надо, чтобы если нет переменной
$page=$ENV{'QUERY_STRING'}
она бы приравнивалась 1
В php есть такая штука как isset, которая проверяет на наличие переменной (как я понял)
есть ли что нить типа этого в perl,
мне надо, чтобы если нет переменной
$page=$ENV{'QUERY_STRING'}
она бы приравнивалась 1
Цитата:
Originally posted by CoolDV
Ребята помогите.
В php есть такая штука как isset, которая проверяет на наличие переменной (как я понял)
есть ли что нить типа этого в perl,
мне надо, чтобы если нет переменной
$page=$ENV{'QUERY_STRING'}
она бы приравнивалась 1
Ребята помогите.
В php есть такая штука как isset, которая проверяет на наличие переменной (как я понял)
есть ли что нить типа этого в perl,
мне надо, чтобы если нет переменной
$page=$ENV{'QUERY_STRING'}
она бы приравнивалась 1
достаточно узнать длину страки.
существование переменной можно определить
defined(...) но тебе это не подайдет так как ты её создал ($page=$ENV{'QUERY_STRING'})
можеш зделать так
unless ($ENV{'QUERY_STRING'})
{
$page=1
}
else
{
$page=$ENV{'QUERY_STRING'}
}
defined(...) но тебе это не подайдет так как ты её создал ($page=$ENV{'QUERY_STRING'})
можеш зделать так
unless ($ENV{'QUERY_STRING'})
{
$page=1
}
else
{
$page=$ENV{'QUERY_STRING'}
}
Эх, про СGI.pm не мешалоб почитать.
И полезно и удобно.
И полезно и удобно.