Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Открыть страничку!

Автор: Nookie 13.7.2005, 21:44

Как сделать запрос типа:
http://www.localhost.com/index.php?df=dfdf&fd=12312
ответ получить в файл??

Автор: korob2001 13.7.2005, 22:00

Чуть подробнее, если можно. Что значит в файл? Тебе нужно получить зеркало страницы?

Автор: Nookie 13.7.2005, 22:01

да, весь код страницы!

Автор: korob2001 13.7.2005, 22:04

Попробуй таким способом:

Код


#!/usr/bin/perl
use strict;
use LWP::Simple;
my $url = "http://www.localhost.com/index.php?df=dfdf&fd=12312";
mirror( $url, "test.html");

Удачи.

Автор: sharq 13.7.2005, 22:13

Тебе нужно получить результат данного url и сохранить этот результат (html-страницу) в файл?

Если так, то читай http://forum.vingrad.ru/index.php?showtopic=57840.

Если нет, то поясни, что тебе нужно сделать.

Автор: korob2001 13.7.2005, 22:29

sharq - привет!
Да нет, ему просто зеркало нужно было.

Автор: Nookie 14.7.2005, 12:53

Спасибо, korob2001!

То, что мне нужно! ещё можно вопрос!
где можно взять Ман по perl, работы с интернет!
(почта, урл, запросы)

Автор: korob2001 14.7.2005, 14:35

Посмотри здесь перевод стандартной документации:
http://forum.vingrad.ru/index.php?showtopic=1167

Особое внимание обрати на документацию по CGI и LWP, они для тех целей, которые тебя интересуют. Так же воспользуйся поиском, я где-то в разделе выкладывал полную эл.версию книги "Perl-специальный справочник" Стивена Холзнера.

Удачи.

Автор: Nookie 14.7.2005, 21:57

Ещё раз спасибо, буду изучать, понравилось!
и ещё один вопрос: что это значит??:

Global symbol "$first" requires explicit package name at D:\NeedFor\project\url.pl line 5.

Автор: sharq 14.7.2005, 22:23

Цитата(Nookie @ 14.7.2005, 21:57)

Global symbol "$first" requires explicit package name at D:\NeedFor\project\url.pl line 5.

Это ошибка. Очевидно, ты используешь прагму use strict и переменую $first ты не описал (5 строка твоего скрипта). Поэтому можешь сделать так:

Код

use strict;
...
my $first = ...;

И все.

Автор: Nookie 14.7.2005, 22:25

Это каждую переменную надо описывать так!?

Автор: sharq 14.7.2005, 22:34

Если тебе не нужно, чтобы переменая была глобальной (ключевое слово our), то да (ключевое слово my).

Автор: Nookie 14.7.2005, 23:04

спасибо!

Автор: Nookie 15.7.2005, 13:15

Я так и не нашел в документации, как можно отправить письмо через Perl?
Зная логин, пароль, сервер, все короче!
Подскажите Плизззз!

Автор: sharq 15.7.2005, 14:06

Nookie смотри документацию по sendmail или модулям Net::SMTP, Mail::Sendmail, MIME::Lite, IO::Socket или Socket. В общем вариснтов море.

Автор: Nookie 15.7.2005, 21:37

sharq А где её можно взять???

Автор: Nookie 15.7.2005, 21:49

Я вот нашел пример:

Код


use Net::SMTP;
$smtp = Net::SMTP->new('сервер');
$smtp->mail('от_кого');
$smtp->to('кому');
$smtp->data();
$smtp->datasend("To: postmaster \n");
$smtp->datasend("\n");
$smtp->datasend("test message\n");
$smtp->dataend();
$smtp->quit;

Только тут ничего не сказано про пароль на ящик(куда его вписывать), а мне без него никак!
В интете езде одно и то же, а только про модульи не нашел! помоги, если ещё не надоел??

Автор: sharq 16.7.2005, 01:01

зачем тебе пароль при отправке писем, при получение понятное дело...
Кстати, в этом и косяк SMTP и из-за этого спам!

Цитата(Nookie @ 15.7.2005, 21:49)

помоги, если ещё не надоел??

все окей! для этого форум предназначен. smile

Автор: Nookie 16.7.2005, 13:11

Можно отправить с любого сервера, от любого лица smile

кажется mail.ru не даст такое сделать!

Автор: sharq 18.7.2005, 17:20

Nookie да, ты прав, вот недавно mail.ru ввел авторизацию (причем логи и пароль должен совпадать с логином и паролем некоторого account'а на сервере).

Но есть, которые такую проверку не осуществляет, даже в нете где-то список был.
Можешь поискать в googl'е.

Цитата(Nookie @ 16.7.2005, 13:11)

Можно отправить с любого сервера, от любого лица

А ты что знаешь всех, кто тебя спамит??? smile