Генерация пин кодов

[mlevel]

Нужно сгенерировать уникальние пин коди, использую apg:

Код: Выделить всё

/usr/local/bin/apg -a1 -MN -m5 -x5 -n1

Но иногда первым символом(цифрой) генерируется 0, как можно отфильтровать такие пин коди?

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[gloom]

Код: Выделить всё

grep -vE "^0"

[mlevel]

Но ето в Perl скрипте.

[rmn]

Но ето в Perl скрипте.

а перл-скрипт такое не прожует?..

Код: Выделить всё

/usr/local/bin/apg -a1 -MN -m5 -x5 -n1 | grep -v ^0

[mlevel]

Прожует, но если первая цифра 0, то:

Код: Выделить всё

$code = system(/usr/local/bin/apg -a1 -MN -m5 -x5 -n1 | grep -v ^0);

выведет пустую строку....

[gloom]

Код: Выделить всё

$code = system(/usr/local/bin/apg -a1 -MN -m5 -x5 -n1 | grep -vE "^0");

ось какая?
grep в бсд системах свой и он немного отличается от gnu grep который используется в лине

[mlevel]

FreeBSD. Но я не о том. Создавая нового пользователя, эму генерится ОДИН пин код этим скриптом, и если как раз они начинаеться с нуля,то выходит пустая строка, как при пустой строки опять сгенерить пин код? Думал сам apg поддерживает паттерны...

[gloom]

сделайте проверку переменной и повторный вызов

[mlevel]

Ломаю голову... Цикл надо.

[Burner]

да вообще 0 исключите

[FiL]

FreeBSD. Но я не о том. Создавая нового пользователя, эму генерится ОДИН пин код этим скриптом, и если как раз они начинаеться с нуля,то выходит пустая строка, как при пустой строки опять сгенерить пин код? Думал сам apg поддерживает паттерны...

генери 20 пинов, исключай те, что начинаются с нуля и бери первый. Вероятность, что все 20 будут с нуля начинаться мала.

[mlevel]

Хорошая идея..

[thefree]

ужас, делайте через цыкал, не слушайте глупостей.

[schizoid]

или проверку переменной, если пустая - сгенерить снова...

[Burner]

или проверку переменной, если пустая - сгенерить снова...

а это не цикл?

[mlevel]

Код: Выделить всё

#!/usr/bin/perl

use strict;

my ($code, $new);

for (my $i = 1; $i <= 10; $i++) {
    $code = `/usr/local/bin/apg -a1 -MN -m5 -x5 -n1`;
    if(substr($code,0,1) ne 0) {
        $new = $code;
        last;
    }
}
print $new;