diff options
author | dakkar <dakkar@thenautilus.net> | 2013-05-13 19:23:37 +0100 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2013-05-13 19:23:37 +0100 |
commit | 6ff22eb547a639c90f10fad05ee76d75ab8a31b9 (patch) | |
tree | 6c7dc12be0c9af25163423aedab48561aa59c7a8 | |
download | HomePanel-6ff22eb547a639c90f10fad05ee76d75ab8a31b9.tar.gz HomePanel-6ff22eb547a639c90f10fad05ee76d75ab8a31b9.tar.bz2 HomePanel-6ff22eb547a639c90f10fad05ee76d75ab8a31b9.zip |
get some bus info
-rw-r--r-- | bus.pl | 17 |
1 files changed, 17 insertions, 0 deletions
@@ -0,0 +1,17 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use 5.014; +use LWP::Simple; +use URI; +use URI::QueryParam; + +my $base = URI->new('http://countdown.api.tfl.gov.uk/interfaces/ura/instant_V1'); + +$base->query_form({ + StopPointName => 'Hotspur Road', + #Towards => 'Islip Manor', + ReturnList => 'StopID,StopCode1,VisitNumber,TripID,VehicleID,LineID,LineName,DirectionID,DestinationText,DestinationName,EstimatedTime', +}); + +say get($base); |