VPF::1.Строки 2.file2mail и пр. - Форум программистов

Lat1n0S

Дата 1.1.2006, 21:38 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 1.1.2006

Репутация: нет
Всего: нет

1.Вот написал я простенький довнлоад скрипт

Код


use IO::Socket;
$server="127.0.0.1";
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80");
printf $socket ("GET /123.txt HTTP/1.0\nHost: host.ru\nAccept: */*\nConnection: close\n\n");
while(<$socket>){print "$_";}

На тот случай,если на сервере нет качалок(wget,curl и пр.)
Т.е.

Код


bash-2.05a$ ./download.pl > 123.txt

Но трабл...Там ещё и ответ сервера..типо:

Код


HTTP/1.1 200 OK
Date: Sun, 01 Jan 2006 18:18:43 GMT
Server: Apache/2.0.48 (Win32)
Accept-Ranges: bytes
Content-Length: 1980
Connection: close
Content-Type: text/html; charset=windows-1251

Вообщем нужно,или удалить все строчки до первой пустой строки,или удалить первые 8 строк smile

2. Какой модуль может посылать файл на e-mail?

3. Как работать с бинарными протоколами?
Вот например,с простым всё ясно:

Код


use IO::Socket;
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "127.0.0.1", PeerPort => "12345");
print $socket "super_command\n";
print $socket "puper_command\n";
while(<$socket>){print "$_";}

А кто нить может дать подобный примерчик,только для работы с бинарными протоколами?
smile

sharq

Дата 4.1.2006, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Lat1n0S
1. Тебе действительно стоит получить заголовок ответа.
Заголовок: от начала, до первой пустой строчки, т.е. до "\n\n".
Это ты можешь сделать в цикле, пропуская эти строчки, или использовать модуль LWP, который написан специально для этих целей.

2. Файл можно послать на email - написать письмо с аттачем, это можно и ручками сделать, а можно использовать модуль, например, MIME::Lite.

3. Что значит простой и бинарный протокол?
По-твоему, протокол tcp - это простой. smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Lat1n0S

Дата 5.1.2006, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 1.1.2006

Репутация: нет
Всего: нет

1.Ну да,чёт ступил smile

)
2.попробую
3.ну например ICQ протокол бинарный(байты посылать),а IRC не бинарный smile

)

sharq

Дата 6.1.2006, 15:23 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 3
Всего: 28

Lat1n0S для работы с различными протоколами, в т.ч. с бинарными написаны модули, их можешь найти на CPAN. Обычно это модули семейства Net::*.
Вот например, для работы с ICQ - смотри здесь.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

Lat1n0S

Дата 8.1.2006, 16:30 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 1.1.2006

Репутация: нет
Всего: нет

Дык,модули это само собой,но допустим Mail.ru Agent'a там нету модуля ;)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Системное программирование \| Следующая тема »