AK
Чтобы кодировка клиента устанавливалась при коннекте к базе автоматом, в том числе и в клонах $dbh, можно делать так
Size: a a a
2020 September 24
AG
короче копай в сторону параметров, там все работает, просто параметры надо задавать, перенос строки там тож задается
Я копаю, но результата не видно — не знаю как заставить \t, \n эскейпиться, Хоть свой модуль пиши
ММ
Я копаю, но результата не видно — не знаю как заставить \t, \n эскейпиться, Хоть свой модуль пиши
там были каие-то настройки, можно было по хитрому передавать, не могу сейчас найти пример
ММ
можно сначала предобработать фаил если чё
ММ
открыл перед парсингом, пробежался, удалил что не надо. иногда так делаю
ММ
насколько понимаю у тебя там в .tsv муз. произведения ?
AG
нет, я таблицу из mysql перегружаю в весь файл с некоторой трансформацией, в основном числа с null но и текст встречается
AG
колонок много под сотню
AG
просто написал генератор на чистом perl и увидел, что много на это времени требуется, подумал, что наверно кто-то уже об этом подумал
AG
не критично вообщем, но и неидеально
О
Я копаю, но результата не видно — не знаю как заставить \t, \n эскейпиться, Хоть свой модуль пиши
думаю, можно, в крайнем случае, сделать before_print callback в нём вручную эскейпить \r\n\t
ММ
нет, я таблицу из mysql перегружаю в весь файл с некоторой трансформацией, в основном числа с null но и текст встречается
так срауз и мускуля выгружай Text::Csv
ММ
а потом точно так же и загружай
2020 September 25
VG
помогите разобраться с epoll/read? пишу на низком уровне, потому что планирую переписать код позже на cpp. проблема такая. приходит событие EPOLLIN от epoll_wait на чтение из дескриптора (stdout запущенного в фоне процесса)
читаю из дескриптора по событию
но вызов блокируется в ожидании чего-то. собственно вопрос почему он останавливается и что ему нужно? может он хочет считать $BLOCKSIZE байт из потока, а их там не хватает?
my $pid_in = open(my $pin, "-|", $$prgs[0]) or die "Can't start in: $!";
читаю из дескриптора по событию
$bytes = read ($pin, $data, $BLOCKSIZE);
но вызов блокируется в ожидании чего-то. собственно вопрос почему он останавливается и что ему нужно? может он хочет считать $BLOCKSIZE байт из потока, а их там не хватает?
sysread() надо делать в этом случае, чтобы сишному read() соответствовало
ДЛ
а теперь другая проблема. все работает, но иногда мне нужно перезапустить процесс, STDOUT которого я читаю. посылаю ему kill "TERM", а потом делаю закрытие дескриптора. и это закрытие может выполняться несколько секунд и мой основной процесс останавливается на это время. как-то можно закрыть дескриптор другим способом, отложенно или в форке?
SZ
а теперь другая проблема. все работает, но иногда мне нужно перезапустить процесс, STDOUT которого я читаю. посылаю ему kill "TERM", а потом делаю закрытие дескриптора. и это закрытие может выполняться несколько секунд и мой основной процесс останавливается на это время. как-то можно закрыть дескриптор другим способом, отложенно или в форке?
Что значит "несколько секунд"? Как ты его закрываешь?
ДЛ
my $pid_in = open(my $pin, "-|", $$prgs[0]) or die "Can't start in: $!";
epoll_ctl($epfd, EPOLL_CTL_DEL, fileno $pin, EPOLLIN) >= 0 || die "epoll_ctl: $!\n";
kill "TERM", $pid_in;
$pin->close();
SZ
my $pid_in = open(my $pin, "-|", $$prgs[0]) or die "Can't start in: $!";
epoll_ctl($epfd, EPOLL_CTL_DEL, fileno $pin, EPOLLIN) >= 0 || die "epoll_ctl: $!\n";
kill "TERM", $pid_in;
$pin->close();
Ты используешь перловые обертки. Закрывай через syscall, будет быстрее
ДЛ
через POSIX по номеру? #у меня что-то телеграм сегодня лагает (
ДЛ
а это как, через POSIX? какая есть функция?