- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
sub generate_code {
my ($arrey_pos,$code);
my @arrey = ('a'..'q', 'C'..'O', '1'..'9', 'g'..'u', 'l'..'z', '9'..'1', 'H'..'W');
for (my $i = 0; $i < $_[0]; $i++) {
$arrey_pos = int(rand($#arrey));
$code .= $arrey[$arrey_pos];
}
$code;
}
мамо, я же не засну, это ж надо ТАК написать О_О
my @arrey = ('a'..'q', 'C'..'O', '1'..'9', 'g'..'u', 'l'..'z', '9'..'1', 'H'..'W');
может кто объяснить смысл?
Я, всё-таки отвечу,
'a'..'q' - заменяет список символов от 'a' до 'q'
А может подумать лучше, что же я спросил. То, что оно заменяет, я и так знаю, вопрос в том, к чему такая комбинация...
Я тоже не понял
Ипать Матвеич...
Генерация "Core2Duo" на бейсике
Генерация "Windows7" через Word и макросы
Генерация "iPhone" на smarty...