Gas-Prices version 0.0.1

Gas::Prices - Perl Module to get the gas prices around a particular zip code

It gets its data by scraping msn autos webpage.

It retrieves a bunch of gas stations around the particular zip code, and for each gas station, it retrives the following data

Example

   use Gas::Prices;
   my $gp = new Gas::Prices("75023"); #or any other zip code
   my @gas_stations = @{$gp->get_stations};

   foreach(@gas_stations)
   {
       print   "Station name:" . $_->{station_name} . "\n" .
       "Station address:" . $_->{station_address} . "\n" .
       "Unleaded price:" . $_>{unleaded_price} . "\n" .
       "Unleaded date:" . $_->{unleaded_date} . "\n" .
       "Plus price:" . $_->{plus_price} . "\n" .
       "Plus date:" . $_->{plus_date} . "\n" .
       "Premium price:" . $_->{premium_price} . "\n" .
       "Premium_date:" . $_->{premium_date} . "\n" .
       "Diesel price:" . $_->{diesel_price} . "\n" .
       "Diesel date:" . $_->{diesel_date} . "\n";
   }

   my $cheapest_unleaded = $gp->get_cheapest_station("unleaded");
   Print the cheapest unleaded grade gas near 75023 is " . $cheapest_unleaded{station_name} . " at " . $cheapest_unleaded->{station_address} . ' for $' . $cheapest_unleaded->{unleaded_price} . "/gallon.";



INSTALLATION

To install this module, run the following commands:

   perl Makefile.PL
   make
   make test
   make install



DEPENDENCIES

None.


COPYRIGHT AND LICENCE

Copyright (C) 2007, Ashish Kasturia

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.