Four Months To YAPC North America

Now would be a great time to schedule some time off from work so you can come to YAPC::NA 2012. It’s going to be June 13-15 in beautiful Madison, WI. 

While you’re at it, tell your spouse to block off some time and come enjoy our Spouses Program

[From the YAPC::NA Blog.]

German Perl Workshop 2011 - Speaker Evaluations

I have now sent out all the talk evaluations from this year's German Perl Workshop or more correctly Der 13. Deutsche Perl-Workshop. If you were a speaker and haven't received an email, please check your spam folders first, and let me know (barbie at cpan . org) if you don't find it. The mail will have come from barbie at birmingham . pm . org.

My thanks to all the organisers of GPW2011 and everyone who took the time to respond to the evaluations. From previous experience the speakers have very much appreciated your feedback. I would also like to extend extra special thanks to Max Maischein aka "Corion", who took the time to translate all the questions, templates and emails into German for me.

The results of the main survey will be published soon on the YAPC Conference Surveys site.

Single-file distro

No, not Par.

I have a simple script perlall which is deployed as App::perlall, which comes with Makefile.PL, tests and such, but really I only want to rsync this single script to all of my test machines.

I even wrote a initvm command to deploy it automatically to other machines.

Then I came up with this simple autoinstaller to add missing non-core libs.

BEGIN { # autoinstall the non-core modules
  my @m;
  for (qw(App::Rad IO::Tee IO::Scalar Devel::Platform::Info Devel::PatchPerl)) {
    push @m, $_ unless eval "require $_;" }
  if (@m) { # Checked the API back to 1.76_01 (v5.8.4)
    require CPAN; CPAN->import;
    warn "CPAN::Shell->install(qw(@m))\n"; CPAN::Shell->install(@m); }
  $_->import for @m;
}

My Experience with Inline::C

I know I didn't write here for a long time, and I apologise for it, but I have this entry and another one in mind and I hope they can compensate for it.

For my work on Freecell Solver, I've written some code for encoding and decoding game positions into a compact format, by encoding them as a delta from the position of origin. I first wrote it in Perl, in order to prototype it, and later translated it to C (which is the language that Freecell Solver is written in). I have written some rudimentary unit tests for it, but also wanted to test the code against a large number of positions, by runnign it over the solutions of many Freecell deals.

Happy Valentines Day!

It’s Valentines Day, did you remember to get your significant other something special? How about bringing him or her with you to YAPC::NA?

We have a spouses program, a beautiful city on several lakes, tons of night life, cultural activities, and tourist attractions; not to mention more pubs and restaurants than you could hope to visit. You could book a trip today at a romantic little bed and breakfast called Hotel Ruby Marie, which is only about a mile from the conference. There’s even a little bistro on the first floor of Ruby Marie that serves the best croissants anywhere outside of France.

Turn YAPC into a romantic getaway for two! Happy Valentines day!

[From the YAPC::NA Blog.]

Mouse/Moose delegation feature

Using Mouse for my experimental Module Forward::ORM really seems to pay off.

One of my classes just has to delegate method calls to another class, here my first draft:

##  Delegation (using Method::Signatures::Simple)
method manager {Forward::ORM::Migrations::Manager->new}
method create_table (@params) {$self->manager->create_table(@params)}
method add_column (@params) {$self->manager->add_column(@params)}
method remove_column (@params) {$self->manager->remove_column(@params)}

with the Mouse handles command, it becomes:

has manager => (
    default => sub {Forward::ORM::Migrations::Manager->new},
    handles => [qw/add_column create_table remove_column/]
);

This is 46% less code. And the savings will become even bigger as I will add new commands :)

The commit

Today, it's my first day I talk about Perl...

Seriously, I love perl, someone can indicate me good tuts?
lawl

Padre, the upcoming 0.92 release...

It's been quite a while since Padre 0.90, the current development version 0.91 has been bubbling along quite nicely, with some amazing changes introduced through the hard work and effort of Ahmad Zawawi in porting Wx::Scintilla giving us an shiney Scintilla widget for the Padre text editor.

It wasn't enough to just get the module sorted out, but Ahmad went on to really improve the functionality of the editor itself. Check out just some of the goodness to come.

Adam Kennedy has again been deep into the core of Padre and its API's. It takes a lot to commit yourself to knowingly go into a code base break it and then commit to making all things work again.

