nicht angemeldet
Klappt ...DANKE!!! Muss zugeben, dass ich mit Perl bis heute morgen nichts am hut hatte. Toll dass man so schnell hilfe bekommt. So sieht der kleine webfuzzer dann aus ...gibt zwar noch ne menge fehler wegen nicht initialisierter variablen (???) ...scheint aber am ergebnis nix zu ändern.
--------------------------
use warnings;
use strict;
use LWP::UserAgent;
my $url=LWP::UserAgent->new();
my ($dokumentennummer);
$dokumentennummer = "";
for $dokumentennummer (1..11000)
{my $response =
$url->get
("http://www.revisionsaufsichtsbehoerde.ch/bausteine.net/file/showfile.aspx?downdaid=$dokumentennummer&sp=D&domid=1063&fd=2",
'Cookie' => 'ASPSESSIONIDQSRCDADR=MPHANLFDEJCNFFIIIOFNEJKE');
open (DATA, ">>output.txt");
my ($header);
$header = "";
$header = $response->header('Content-Type');
my ($content);
$content = "";
$content = $response->header('Content-Lenght');
if ($header eq 'application/pdf')
{print DATA "PDF Dokument vorhanden mit der ID: $dokumentennummer\n";}
elsif ($header eq 'text/html')
{print DATA "HTML DokumentTML vorhanden mit der ID: $dokumentennummer\n";}
elsif ($header eq 'application/vnd.ms-excel')
{print DATA "XLS DokumentTML vorhanden mit der ID: $dokumentennummer\n";}
else
{print DATA "nichts zu finden unter $dokumentennummer\n"; }
close (DATA);
}