Thanks a lot for the quick response. This is just what I needed. Time to
move all my code from LWP to libcurl ;)

btw any specific reason why this is not on CPAN ??

thanks,

- kalyan

On Thu, 10 Oct 2002, Cris Bailiff wrote:

> Kalyan,
>
> I've posted your question and my reply to the libcurl list, so that others
> with the same question can find the answer in future:
>
> On Thu, 10 Oct 2002 04:36, Kalyan Varma wrote:
> > hello there,
> > I have been using your Curl::easy module and ran into an issue.
> > Whenever I do $curl->perform(); this prints out the HTTP headers to stdio.
> > Any way to get around this ??
>
> Yes. You need to understand a little about how the curl library performs it's
> output. By default all output (headers and body) goes to STDOUT. You can ask
> libcurl to send output elsewhere, either by providing a new file handle with
> CURLOPT_FILE (for the body) and CURLOPT_WRITEHEADER (for the headers) or you
> can ask curl to call ('callback') your own subroutine instead, where you can
> do what you like with the data. If you choose to call your own subroutine,
> then the value of CURLOPT_FILE or CURLOPT_WRITEHEADER is passed to that
> subroutine, for it to use as it pleases (they don't have to be file handles).
>
> You tell libcurl to call your routine by using CURLOPT_WRITEFUNCTION (for the
> body) or CURLOPT_HEADERFUNCTION (for the headers). In the example you used,
> only the CURLOPT_WRITEFUNCTION is given, so the header data stilll goes to
> 'stdout'.
>
> The 'body callback' routine here actually 'generic' - it is fine as a header
> callback as well, and will put the data into the array defined by '$context',
> which can be different for each type of call. So, you can get the headers in
> another array:
>
> > sub get_page {
> > my ($url) = @_;
> > my $curl= Curl::easy->new() or die "curl init failed!\n";
> > $curl->setopt(CURLOPT_FOLLOWLOCATION, 1);
> > my @myheaders=("User-Agent: Test Agent");
> > $curl->setopt(CURLOPT_HTTPHEADER, \@myheaders);
> > $curl->setopt(CURLOPT_URL, $url);
> >
>
> sub callback { # better name
> > my ($chunk,$context)=@_;
> > push @{$context}, $chunk;
> > return length($chunk); # OK
> > }
>
> $curl->setopt(CURLOPT_WRITEFUNCTION, \&callback);
>
> Set the header function here:
>
> $curl->setopt(CURLOPT_HEADERFUNCTION,\&callback);
>
> > my @body;
> > $curl->setopt(CURLOPT_FILE, \@body);
>
> Have the headers put in their own array:
> my @headers;
> $curl->setopt(CURLOPT_WRITEHEADER,\@headers); # reference to headers
>
> > $curl->perform(); <--- HTTP headers printed here
> >
> > my $data = join("",@body);
>
> Now your headers are in @headers.
>
> > return $data;
> >
> > }
>
> If you don't want the headers (I'm sure you will do), you could just use an
> 'empty' callback routine, and no extra array:
>
> $curl->setopt(CURLOPT_HEADERFUNCTION, sub { return length($chunk) } ); # do
> nothing
>
> (The subroutine still needs to return the length of the data 'consumed', to
> signal to libcurl that it worked OK).
>
> Cris
>
>
>

-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf
Received on 2002-10-10