[perl] cURL ohne Output - Wie geht das?


measel101

Mitglied
Code:
my $curl = new WWW::Curl::Easy;

$curl->setopt(CURLOPT_FOLLOWLOCATION, 1);
$curl->setopt(CURLOPT_TIMEOUT, 2);
$curl->setopt(CURLOPT_HEADER, 0);
$curl->setopt(CURLOPT_URL, $url);

$curl->perform();
Dieser Code funktioniert soweit, aber wie verhindere ich, dass ich die aufgerufene Seite ausgegeben wird?

Unter PHP gibts eine RETUNRCONTENT Option, aber diese geht unter Perl nicht.
 

MArc

Erfahrenes Mitglied
Hi,

Ich habe jetzt nicht auf die schnelle die passende Option gefunden, aber
um die Ausgabe temporär umzuleiten, kannst du auch folgendes machen:

Perl:
my $output;
open( T, '>', \$output );
select T;
$curl->perform();
select STDOUT;
Anschließend hast du dann die Ausgaben in $output drinne.

Grüße,
MArc