gitpan / gas-prices Goto Github PK

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.