aboutsummaryrefslogtreecommitdiff
path: root/perl/Curl_easy/examples
diff options
context:
space:
mode:
authorDaniel Stenberg <daniel@haxx.se>2001-09-17 12:20:44 +0000
committerDaniel Stenberg <daniel@haxx.se>2001-09-17 12:20:44 +0000
commit3bc83926cee759f0a58695d5456fc178c208cfa1 (patch)
treede371eb8ee56e00883f2c4809e0d7bb5712d716a /perl/Curl_easy/examples
parentc5cca4d05933b1f3b130c19cb044e98c51552a7d (diff)
just a simple example that seems to work!
Diffstat (limited to 'perl/Curl_easy/examples')
-rw-r--r--perl/Curl_easy/examples/basicfirst.pl48
1 files changed, 48 insertions, 0 deletions
diff --git a/perl/Curl_easy/examples/basicfirst.pl b/perl/Curl_easy/examples/basicfirst.pl
new file mode 100644
index 000000000..a04deb515
--- /dev/null
+++ b/perl/Curl_easy/examples/basicfirst.pl
@@ -0,0 +1,48 @@
+# Test script for Perl extension Curl::easy.
+# Check out the file README for more info.
+
+use strict;
+use Curl::easy;
+
+my $url = "http://curl.haxx.se/dev/";
+
+print "Testing curl version ",&Curl::easy::version(),"\n";
+
+# Init the curl session
+my $curl= Curl::easy::init();
+if(!$curl) {
+ die "curl init failed!\n";
+}
+
+# Follow location headers
+ Curl::easy::setopt($curl, CURLOPT_FOLLOWLOCATION, 1);
+
+# Add some additional headers to the http-request:
+my @myheaders;
+$myheaders[0] = "I-am-a-silly-programmer: yes indeed you are";
+$myheaders[1] = "User-Agent: Perl interface for libcURL";
+ Curl::easy::setopt($curl, Curl::easy::CURLOPT_HTTPHEADER, \@myheaders);
+
+my $errbuf;
+Curl::easy::setopt($curl, CURLOPT_ERRORBUFFER, "errbuf");
+
+Curl::easy::setopt($curl, CURLOPT_URL, $url);
+
+sub body_callback {
+ my ($chunk,$handle)=@_;
+ push @$handle, $chunk;
+ return length($chunk); # OK
+}
+ Curl::easy::setopt($curl, CURLOPT_WRITEFUNCTION, \&body_callback);
+
+my @body;
+ Curl::easy::setopt($curl, CURLOPT_FILE, \@body);
+
+if (Curl::easy::perform($curl) != 0) {
+ print "Failed :$errbuf\n";
+};
+
+# Cleanup
+ Curl::easy::cleanup($curl);
+
+print @body;