nicht angemeldet
Also das TXT-File hat folgendens Format:
Fiat:rot:1970::Fiat:gelb:1980:Fiat:grün:1981:Fiat:blau:1990
Es stehen also wirklich die gesamten Daten in einer einzige Zeile? Na jeder wie er mag.
Ich weiss war immer noch nicht, was genau rauskommen soll, aber ich schlage Dir einfach mal folgendes vor:
#!/path/to/your/perl -w
use strict;
use vars qw/$filename @records/
$filename = "putoraout.dat";
open(FILE, "<$filename") or die("Can't open $filename for reading because $!");
@records = split('::', <FILE>);
close(FILE);
@pairs = split(/::/, $line);
print "Content-type: text/html\n\n",
"<HTML><BODY><FORM>\n",
"<SELECT>\n";
for (@records) {
my ($brand, $colour, $year) = split(':', $_, 3);
print qq(<OPTION VALUE="$colour">$brand, $colour, $year</OPTION>\n);
}
print "</FORM></BODY></HTML>\n";
Das anzupassen schaffst Du sicher selber.
Der Ausdruck qq(...) in der for-Schleife ist gleichbedeutend mit "...", da die " aber schon innerhalb verwendet werden, habe ich eben diese Delimiter gewaehlt.
So long