Perl Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Perl Examples

Quick Start
Unicode
Byte Array
Bz2
Certificates
CSV
Email
Encryption
FTP
HTML Conversion
HTTP
IMAP
MHT
MIME
POP3
RSA
S/MIME
Signatures
SMTP
Socket / SSL
Spider
SFTP
SSH Key
SSH
SSH Tunnel
Tar
HTTP Upload
XML
XMP
Zip

More Examples...
String
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

 

 

 

 

 

 

 

Checking the HTTP Response Status Code

Simple HTTP GET request to download the HTML of a web page. Check the HTTP response status code (i.e. 200, 404, etc) to see if it downloaded successfully.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

use chilkat();

$http = new chilkat::CkHttp();

# Any string unlocks the component for the 1st 30-days.
$success = $http->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $http->lastErrorText() . "\n";
    exit;
}

# Send the HTTP GET and return the content in a string.

$html = $http->quickGetStr("http://www.google.com/");

$status = $http->get_LastStatus();

if ($status == 200) {
    print "status = 200, OK!" . "\r\n";
}
else {
    print "HTTP Response status = " . $status . "\r\n";

    # Display the complete response header.
    print $http->lastResponseHeader() . "\r\n";
}

# Now try a URL where we know we'll get a 404 response:
$html = $http->quickGetStr("http://www.chilkatsoft.com/NothingHere.html");

$status = $http->get_LastStatus();

if ($status == 200) {
    print "status = 200, OK!" . "\r\n";
}
else {
    print "HTTP Response status = " . $status . "\r\n";

    # Display the complete response header.
    print $http->lastResponseHeader() . "\r\n";
}

 

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.