Thread Gibt es sowas wie file() in Perl? (7 answers)
Opened by fredthetroll at 2010-05-16 13:55

fredthetroll
 2010-05-16 14:15
#137129 #137129
User since
2010-05-14
10 Artikel
BenutzerIn
[default_avatar]
Cool, danke, das LWP::Simple is ziemlich einleuchtend!
Aber ich kann damit leider keine Response Codes abfangen? Wie stell ich das mit LWP::UserAgent am besten an?

Kann ich das einfach so wie es in cpan steht machen?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
my $useragent = LWP::UserAgent->new;
$useragent->timeout(10);

my $response = $useragent ->get($url);

if ($response->is_success && $response->status_line() eq "100") {
print $response->decoded_content;
}
else {
die $response->status_line;
}


Also ich muss noch dazu sagen, es geht um einen SMS-Versand mittels sms77, und der Response code muss 100 sein, wenn die SMS verschickt wurde.

/edit: Es klappt!
Last edited: 2010-05-16 14:29:21 +0200 (CEST)

View full thread Gibt es sowas wie file() in Perl?