USSR klausė

USSR klausė: Kaip su Perl/CGI patikrinti, ar puslapio adresas egzistuoja?

Perl Guru atsako:

Vienas iš būdų yra toks. Jeigu turit LWP biblioteką tai padaryti nėra sudėtinga:

#!/usr/bin/perl -w

# head.pl

use LWP;
my $ag=LWP::UserAgent->new;
my $re=HTTP::Request->new(HEAD=>’http://perl.tinklapis.lt/index.html’);
my $resp=$ag->request($re);
$resp->is_success or die $resp->message;
print $resp->status_line;

Jeigu psl. yra, spausdina 200 OK ar ką nors panašaus, jei ne – klaidos pranešimą.

Susiję straipsniai:

• Susijusių straipsnių nėra