LINUX.ORG.RU

Сообщения Yakoot

 

KDE 5 сочетания клавиш Ctrl+Shift+(+/-/0)

Добрый день. Может, кто подскажет? Пытаюсь задать сочетания клавиш для увеличения/уменьшения/отключения звука через стандартный менеджер сочетаний. При попытке задать Ctrl+Shift++, например, он переделывает его на Ctrl++, аналогично с другими. Исправил в .config/kglobalshortcutsrc, перелогинился, в итоге в нём всё вернулось в предыдущее состояние, сочетания всё ещё не работают. В чём может быть проблема, как применить этот конфиг?

 

Yakoot
()

[Perl] HTTP::Message content must be bytes at..

Доброго времени суток.. не могу разобраться со следующей проблемой.. делаю запрос в БД, получаю оттуда ФИО, оно приходит в виде вопросиков.. сделал следующее:

$dsn = «DBI:mysql:database=$DBName;host=localhost»;

$dbh = DBI->connect($dsn, $DBUser, $DBPassword);

$dbh->do(«set character set utf8»);

$dbh->do(«set names utf8»);

после этого получает нормально, но мне затем нужно отправить полученную переменную посредством POST-запроса.. а вот тут уже не проходит, пишет

HTTP::Message content must be bytes at

делаю запрос через

$req = HTTP::Request->new(POST=>$url);

$req->content_type('application/x-www-form-urlencoded');

$req->content($content); #ругается на эту строку..

помогите, если не трудно?

 

Yakoot
()

запуск одного perl-скрипта из другого

Доброго времени суток. Прошу помочь с моей проблемой.. пытаюсь в одном перл-скрипте получить параметр и передать его в другой.. для теста создал на своей машине два файла, 1.pl и 2.pl

в первом

#!/usr/bin/perl

do «2.pl 123»;

во втором

#!/usr/bin/perl

print «@ARGV[0]\n»;

итог:

yakoot@yakoot:~$ perl 1.pl

yakoot@yakoot:~$ perl 2.pl 123

123

почему через do не передается параметр?

Yakoot
()

perl, timeout при опросе ns серверов

Доброго времени суток.. при заказе услуги нужно опросить ns-сервера на наличие заданного доменного имени в них.. прерывать текущий опрос при таймауте в 5 секунд.. делаю через Net::DNS::Resolver @ns - список из трех серверов, добавил туда несуществующий четвертый, дабы создать таймаут для проверки our $TIMEOUT = 10;

foreach (@ns)

{

eval

{

local $SIG{ALRM} = sub { die «timeout\n»; };

alarm $TIMEOUT;

$res = Net::DNS::Resolver->new(nameservers => [$_]);

$query = $res->query($domain);

if ($query)

{

print «<?xml version=\„1.0\“ encoding=\„UTF-8\“?><doc><error code=\„8\“>Автоматически сгенерированное доменное имя $domain уже используется другой услугой/товаром. Укажите, пожалуйста, другое.</error></doc>»;

exit;

} alarm 0;

};

alarm 0;

}

alarm 0;

проверяю, заказывая услугу, никакой задержки, хотя таймаут ставил и 50 и 500.. что не так?

Yakoot
()

RSS подписка на новые темы