nicht angemeldet
Externe Datei einlesen und ausgeben.
Hallo!
Ich möchte die Datei
http://chart.yahoo.com/table.csv?a=6&b=1&c=2003&d=6&e=8&f=2003&s=^gdax&y=0&g=d&ignore=.csv
in ein Perl-Script einlesen.
Leider funktioniert das Script nicht mit der yahoo-Adresse.
Mit meiner lokalen Testdatei habe ich keine Probleme.
Eine Fehlermeldung bekomme ich nicht... (?)
Wer kann mir weiterhelfen?
Danke.
Tobi
Quelltext:
---
#!/usr/bin/perl
print "Content-type: text/html\n\n";
variable -----------------------------------------------------------------
$dbpfad = "testkurse.txt";
$dbpfad2 = "http://chart.yahoo.com/table.csv?a=6&b=1&c=2003&d=6&e=8&f=2003&s=^gdax&y=0&g=d&ignore=.csv";
$auswahl = 0;
...
&datenoeffnen;
&datenausgeben;
datenoeffnen -------------------------------------------------------------
sub datenoeffnen {
open (DATEIINHALT, "<$dbpfad");
@gesamtedatei = <DATEIINHALT>;
close (DATEIINHALT);
}
datenausgeben ------------------------------------------------------------
sub datenausgeben {
$max = @gesamtedatei;
header -------
print <<HTML1;
<html>
<title>Kursdaten</title>
<body bgcolor="white">
<a name="top">
HTML1
print "max: $max<hr>\n";
print "auswahl: $auswahl<hr>\n";
print "dbpfad: $dbpfad<hr>\n";
print "datei: @gesamtedatei<hr>\n";
print "</body></html>\n";
}
-
Halihallo Tobi
sub datenoeffnen {
open (DATEIINHALT, "<$dbpfad");
@gesamtedatei = <DATEIINHALT>;
close (DATEIINHALT);
}Du möchtest dich mit LWP::Simple, LWP::UserAgent oder allgemein perldoc lwpcook befassen.
Externe Ressourcen lädt man nicht über open (das ist eine eigenart von z.B. PHP, nicht
jedoch Perl).Viele Grüsse
Philipp
--
RTFM! - Foren steigern das Aufkommen von Redundanz im Internet, danke für das lesen der Manuals.
Selbstbedienung! - Das SelfForum ist ein Gratis-Restaurant mit Selbstbedienung, Menüangebot steht in den </faq/> und dem </archiv/>.