Просмотр сообщений
1
Perl / LWP не шлет большие файлы
« : 10 Марта 2008, 17:48:23 »
Догадался прицепить WGET, проблема в некотором смысле решена. =)
Новости:
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
2
Perl / LWP не шлет большие файлы
« : 04 Марта 2008, 16:00:39 »
Доброе!
Понимаю зыбкость вопроса, но надо. =)
Есть код:
Штука в том, что всё работало. Но когда надо было отправить файл не в 10 метров, а в 20, LWP перестал посылать.
После этого на серв не льется файл, а сразу идет ответ.. А браузером шлется отлично, и заголовки там похожие. Кажется что LWP не тянет 20 метров..
Понимаю зыбкость вопроса, но надо. =)
Есть код:
Код: [Выделить]
use HTTP::Cookies;
use HTTP::Request::Common;
use LWP::UserAgent;
my $browser = LWP::UserAgent->new;
$browser->proxy(\'http\' => \'http://localhost:8080/\');
$browser->agent(\'Mozilla/4.76 [en] (Win98; U)\');
$response = $browser->post( $url,
[
file1 => ["./01.zip"],
file2 => ["./02.zip"],
],Content_Type => \'form-data\'
);
Штука в том, что всё работало. Но когда надо было отправить файл не в 10 метров, а в 20, LWP перестал посылать.
Код: [Выделить]
POST /index.php HTTP/1.1
Host: **
User-Agent: Mozilla/4.76 [en] (Win98; U)
Content-Length: 34958451
Content-Type: multipart/form-data; boundary=xYzZY
Connection: keep-alive
Posting 34958451 bytes...
После этого на серв не льется файл, а сразу идет ответ.. А браузером шлется отлично, и заголовки там похожие. Кажется что LWP не тянет 20 метров..
3
Perl / перехват вывода командной строки под win32
« : 13 Сентября 2007, 22:02:19 »
Доброе!
Надо запустить прогу в Win и посмотреть выдаваемое ею. Испольовал подсмотренный где-то код:
open FF, "mtn.exe -P|";
my @output = <FF>;
close FF;
Везде работает, но одна программа отдаёт непонятным образом. В командной видно. В комодо её вывод попадает в окно Output и подкрашен в красный. Хотя обычно туда вывод других прог не попадает. В той же командной строке mtn.txt -P>text.txt создаёт пустой файл, хотя на экране она пишет много..
Так понимаю, отдаёт она куда-то ещё. Подскажите плиз как поймать.
UPD: Догадываюсь что это STDERR, но как поймать пока придумать не могу..
Надо запустить прогу в Win и посмотреть выдаваемое ею. Испольовал подсмотренный где-то код:
open FF, "mtn.exe -P|";
my @output = <FF>;
close FF;
Везде работает, но одна программа отдаёт непонятным образом. В командной видно. В комодо её вывод попадает в окно Output и подкрашен в красный. Хотя обычно туда вывод других прог не попадает. В той же командной строке mtn.txt -P>text.txt создаёт пустой файл, хотя на экране она пишет много..
Так понимаю, отдаёт она куда-то ещё. Подскажите плиз как поймать.
UPD: Догадываюсь что это STDERR, но как поймать пока придумать не могу..
4
Perl / из dos в win
« : 25 Августа 2004, 02:27:29 »
Спасибо. Но вроде же логично смотрится. Код. Но не работает.. Теперь даже интереснее именно это, а не то, как ещё можно перекодировать.
5
Perl / из dos в win
« : 21 Августа 2004, 22:22:09 »
Доброе!
use Encode;
$tmp = <STDIN>;
chomp $tmp;
$tmp = decode("cp855", $tmp);
$tmp = encode("cp1251", $tmp);
print $tmp;
open (OUT, ">55.txt") or die $!;
close
Пишу консольную утилу для под win. Нужно спросить у юзера строчку (в DOS кодировке) и сконвертить её в win1251, чтобы потом создать директорию. Вышеприведённый код почти работает, т.е. почти похоже, но не то.
Что исправить или как ещё омжно написать?
Cyrillic.pm можно не советовать, он так на моей машине и не завелся.
use Encode;
$tmp = <STDIN>;
chomp $tmp;
$tmp = decode("cp855", $tmp);
$tmp = encode("cp1251", $tmp);
print $tmp;
open (OUT, ">55.txt") or die $!;
print OUT ($tmp);
close
Пишу консольную утилу для под win. Нужно спросить у юзера строчку (в DOS кодировке) и сконвертить её в win1251, чтобы потом создать директорию. Вышеприведённый код почти работает, т.е. почти похоже, но не то.
Что исправить или как ещё омжно написать?
Cyrillic.pm можно не советовать, он так на моей машине и не завелся.
6
Perl / Немного глючит регулярное
« : 04 Августа 2004, 21:45:27 »
Заработало вот так:
Почему?
Код: [Выделить]
$strout =~ s/$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5]/"$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5].".ttt().$comment/ge;
sub ttt{
my $aa = sprintf (\'%02s\', $i++);
return $aa;
}Почему?
7
Perl / Немного глючит регулярное
« : 04 Августа 2004, 21:01:21 »
Спасибо за советы. Возможно, напишу в таком духе, без рег. Но основной вопрос остался чуть нераскрытым - как правильно написать код замены в регэкспе, чтобы результат был более похож на нужный?
8
Perl / Немного глючит регулярное
« : 02 Августа 2004, 18:53:02 »
commander, больше в том смысле, что мусора там много. Работает всё равно быстро. Мне проще и интереснее через рег... Единственная проблема - не пойму как написать правильно этот кусок кода.
9
Perl / Немного глючит регулярное
« : 02 Августа 2004, 18:26:40 »
Mike, точно, я перепутал. Слова "нужно" и "получается" нужно переставить местами. Получается. 
commander, интересный вариант, я подумаю. Хотя сложность и медленность регов не пугает.
Есть огромный файл. Нужно в нем найти кусочек, совпадающий с числами из @dig и ко всем совпадениям дописать число, увеличивающиеся на единицу.
Мне как-то проще и интереснее отдать его на растерзание регэкспам, чем писать много всяких циклов.
Нужные числа (@dig) тоже находится регэкспом. Тогда должен бы срабатывать этот. Но он почему-то не хочет.
commander, интересный вариант, я подумаю. Хотя сложность и медленность регов не пугает.
Есть огромный файл. Нужно в нем найти кусочек, совпадающий с числами из @dig и ко всем совпадениям дописать число, увеличивающиеся на единицу.
Мне как-то проще и интереснее отдать его на растерзание регэкспам, чем писать много всяких циклов.
Нужные числа (@dig) тоже находится регэкспом. Тогда должен бы срабатывать этот. Но он почему-то не хочет.
10
Perl / Немного глючит регулярное
« : 02 Августа 2004, 17:59:38 »
TEXTBEGIN01.02.03N04:05:06.<01> testTEXTEND - получается
01.02.03\\N04:05:06.<01> testTEXTBEGIN1TEXTEND - нужно.
Почему при /e и разном коде замены в результате работы выражения куски текста меняются местами? Долго переписывал, пробовал разные варианты. Заметил, ещё единица откуда-то в "BEGIN1TEXT".
01.02.03\\N04:05:06.<01> testTEXTBEGIN1TEXTEND - нужно.
Почему при /e и разном коде замены в результате работы выражения куски текста меняются местами? Долго переписывал, пробовал разные варианты. Заметил, ещё единица откуда-то в "BEGIN1TEXT".
11
Perl / Немного глючит регулярное
« : 02 Августа 2004, 17:28:19 »
Доброе!
$strout = \'TEXTBEGIN01.02.03\\N04:05:06TEXTEND\';
$dig[0] = \'01\';
$dig[1] = \'02\';
$dig[2] = \'03\';
$dig[3] = \'04\';
$dig[4] = \'05\';
$dig[5] = \'06\';
$i = \'1\';
$strout =~ s/$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5]/print"$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5].";printf \'<%02s>\', $i++;print " test";/ge;
Почему-то получается "01.02.03\\N04:05:06.<01> testTEXTBEGIN1TEXTEND". То есть не тот порядок, который хотелось бы увидеть. Где грабли?
$strout = \'TEXTBEGIN01.02.03\\N04:05:06TEXTEND\';
$dig[0] = \'01\';
$dig[1] = \'02\';
$dig[2] = \'03\';
$dig[3] = \'04\';
$dig[4] = \'05\';
$dig[5] = \'06\';
$i = \'1\';
$strout =~ s/$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5]/print"$dig[0].$dig[1].$dig[2]\\\\N$dig[3]:$dig[4]:$dig[5].";printf \'<%02s>\', $i++;print " test";/ge;
Почему-то получается "01.02.03\\N04:05:06.<01> testTEXTBEGIN1TEXTEND". То есть не тот порядок, который хотелось бы увидеть. Где грабли?
12
Perl / из win1251 в utf-8
« : 08 Мая 2004, 16:35:01 »
В общем, через ppm чтоже не получается.
Нашел Map8 с dll, поставил.
Если в скрипте есть строка
use Lingua::DetectCharset;
никаких ошибок не выводится насчет Map8, но и скрипт вооще не делает никаких действий. Может в этом направлнии как-то покопать?
Нашел Map8 с dll, поставил.
Если в скрипте есть строка
use Lingua::DetectCharset;
никаких ошибок не выводится насчет Map8, но и скрипт вооще не делает никаких действий. Может в этом направлнии как-то покопать?
13
Perl / из win1251 в utf-8
« : 25 Апреля 2004, 11:00:28 »
Скачал и поставил Microsoft Visual C++ Toolkit 2003, nmake стянул откуда-то с сайта микрософта. Недостающие .h нашлись тоже в Сети.
Теперь ошибки такие:
cl -c -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1 -DVERSION=\\"0.12\\" -DXS_VERSION=\\ "0.12\\" "-IC:\\Perl\\lib\\CORE" -DPERL Map8.c
Map8.c
c1 : warning C4349: /Gf is deprecated and will not be supported in future versions of Visual C++; remove /Gf or use /GF instead
C:\\Perl\\lib\\CORE\\winnt.h(6775) : error C2061: syntax error : identifier \'DWORDulSize\'
C:\\Perl\\lib\\CORE\\winnt.h(6779) : error C2059: syntax error : \'}\'
Map8.xs(164) : warning C4244: \'function\' : conversion from \'IV\' to \'u_short\', possible loss of data
Map8.xs(166) : warning C4244: \'=\' : conversion from \'IV\' to \'U16\', possible loss of data
Map8.xs(359) : warning C4013: \'map8_recode8\' undefined; assuming extern returning int
NMAKE : fatal error U1077: \'C:\\WINXP\\system32\\cmd.exe\' : return code \'0x2\'
Stop.
Теперь ошибки такие:
cl -c -nologo -Gf -W3 -MD -Zi -DNDEBUG -O1 -DWIN32 -D_CONSOLE -DNO_STRICT -DHAVE_DES_FCRYPT -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -DPERL_MSVCRT_READFIX -MD -Zi -DNDEBUG -O1 -DVERSION=\\"0.12\\" -DXS_VERSION=\\ "0.12\\" "-IC:\\Perl\\lib\\CORE" -DPERL Map8.c
Map8.c
c1 : warning C4349: /Gf is deprecated and will not be supported in future versions of Visual C++; remove /Gf or use /GF instead
C:\\Perl\\lib\\CORE\\winnt.h(6775) : error C2061: syntax error : identifier \'DWORDulSize\'
C:\\Perl\\lib\\CORE\\winnt.h(6779) : error C2059: syntax error : \'}\'
Map8.xs(164) : warning C4244: \'function\' : conversion from \'IV\' to \'u_short\', possible loss of data
Map8.xs(166) : warning C4244: \'=\' : conversion from \'IV\' to \'U16\', possible loss of data
Map8.xs(359) : warning C4013: \'map8_recode8\' undefined; assuming extern returning int
NMAKE : fatal error U1077: \'C:\\WINXP\\system32\\cmd.exe\' : return code \'0x2\'
Stop.
14
Perl / из win1251 в utf-8
« : 24 Апреля 2004, 06:33:05 »
[OFF]Может быть кто-нибудь смог бы скомпилировать модуль и скинуть мне. Плииииз.[/OFF]
15
Perl / из win1251 в utf-8
« : 21 Апреля 2004, 12:45:29 »
Да. Распаковал архивы. В C:\\djgpp. Прописал PATH и ENV. Система WinXP, всё это делалолось в FAR\'е.
Вытянул с сайта
unzip32.exe to unzip the zip files 95 kb
v2/copying.dj DJGPP Copyright info 3 kb
v2/djdev203.zip DJGPP Basic Development Kit 1.5 mb
v2/faq230b.zip Frequently Asked Questions 664 kb
v2/pakk023b.zip Pakke Installer 1,017 kb
v2/readme.1st Installation instructions 22 kb
v2apps/rhid149b.zip RHIDE 2.4 mb
v2gnu/bnu214b.zip Basic assembler, linker 3.1 mb
v2gnu/gcc333b.zip Basic GCC compiler 2.8 mb
v2gnu/gdb53b.zip GNU debugger 1.5 mb
v2gnu/gpp333b.zip C++ compiler 2.8 mb
v2gnu/mak3791b.zip Make (processes makefiles) 267 kb
v2gnu/txi46b.zip Info file viewer 761 kb
Вытянул с сайта
unzip32.exe to unzip the zip files 95 kb
v2/copying.dj DJGPP Copyright info 3 kb
v2/djdev203.zip DJGPP Basic Development Kit 1.5 mb
v2/faq230b.zip Frequently Asked Questions 664 kb
v2/pakk023b.zip Pakke Installer 1,017 kb
v2/readme.1st Installation instructions 22 kb
v2apps/rhid149b.zip RHIDE 2.4 mb
v2gnu/bnu214b.zip Basic assembler, linker 3.1 mb
v2gnu/gcc333b.zip Basic GCC compiler 2.8 mb
v2gnu/gdb53b.zip GNU debugger 1.5 mb
v2gnu/gpp333b.zip C++ compiler 2.8 mb
v2gnu/mak3791b.zip Make (processes makefiles) 267 kb
v2gnu/txi46b.zip Info file viewer 761 kb