Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > не могу понять что возвращает данный код

Автор: Bulat 25.10.2006, 08:15

Код


sub Code
{
    my ($code)=@_;
    return 0 unless $code;
    return ($code=~/\W/)?0:1;
}

Конкретно, последняя строка

А поступает что-то вроде - k51NAuJ09543 или k51NBYT09611

Автор: GoodBoy 25.10.2006, 09:55

процедура возвращает 0 если вызвана без параметров (т.е. $code - пустая)
процедура возвращает 0 если в переменной $code содержатся НЕ только алфавитно-цифровые символы или символы подчёркивания и возвращает 1, если только они (a-z, 0-9, _)

Автор: amg 25.10.2006, 09:55

print Code('k51NAuJ09543'); должен печатать (и печатает) 1.
Последняя строка возвращает 0, если $code содержит неалфавитно-цифровые символы, 1 в противном случае.

Автор: GoodBoy 25.10.2006, 09:56

Цитата(Bulat @ 25.10.2006, 09:15

)

поступает что-то вроде - k51NAuJ09543 или k51NBYT09611

в этих случаях будет - 1
а вот если юудет что-то типа: EFG3terfRE$%Te - то вернётся 0.

Автор: Bulat 25.10.2006, 10:07

ясно