Говорят, perl’у исполнилось 25 лет..

Оригинал этой записи в личном блоге.
Любые материалы из этого блога запрещается использовать на сайте livejournal.ru в любой форме и любом объёме.

Возникла у меня тут необходимость запускать gpg в пакетном режиме, без взаимодействия с пользователем. Точнее, пользователь должен один раз ввести пароль от ключа, и больше не вмешиваться.

Нашел модуль GnuPG, но оказалось, что он полагается на shared memory, а в нынешнем gpg2 эта фича не поддерживается. Теперь надо а gpg все дополнительные данные скармливать через файловые дескрипторы. Пробую запустить из комнадной строки:

/usr/bin/gpg --decrypt --batch --passphrase-fd 3 encrypted.file 3<password.file

Работает. Ну ладно, будем запускать  то же самое из перла, только без файла, а напрямую скармливая пароль через пайп.

В целом вроде бы тоже работает, gpg запускается, зашифрованный файл находит, даже показывает, каким ключом он зашифрован, но… расшифровать не может, поскольку не видит пароля:

can't connect to `/home/dil/.gnupg/S.gpg-agent': No such file or directory
gpg: encrypted with 2048-bit RSA key, ID 673056FF, created 2012-02-17
"юзер <почтовый адрес>"
gpg: public key decryption failed: Bad passphrase
gpg: decryption failed: No secret key

Пробую напечатать пароль  непосредственно в перле из дочернего процесса, прочитав его из пайпа. Нормально читается и печатается. А gpg из того же пайпа этот пароль в упор не видит.

Вопрос для продвинутых программистов и сисадминов: где засада?

Подсказка: проблема решилась после добавления в скрипт пары строчек. Угадайте, каких.

Исходник на перле под катом.

( Read the rest of this entry » )

Оригинал этой записи в личном блоге.
Любые материалы из этого блога запрещается использовать на сайте livejournal.ru в любой форме и любом объёме.

А сегодня ночью один скриптик перловый, запускаемый из крона, не отработал. Бывает. Ну я его перезапустил. А он чего-то думает долго. Минут через десять мне надоело ждать и я посмотрел в код.  А там ТАКОЕ… что прям хоть целиком в code_wtf отправляй.

( Read the rest of this entry » )

Оригинал этой записи. Комментировать можно тут или там.

А что, этот вот масон – хорошая штука? Стоит тратить время на изучение, или с тех пор прогрессивное человечество придумало что-нибудь принципиально лучшее в области фреймворков для веба на перле?

Оригинал этой записи. Комментировать можно тут или там.

эти крутые программисты на перле написали для парсинга логов скрипт аж на 15 килобайт. с командной строкой, выбором файлов по дате в имени, с POD-документацией, use warnings; use strict; use 5.6.0 (хотя непонятно, нафига) и прочими рюшечками.

Но. Проверка на обнаруженность искомых паттернов в очередной строке лога выглядит так:

if (!$1 || !$2 || !$3)
  {
  log_msg <<END;
Malformed regular expression "$regexp": did not get expected matches for time-
stamp, name and elapse-time.
END
  }

Уроды.

сегодня - к тупым недопрограммистам

которые во избежание одновременного запуска двух экземпляров скрипта в начале работы создают пид-файл, а в конце удаляют. а если файл уже есть, то скрипт тихо вываливается.

естественно, в один прекрасный день он умер, не стерев за собой файл.

а про flock этим уродам в колледже не рассказали.

оттуда же:

     if ($username eq "")
         { exit;  }

     if ($username eq "")
       { 
        ...
       }
     else
     {
       ...

ненавижу.

Покажите, пожалуйста, пальцем, где у меня ошибка в ДНК. Или не у меня, а в SOAP::Lite.
А то я уже голову сломал.

Дано: простейший тестовый скрипт о пяти строчках.
#!/usr/bin/perl -w
use SOAP::Lite +trace => "debug";
my $service = SOAP::Lite
-> service('http://...');
$service->envprefix('SOAP-ENV');

my $r = $service->Version();

Во всех инструкциях написано, что вызов метода, даже неудачный, должен вернуть ссылку на SOAP::SOM, после чего можно по ней получать всякие fault, result и paramsout.

Авотфиг. Вызов проходит, я в дампе вижу, что сервер понял запрос и вернул корректный XML. А в $r возвращается скалярная единица.

Аналогичная фигня с попыткой передать в вызываемый метод ссылки на SOAP::Data, как показано в документации. Оно говорит String value expected instead of SOAP::Data reference.

А $service->call('Version') говорит, что "A service address has not been specified either by using SOAP::Lite->proxy() or a service description)", хотя в вышеуказанном явном вызове $service->Version() адрес прокси замечательно обнаруживается.

Сдаётся мне, что я не замечаю каких-то больших граблей, но каких?

P.S. libsoap-lite-perl 0.69-1 в убунте, если что.

офигенно понятный.
Вот попробуйте, не глядя в комменты и документацию, определить, чтО делает эта конструкция
push(@foo,[@bar]);
Способа написать это понятнее я не нашел.

Задача: зачитать XML (лучше, если при этом будут допускаться небольшие ошибки в виде тегов, закрытых в неправильном порядке. или так не бывает?)
кое-что поудалять, для некоторых поддеревьев выколупать значения и выдать их наружу. В базу.
Всё, ничего более сложного не требуется.

Upd: xml - не самоцель, это промежуточный способ хранения данных, выколупанных из pdf. Если есть возможность работать непосредственно с pdf, то она тоже подойдёт.