Opened by NIwu at 2014-10-25 13:58
User since
2014-10-25
44 Artikel
BenutzerIn
2014-10-25
44 Artikel
BenutzerIn
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"]]
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"]]