VPF::CURL+Perl - Форум программистов

=Goldfun=

Дата 8.7.2005, 19:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Доброго времени суток, прошу помощи. Подскажите как начать работать в такой связке CURL+Perl. У меня WinXP и ActiveState Perl. Подскажите, плиз, где скачать необходимые модули и как установить их. Буду очень благодарен если кто-нибудь кинет линк на доки по сабжу.

=Goldfun=

Дата 8.7.2005, 19:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Все как поставить разобрался, киньте плиз линок на документацию Perl+CURL

sharq

Дата 9.7.2005, 00:11 (ссылка)

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

Загрузка ...

Perl Liker

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

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

Следующий пост =Goldfun= :

Цитата

Все документацию нашел, мне бы примерчиков

=Goldfun= ты поставил модуль WWW::Curl? Если да, то perldoc WWW::Curl.

Вот оффициальный сайт Curl, а вот еще сайт.

Если что-то больше нужно, то используй google.

Вот, например, статья о Curl вообще на русском.

Вот пример curl+perl:

Код

# Test script for Perl extension Curl::easy.
# Check out the file README for more info.
use strict;
use WWW::Curl::easy;

my $url = "http://curl.haxx.se/dev/";

print "Testing curl version ",WWW::Curl::easy::version(),"\n";

# Init the curl session
my $curl= WWW::Curl::easy->new() or die "curl init failed!\n";

# Follow location headers
$curl->setopt(CURLOPT_FOLLOWLOCATION, 1);

# Add some additional headers to the http-request:
my @myheaders=(
    "I-am-a-silly-programmer: yes indeed you are",
    "User-Agent: Perl interface for libcURL"
);

$curl->setopt(CURLOPT_HTTPHEADER, \@myheaders);
                                                                        
$curl->setopt(CURLOPT_URL, $url);

sub body_callback {
    my ($chunk,$context)=@_;
    push @{$context}, $chunk;
    return length($chunk); # OK
}

$curl->setopt(CURLOPT_WRITEFUNCTION, \&body_callback);

my @body;
$curl->setopt(CURLOPT_FILE, \@body);

if ($curl->perform() != 0) {
    print "Failed ::".$curl->errbuf."\n";
};

#
# Cleanup is automatic
#
print join("",@body);

Это сообщение отредактировал(а) sharq - 9.7.2005, 00:44

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

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

Guest

Дата 9.7.2005, 12:18 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

благодарен smile

Anarki

Дата 14.7.2005, 19:26 (ссылка)

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

Загрузка ...

Опытный

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

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

Можно запускать curl так,

Код


`curl -s`

и использовать этот вывод, -s это флаг silent mode, т.е. тихий режим, он не выдаёт ошибки и прогресс бар.

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

Мой блог

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