Thread Wagenanzeige Raspberry Pi (73 answers)
Opened by NIwu at 2014-10-25 13:58

NIwu
 2014-11-04 18:17
#178105 #178105
User since
2014-10-25
44 articles
BenutzerIn

user image
Hallo


ich wuste es, ;)

es geht doch nicht um Realität sondern einfach erstmal Datensätze.
Modelleisenbahn ;)

Die richtigen ligen ja in einer DB



also so kommen die aus dem json
my $content = '[["S3","Dresden, Plauen","1"],["S1","Dresden, Flughafen","2"],["RE01","Meissen","10"],["ICE","Hamburg, Neugraben","15"]]';



und zum schluß so

my @keys = qw(ZugNr Richtung Minuten);
my %Fahrplan = ();
foreach my $zug( 1 .. scalar @$array_from_json){
my %hh = (); # Helper Hash
@hh{@keys} = @{$array_from_json->[$zug-1]};
$Fahrplan{$zug} = \%hh;
}


chomp( my @daten = $content );

my @sortiert = map { $_->[0]}
sort { $b->[1] <=> $a->[1] }
map { [ $_, (split/;/)[0,1] ] } @daten;

#print dumper \@sortiert;





print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>Test-Ausgabe</title></head><body>\n";


print "\n";


my $data = scalar($content);
my $Fahrplan = scalar(@keys);
print "@keys<br>\n\n\n";
print "$content<br>\n";
print "</body></html>\n";




Ergebis so:

Content-type: text/html ZugNr Richtung Minuten
[["S3","Dresden, Plauen","1"],["S1","Dresden, Flughafen","2"],["RE01","Meissen","10"],["ICE","Hamburg, Neugraben","15"]]

View full thread Wagenanzeige Raspberry Pi