curtis

• Website: github.com/aggrolite
• About: I blog about Perl.

Recent Actions

• Commented on WWW::KrispyKreme::Hotlight - first release
  I just saw your fork on github, it looks nice! Thanks for the feedback also. I am very unfamiliar with the Mojo::* modules except for Mojo::JSON, which might explain why mine has so many dependencies. I will take a closer...
• Posted WWW::KrispyKreme::Hotlight - first release to hjkl

  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…

• Posted POE::Component::IRC::Plugin::WWW::Reddit::TIL first release to hjkl

  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 Re…

• Posted POE::Component::IRC::Plugin::Vim::Tips v0.02 released to hjkl

  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 t…

• Commented on [FB]izzBuzz in Perl
  Yes, I would much prefer someone writing clean code to do this in an interview, but I needed to scratch an itch. Wow, I suspected concatenation was the key to getting a shorter line, but did not know how to...
• Posted [FB]izzBuzz in Perl to hjkl

  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…

Comment Threads

• Toby Inkster commented on [FB]izzBuzz in Perl

  I was trying something different here. Didn't work out as concise as I'd hoped, but it's pretty cute...

  say+(Fizz,Buzz,FizzBuzz,$_)[substr+233031033013033,$_%15,1]for 1..100;
  

  Along similar lines; a little shorter...

  say+($_,Fizz,Buzz,FizzBuzz)[!($_%3)+2*!($_%5)]for 1..100;
  

• Michał Wojciechowski commented on [FB]izzBuzz in Perl

  I'm late to the party, but here's my version, using a slightly different approach:

  say+(Fizz)[++$_%3].Buzz x/.?[50]$/||$_ until$`