Sydney Perl Mongers Thursday Night

Sydneysiders are invited to join us this Thursday night for yet another Sydney-PM meet.

SiteSuite have offered to host us. Thanks to Cees for setting the wheels in motion for us to use the venue.

What: Sydney PM
Date: Thursday, 16th October 2014
Time: 6-9:30pm
Where: SiteSuite, Level 3, 1 Bay Street, Broadway Shopping Centre, Sydney
Who: Anyone with any level of experience with Perl. Please bring friends, family and co-workers!

The building locks it's doors at 6pm, so one of their staff will let us in. On the day a contact mobile number will be posted for stragglers. Please jump on the email list for that detail on the day.

Cees will be giving a talk about Rose::DB and we have a guest speaker giving us this talk live from San Francisco...

Title: I've Got 99 Problems But CPAN Ain't One

Celebrating Perl 5’s 20th birthday at MadMongers.

Celebrating Perl 5’s 20th birthday at MadMongers.

[From my blog.]

Pod::Readme v1.0.2 released

I released a new version of Pod::Readme yesterday. It's a module for "Intelligently generate a README file from POD" by using POD =begin/=end and =for commands to control what parts of a module's POD are included/excluded in the README. For example, you don't need the details of method calls in the README, nor do you need installation instructions in the module's man page.

This is a major rewrite using "modern Perl" that supports the following features:

  • Generating a README in various formats such as plaintext, POD, markdown, HTML;
  • Support for plugins to add new features.
  • Support for (via plugins) inserting the module version, recent changes and prerequisites in the README.

It should still work with existing software that uses it, such as Module::Build.

The next steps will be to write modules to integrate this with other release tools, such as Module::Install or Dist::Zilla.

Feedback as always would be appreciated. The module is on GitHub.

Thanks to everyone who commented on previous blog posts about this, and to CPAN Testers for test reports on previous dev releases.

Madison Area Perl Mongers Tonight

Tonight’s topic: REST on your SoC with Device::WebIO

System on a Chip (SoC) devices, such as the Raspberry Pi and pcDuino, are becoming increasingly popular. They almost always have a working Perl installed, and some library for controlling the I/O pins. Wouldn’t it be nice to unify the API across devices? While we’re at it, why not add a REST interface, too? The Device::WebIO modules do exactly that, and this presentation will show you how to use them.

This is also the 20th anniversary of Perl. There is a rumor of cake.

[From my blog.]

A most amusing annoyance

Came across this in my travels this morning:

$ perl -E 'sub x { say "y"}; my $x = 'x'; $x->();'
Undefined subroutine &main::1 called at -e line 1.

Why on earth does this compile and run in the first place? Fixing the shell quotes makes the problem go away.

Which modules are currently loaded by process?

Have you ever wondered which modules are currently loaded by current process? With Perl it's very simple to know this piece of info. Perl saves loaded modules in a hash %INC.

Lets have some dirty hands:

use Data::Dumper;
print STDERR Dumper \%INC;

The output is as follows:

$VAR1 = {
          'warnings/' => '/usr/share/perl5/warnings/',
          '' => '/usr/share/perl5/',
          '' => '/usr/lib64/perl5/',
          '' => '/usr/share/perl5/',
          '' => '/usr/share/perl5/',
          '' => '/usr/share/perl5/',
          '' => '/usr/share/perl5/',
          'Data/' => '/usr/lib64/perl5/Data/'

The hash simply contains the module path as value.

So this can be used for cleaning up too, with it you can figure out why you're not getting the version of the module you're expecting, for example.

Synchronizing Opera bookmarks with Perl, Org, and git

Who here like me still uses Opera (specifically Opera 12 on Linux)? It's being abandoned, the bugs are piling up, and more websites are not rendering correctly on it. However, the combination of keyboard shortcuts and some specific features like editing+applying source code makes me still stick to it.

The Opera makers provide a service called Opera Link that can synchronizes your browser bookmarks and a few other stuffs between computers and mobile devices. However I prefer not to use it and rely on some good ol' tools instead.

I also happen to be a fan of Org so Org will be the master document.

The steps that I describe here might be too much of a hassle, but I like it and thus share it.

First, you install the CPAN module App::ConvertOperaBookmarksToOrg which includes the utilities adr2org and org2adr.

Then you convert your Opera bookmarks to an Org document with this command:

% adr2org -T ~/.opera/bookmarks.adr > repo/

Getting IP address with Perl

A common situation which you will usually come across, is to retrieve the IP.

Using WWW::curlmyip, this task is very easy.

use WWW::curlmyip;
my $ip = get_ip();

Lets inspect the module on closely to understand how it works.

use strict;
package WWW::curlmyip;
$WWW::curlmyip::VERSION = '0.02';
use 5.008;
# ABSTRACT: Returns your ip address using L<>
    require Exporter;
    use base 'Exporter';
    our @EXPORT = 'get_ip';
    our @EXPORT_OK = ();
sub get_ip {
    my $response = HTTP::Tiny->new->get('');
    die join(' ', 'Error fetching ip: ',
                  ($response->{status} or ''),
                  ($response->{reason} or '')) unless $response->{success};
    my $ip = $response->{content};
    chomp $ip;

It's a one file module, which simply contacts, retrieves the content with HTTP GET request, and finally chomps the result; because there exists an extra new line character which is useless.

So simple, isn't it ?
But It's also very useful !

About is a common blogging platform for the Perl community. Written in Perl and offering the modern features you’ve come to expect in blog platforms, the site is run by Dave Cross and Aaron Crane, with a design donated by Six Apart, Ltd.