Сообщения

31

Perl / Узнать тип файла

« : 07 Апреля 2006, 15:30:04 »

Копируешь в свой домашний каталог файл mime.types, затем:

use File::MimeInfo;
push(\'home/user\',@File::MimeInfo::DIRS);
  my $mime_type = mimetype($file);

32

Perl / Как перевести скаля в массив. Каждый элемент - байт. unpack - медленно.

« : 07 Апреля 2006, 15:24:08 »

быстрее чем встроенная функция unpack - у тебя не получится это сделать, тем облее подключая внешние модули типа Inline::C.
Ведь Perl написан на С.
На асме конечно можешь попробовать, но не факт что выйдет быстрее.

33

Perl / Как сделать модуль под unix в модуль под Windows?

« : 07 Апреля 2006, 15:21:42 »

при make он собирается - точнее компилируется.
так как в винде нет команды make, то требуется компилятор типа vcc++, с которым идет тулза nmake, которая аналогична make (выполняет ту же работу). Так что после perl Makefile.PL, запускаем nmake.
P.S
Но модуль написаный под никсы не поставится (в 9 случаях из 10-ти) под винду, и дажзе не собереться, все это в основном связано с разными библиотеками, которые используются в исходниках. При этом библиотеки аналогичны, но называются по разному и естессно могут иметь разные функции (или просто разные их названия).

34

Perl / неправильно отображаются данные в Memo-полях (срочно)

« : 03 Апреля 2006, 16:40:42 »

я эту проблему решал так:
при парсинге данных из формы, все символы \\n заменял на
,
в базе хранилось все с символами
.
то есть примерно так:
$line=~s/\\n/
/g;

35

Perl / Проблема с hex строкой

« : 03 Апреля 2006, 15:47:15 »

Разобрался - просто ступил...
Спасибо NeoNox

36

Perl / Проблема с hex строкой

« : 02 Апреля 2006, 20:13:53 »

Требуется создать строку типа:
my $foot="\\x00\\x00\\x01\\x00\\x01";
И я ее создаю из строки:
$host=\'test.ru\';
foreach my $sym(split(//,$host)) {
   $temp.=sprintf("%x",ord($sym));
}
в итоге получаю строку содержащую в общем-то то что надо, но при записи в файл (к примеру) эта строка не понимается как шестнадцатеричная...
или...
в общем проблема в сочетании шестадцатеричных строк и обычных?
К примеру упаковав IP адрес через
pack(\'C4\',$ip1,$ip2,$ip3,$ip4) - я получаю нужную мне строку, а вот при попытке тоже самое сделать с обычной строкой (к примеру имя хоста) - получаю фигню... в смысле данные не рассматриваются как hex, а рассматриваются как обычная строка?
Запутанно объясняю - просто уже торможу виимо..
если кто-то понял проблему - подскажите плз...

37

Perl / Вопрос по сокету

« : 30 Марта 2006, 13:20:27 »

а если так:

#!/usr/bin/perl
use IO::Socket;
$socket = IO::Socket::INET->new(PeerAddr => "www.engcomp.ufrn.br",
PeerPort => \'21\',
Proto => \'tcp\');
send($socket,"USER ftp\\r\\n",0);
send($socket,"PASS ftp\\r\\n\\r\\n",0);
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";
recv($socket,$otvet,1024,0);
print $otvet,"\\n";

38

Perl / Почему не работает

« : 29 Марта 2006, 18:28:50 »

дебаггер в руки и - отслеживаем процес работы скрипта и инициализации переменных.

39

Perl / Net::RawIP для ActivePerl?

« : 29 Марта 2006, 18:11:34 »

Нашел довольно интересный модуль - заточен под Win, но не портирован для ppm, попробую его заюзать.
http://search.cpan.org/~jlmorel/Win32-NetPacket-0.03/lib/Win32/NetPacket.pm
Хотя вот нашел и под ppm:
ppm install http://www.bribes.org/perl/ppm/Win32-NetPacket.ppd
В частности думаю это мне поможет:

    SendPacket
    $success = $nic->SendPacket( $packet )
        This method is used to send a raw $packet to the network through the
        $nic adapter . "Raw packet" means that the programmer will have to
        build the various headers because the packet is sent to the network
        "*as is*". The user will not have to put a "bpf_hdr" header before
        the packet. Either the CRC needs not to be calculated and added to
        the packet, because it is transparently put after the end of the
        data portion by the network interface.

        The optimised sending process is still limited to one packet at a
        time: for the moment it cannot be used to send a buffer with
        multiple packets.

Вообще репозиторий полезный - советую всем.
http://www.bribes.org/perl/ppmdir.html

40

Perl / Реально ли скрыть код перл

« : 28 Марта 2006, 18:19:16 »

Из описалова к этому Dev Kit\'у (в который входит perlapp):

Turn your Perl programs into ready-to-run executables for AIX, HP-UX, Linux, Solaris, and Windows. Painlessly debug Perl scripts. Generate code for sophisticated filters, or convert useful VBScript code to Perl. Plus create .NET and ActiveX components, Windows services, and system tray applications, all written in Perl.

Так что если не независимоть - то разные бинарники под разные платформы вполне возможны.

41

Perl / CVS

« : 28 Марта 2006, 18:17:44 »

это вы конечно же видели?
http://search.cpan.org/search?query=CVS&mode=all

42

Perl / Структуры

« : 28 Марта 2006, 17:54:54 »

Я просто заинтересовался этим модулем, в связи с тем что хочу попробовать реализовать работу с RAW сокетами через него. То есть написать код на С по формированию и отправки пакета, а данные для этого пакета передавать в Сишную функцию средствами Perl.

43

Perl / Реально ли скрыть код перл

« : 28 Марта 2006, 17:17:52 »

perl2exe - это определенно лажа.
Я пользуюсь регулярно perlapp, хотя не уверен насколько эта штука сильна в плане стойкости к расшифровке, но думаю более чем алгоритм Паланта. А если их сочетать, то можно добиться неплохого результата.

44

Perl / Структуры

« : 28 Марта 2006, 11:27:05 »

а в чем проблема была и как решилась?

45

Perl / вопрос по кукам (наверное)

« : 27 Марта 2006, 16:59:54 »

Тогда проследи коды ответов сервера - может там есть какие-либо редиректы - которые ты не учитываешь.