AS
if ( grep {$n == $_} qw(1 2) ) {}
Ещё так можно
Ещё так можно
Ну это прям самое настоящее there's more than one way to do it
Size: a a a
2021 February 13
B
Для двух значений это конечно лучший по наглядности и простоте вариант
OP
if ( grep {$n == $_} qw(1 2) ) {}
Ещё так можно
Ещё так можно
Если процессор не жалко)
И
И
Раньше обычно в ручную писал сложные пароли в блокноте. Это напрягает писать пароли по 20 - 200 символов в ручную
SZ
добавление к тому, что сказал Олег. ключи хеша всегда строки и они не могут быть андефейнед:
$ perl -MData::Dumper -E '$h{undef}=undef; $h{$a} = "a"; say Dumper \%h'
$VAR1 = {
'undef' => undef,
'' => 'a'
};Неудачный пример, здесь сработала стрингификация бареворда
IB
@PerlBanjoBot $ perl -E '@c = ("a".."z", "A".."Z", 0..9); $s .= $c[rand(@c)] for (1..12); say $s'
P
@PerlBanjoBot $ perl -E '@c = ("a".."z", "A".."Z", 0..9); $s .= $c[rand(@c)] for (1..12); say $s'
CB0DXuiO7vbJ
https://PerlBanjo.com/9ac3a9e0b8
https://PerlBanjo.com/9ac3a9e0b8
OP
Неудачный пример, здесь сработала стрингификация бареворда
Ну там второй кей андеф
OP
Там еще и ворнинг должен быть если включено
И
@PerlBanjoBot $ perl -E '@c = ("a".."z", "A".."Z", 0..9); $s .= $c[rand(@c)] for (1..12); say $s'
в моем генераторе можно еще сгенерировать со специальными символами типо %-_+&
SZ
Ну там второй кей андеф
Бл, точно, я дальше первой строки не читал :))
SZ
@PerlBanjoBot $ perl -E '@c = ("a".."z", "A".."Z", 0..9); $s .= $c[rand(@c)] for (1..12); say $s'
@PerlBanjoBot
$ dd if=/dev/random |base64 |head -c12P
@PerlBanjoBot
$ dd if=/dev/random |base64 |head -c12<timeout>
https://PerlBanjo.com/8e7352c52c
https://PerlBanjo.com/8e7352c52c
SZ
Ох уж эти линуксы
AP
Неудачный пример, здесь сработала стрингификация бареворда
Я оба случая показал, чтобы не писали буквально
$h{undef}AP
@PerlBanjoBot
$ dd if=/dev/random |base64 |head -c12urandom же
SZ
urandom же
Для такого маленького количества символов без разницы
VG
urandom же
это у вас в линуксах
ع
это у вас в линуксах
ага, у нас 😂 ...
а у вас как?
а у вас как?