Kevin Dawson has stuck around and continues to prod and poke at the code base, improving the dialogs using the new FBP process to create better dialogs ( another of Adam Kennedy's major efforts out side of Padre ).

Kevin has also introduced patch editing. In Kevins words:

Dyn and Perl

Matt Horsfall will give a talk at YAPC::NA 2012 described as:

Dyn (better known as dyndns.org) is an organization built from the beginning on Perl.

While we’ve incorporated many other languages and technologies into our platforms since then, Perl is still the number one language of choice for development and is at the core of many of our key products.

In this talk I’ll give a brief overview of what we do and how we use Perl to do it. From support management tools, to customer

APIs and UIs, to automated testing and deployment tools, we use Perl for everything.

[From the YAPC::NA Blog.]

Ruby like code blocks in Perl

While thinking about how to best define migrations/tables in my experimental module Forward::ORM, I realized that I might need Ruby like code blocks to keep certain things in scope:

In my first version, I used default Perl:

sub up {
    my $self = shift;

    $self->create_table('authors', sub {my $t = shift;
        $t->add_column('id', 'integer', primary_key => 1);
        $t->add_column('name', 'varchar', length => 40);
    });
}

I then noticed that Method::Signatures::Simple also works with anonymous functions and methods, so my code now looks like this:

Debugging ORA-12157

Does anyone reading this have experience with debugging ORA-12157 TNS Internal network communication error?

Googling for it isn't really helpful. I get a bunch of pages that say the same thing as the Oracle docs (turn on tracing and reproduce the issue).

The problem is that we don't see it consistently enough to even know to reproduce it properly much less create a minimal test case.

Update:
I looked in the alert.log and found a few "ORA-609 : opiodr aborting process unknown ospid" errors each with a corresponding trace file that ends with "opiino: Attach failed due to ORA-12537".

New "dot" feature

I wrote the following email to the Perl 5 Porters mailing list a few days ago. I thought you might enjoy it.

Hello Porters,

I had a dream that Perl 5 had moved from using -> to using . like most modern languages. And moved the existing . for concatenation to ~ like Perl 6. Then I wrote the code and was shocked how tiny it was.

I have this in the leonbrocard/dot branch, but is is really one commit:

http://perl5.git.perl.org/perl.git/commit/0c1fbeee

It's a very small tokenizer patch which interacts with a new "dot" feature. Then you can do things like:

Polish Those Slides: We Need 'Em

Submit a talk for YAPC::NA 2012. We’re especially interested in talks on real-world Perl apps and quintessential Perl 101 talks, but we’re open to any ideas you have. 

[From the YAPC::NA Blog.]

Things I learned at Twin City Perl Workshop 2011

My Twin City Perl Workshop 2011 review, featuring lots of photos!

Marpa v. Perl regexes: some numbers

In this post, I pit Marpa against the Perl regex engine. The example I will use is unanchored searching for balanced parentheses. I have claimed that many problems now tackled with regexes are better solved with a more powerful parser, like Marpa. I believe the numbers in this post back up that claim.

To be very clear, I am NOT claiming that Marpa should or can replace regexes in general. For each character, all an RE (regular expression) engine needs to do is to compute a transition from one "state" to another state based on that character -- essentially a simple lookup. It's the sort of thing a modern C compiler should optimize into a series of machine instructions that you can count on the fingers of one hand.

Marpa is much more powerful than an regular expression engine, and to deliver this power Marpa makes a list of all the possibilities for each token

(Stop) Breaking URLs

I'm doing some work with ElasticSearch and while I find Clinton Gormley's Perl interface to ElasticSearch to be excellent, the ElasticSearch docs have left me a bit confused at times. It's based on Lucene, so while trying to find examples of analyzers for non-English langauges, I found a quick introduction to Lucene.

That introduction said I could find a list of analyzers for other languages in the Lucene sandbox.

Except that's a 404.

So in hunting around some more, I find this email which explains that the sandbox has been merged with the rest of the codebase and is now at this subversion repository.

That repository has a single file named trunk_development_moved.txt and clicking on that gives me:

Dorm Housing Now Accepting Reservations

The University has opened the reservation process for dorms for YAPC::NA 2012. You can simply visit the reservation web site to make your reservation. You can stay from Monday, June 11th though Saturday, June 16th (leaving Sunday) or anywhere in-between. A single occupancy room is $62.95 per night, and a double occupancy room is $42.10 per person per night. You must register before Monday, May 14th, as reservations will be closed on that date.

If you don’t wish to use the web-based reservation, you can download a PDF reservation form.

There’s also a complete list of amenities that you’ll be receiving with your accommodations.

[From the YAPC::NA Blog.]

Pittsburgh Perl Workshop 2011 - Speaker Evaluations

I have now sent out all the talk evaluations from this year's Pittsburgh Perl Workshop. If you were a speaker and haven't received an email, please check your spam folders first, and let me know (barbie at cpan . org) if you don't find it. The mail will have come from barbie at birmingham . pm . org.

My thanks to all the organisers of PPW2011, the folks on IRC (#yapc) and everyone who took the time to respond to the evaluations. From previous experience the speakers have very much appreciated your feedback.

The results of the main survey will be published soon on the YAPC Conference Surveys site.

PerPAN Submitted to Mashup Awards 7

I just submitted PrePAN to Masup Awards 7. As they're claiming, MA7 is the Japan's No.1 web hack contest. I don't know whether it makes sense that I apply to the award, but it could be some help to announce to Japanese.

I'm glad if you'd give some look at the page.

Exclusive Perl Archive Nook

I started working on epan, a (somewhat thin) wrapper around cpanminus to create a version of CPAN trimmed down to your needs for installing specific stuff.

This is what the cool guys probably call DPAN these days, but I found that the whole concept of DarkPAN revolves much around getting your private stuff into the "normal" Perl toolchain, while in this case I need to be able to easily install modules in machines that are out of Internet reach.

To start with an example, suppose you have to install Dancer and a couple of its plugins in a machine that - for good reasons - is not connected to the Internet. It's easy to get the distribution files for Dancer and the plugins... but what about the dependencies? It can easily become a nightmare, forcing you to go back and forth with new modules as soon as you discover the need to install them.

Thanks to cpanminus, this is quite easier these days: it can actually do what's needed with a single command:

About blogs.perl.org

blogs.perl.org is a common blogging platform for the Perl community. Written in Perl with a graphic design donated by Six Apart, Ltd.