[perl] cURL ohne Output - Wie geht das?

[measel101]

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]

Hi,

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

my $output;
open( T, '>', \$output );
select T;
$curl->perform();
select STDOUT;

Anschließend hast du dann die Ausgaben in $output drinne.

Grüße,
MArc