diff options
-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); |