|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Alexander Cherepukhin 2:5025/17 02 Nov 2000 11:36:28
To : All
Subject : Chainik: silent 'undef' checking
--------------------------------------------------------------------------------
Просвети, пожалуйста, начинающего: как проверить,
инициализирована ли переменная, чтобы при проверке
не выдавалось warning-ов.
Хочется при этом и запускать с -w :
my $sUnique;
if("create index" !~ /create\s+(unique\s+)?index/i)
{ print "not like.\n"; }
else
{
if( $1 eq undef ) #line 6
{ $sUnique = ""; print "undef\n"; }
else
{ $sUnique = $1; }
print "$sUnique\n";
}
При выполнении perl -w undef.pl получаю сообщения:
Use of uninitialized value at undef.pl line 6.
Use of uninitialized value at undef.pl line 6.
undef
--
с уважением, Alexander Cherepukhin <ralex@relex.ru>
--- Microsoft Outlook Express 5.00.2014.211
* Origin: RELEX Inc. (2:5025/17@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
