îch will eine abfrage für eine seite www.test.de/dokid=x starten und die antwort auswerten. Dies z.B. für x=1-10. Die header antwort soll mir zeigen, ob ein pdf vorhanden ist oder nicht. Wenn ich die Variable x direkt in der abfrage wie hier definiere:
use strict;
use warnings;
use LWP::UserAgent;
my $url=LWP::UserAgent->new();
{
my $response =
$url->get
('http://www.test.de.ch/gaga.aspsx?ID=1',
'Cookie' => 'ASPSESSIONIDQSRCDADR=MPHANLFDEJCNFFIIIOFNEJKE');
my $header = '';
$header = $response->header('Content-Type');
if ($header eq 'application/pdf') {
print "ok\n";
} else {
print "shit\n"; }
}
klappt das ganz gut. In dem moment wo ich aber eine schleife mit "for" und der varaible definiere wird die antwort nicht mehr korrekt ausgewertet:
use strict;
use warnings;
use LWP::UserAgent;
my $url=LWP::UserAgent->new();
my $dokumentennummer = '';
for $dokumentennummer (7300..7330)
{
my $response =
$url->get
('http://www.test.de/gaga.aspsx?ID=$dokumentennummer',
'Cookie' => 'ASPSESSIONIDQSRCDADR=MPHANLFDEJCNFFIIIOFNEJKE');
my $header = '';
$header = $response->header('Content-Type');
if ($header eq 'application/pdf') {
print "ok\n";
} else {
print "shit\n"; }
}
wer sieht den Fehler?