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

Linuxer
 2014-10-31 14:53
#178032 #178032
User since
2006-01-27
3888 articles
HausmeisterIn

user image
Hi,

die Daten kannst Du mit CPAN:LWP::Simple abholen.
Den Datenstring kannst Du mit CPAN:JSON in eine Daten-Struktur umwandeln, mit der Du dann in Perl arbeiten kannst.

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
#! /usr/bin/perl
use strict;
use warnings;

use JSON;                      # muss evtl. nachinstalliert werden
use LWP::Simple;               # muss evtl. nachinstalliert werden
use Data::Dumper;

# Wo sind die Daten zu holen?

my $url = "http://192.168.0.99/abfahrten.do?id=01";

# Daten abholen lasssen
#my $content = '[["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["01","Dresden, Plauen","2"],["05","Hamburg, Neugraben","5"]]';
my $content = get( $url );

# Abbruch, wenn Daten nicht geholt werden konnten
die "Could not load data from $url."    if not defined $content;

# Bereite JSON-Parser vor 
my $json = JSON->new->allow_nonref;

# Dekodiere JSON-Daten und erstelle eine Datenstruktur
my $data = $json->decode( $content );


# Kontrollausgabe
print Dumper $data;
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!

View full thread Wagenanzeige Raspberry Pi