hjkl

WWW::KrispyKreme::Hotlight - first release

2013-05-17T23:01:45Z

I have uploaded the first version of WWW::KrispyKreme::Hotlight. This is basically a Perl wrapper that interfaces with Krispy Kreme's location search page

Creating a new object like this:

# only supports geo right now
my $donuts = 
    WWW::KrispyKreme::Hotlight->new(where => [34.170833,-118.25]);

and calling the locations method like this:

my $locations = $donuts->locations;

will return a structure like this:

[   {   'storeHours2' => '',
        'locationId'  => '993',
        'hotLightOn'  => '0',
        'storeHours1' => '',
        'phone'       => '818-955-9015',
        'zipcode'     => '91504',
        'state'       => 'CA',
        'city'        => 'Burbank',
        'geoLocation' => '34.190000,-118.330000',
        'url'         => 'http://kkre.me/oXMuQQ',
        'title'       => 'Burbank',
        'address'     => '1521 North Victory Place'
    },
    {   'storeHours2' => '',
        'locationId'  => '985',
        'hotLightOn'  => '0',
        'storeHours1' => '',
        'phone'       => '323-291-4133',
        'zipcode'     => '90008',
        'state'       => 'CA',
        'city'        => 'Los Angeles',
        'geoLocation' => '34.010000,-118.340000',
        'url'         => 'http://kkre.me/pF3cuI',
        'title'       => 'Los Angeles',
        'address'     => '4034 Crenshaw Boulevard'
    },
...
]

Notice there is a boolean value for 'hotLightOn' which can be handy for finding fresh donuts!

CPAN: https://metacpan.org/module/WWW::KrispyKreme::Hotlight
Github: https://github.com/aggrolite/WWW-KrispyKreme-HotLight

POE::Component::IRC::Plugin::WWW::Reddit::TIL first release

2013-04-27T06:21:27Z

Hi all,

Yesterday I released another IRC plugin for POE::Component::IRC: POE::Component::IRC::Plugin::WWW::Reddit::TIL

The plugin simply fetches a random title and link from the front page of Reddit's TodayILearned subreddit.

I used WWW::Shorten::Simple to return bitly links, and Mojo::JSON to decode reddit's API.

example:

curtis: !TIL
ircbot: curtis: TIL that the fighter squadron with the highest number of kills in the Battle of Britain during WWII were actually from Poland, and showed up two months after the battle had begun. http://bit.ly/ZN0qdB

links:

CPAN
Github

POE::Component::IRC::Plugin::Vim::Tips v0.02 released

2013-01-31T18:27:12Z

Hello Perl bloggers,

I have released my first module: POE::Component::IRC::Plugin::Vim::Tips, a plugin for the IRC client module POE::Component::IRC.

When a user types !vimtip (or !vimtips) in a channel that your bot has joined, my plugin will scrape the first page of tweets from the Vim Tips Twitter feed and reply back with a "random" tip from that list.

Example:

curtis !vimtip
vimbot curtis: ggguG will lower case the entire file (also known as the Jerry Yang treatment). http://is.gd/4xZW

A lesson learned from v0.01: Don't forget to list dependencies in Makefile.PL!

Links:
CPAN
Github

[FB]izzBuzz in Perl

2012-12-13T06:28:48Z

I finally sat down and organized my unsorted bookmarks in Firefox. In doing so I came across Jeff Atwood's blog post describing the FizzBuzz test:

Write a program that prints the numbers from 1 to 100. But for multiples of three print "Fizz" instead of the number and for the multiples of five print "Buzz". For numbers which are multiples of both three and five print "FizzBuzz".

I must have bookmarked the link while preparing for interviews before graduation. After skimming over the material I was curious to know the smallest amount of Perl code I could use to write a solution.

Here's my attempt:

Any shorter solutions? I suppose I could just use print if I wanted a one-liner...