hanekomu's Journal

Thanks, but bye-bye

hanekomu — 2009-04-30T11:49:26+00:00

I'm leaving use.perl. This will be my final post here. use.perl has become less than useless, more like an embarrassment. For two weeks there were no frontpage news. This is not what those curious about Perl should find. The only real news were tucked away in a little side box and pointed to the journal entries. And the journal capabilities are a bit basic, to say the least. Technology has moved on.

I also encourage all use.perl journal authors to move to their own blogs. dagolden++ has already done so. Diversity is good.

Now I'm not blogging regularly either, but I do have a separate blog. If and when I will blog again, it will be there, not here.

If I could delete my account here, I would. Sorry to sound so drastic, but this is what I think.

Perl benchmarks: Nested data structures

hanekomu — 2009-02-23T15:51:47+00:00

The conclusion first: Nested arrays and hashes in Perl are slow. They get slower the more levels you nest. For most applications this won't be a problem, but if you cache values in a hash, you might want to use as few levels of nesting as possible.

Read the details.

By the way, I've enabled comments on my blog - let's see how that goes...

Tree map for CPAN

hanekomu — 2009-02-19T16:53:50+00:00

This is a tree map for the minicpan mirror, containing only the latest versions of all CPAN distributions. Within the application, you can mouse over the rectangles to see which files and folders they represent, but here I've just annotated a few interesting blocks. Somehow it feels like a city layout...

See the blog entry.

any::feature

hanekomu — 2009-02-18T13:05:25+00:00

I've released any::feature. (It will take a while to appear on CPAN; look at the development repo on github.) It can be used like Perl 5.10's 'feature' pragma and will try to "do the right thing", regardless of whether you use Perl 5.8 or Perl 5.10.

So far it's a proof-of-concept and will only handle the 'say' feature.

Read about it in my blog.

Persuading the Cloud to run your benchmarks

hanekomu — 2008-11-04T13:40:36+00:00

I've had quite a bit of feedback about the accessor generator benchmarks; mostly requests to add this or that module to the benchmarks. Adding the code, rerunning the benchmarks and updating the blog entries took quite a bit of time, so I thought I could automate the process.

I've made the accessor generator benchmarks into a CPAN distribution called App::Benchmark::Accessors. That way you can run them yourself and the prerequisite modules will install automatically as well (if you use the CPAN shell).

But there's one more thing...

Full post

Dissecting the Moose 4 - Benchmarking only get/set ops

hanekomu — 2008-11-01T12:09:16+00:00

I've followed up the previous benchmark, which tested mainly object creation, with one that performs a million get/set operations on the same object.

Full post

Dissecting the Moose 3 - Benchmarking Accessor Generators

hanekomu — 2008-11-01T10:13:10+00:00

I wrote a small benchmarking program to compare the speeds of various accessor generators. They don't do much, just create an object while setting an accessor, then reading that accessor again, all for 100,000 times.

The following accessor generators are compared: Class::Accessor, Class::Accessor::Fast, Class::Accessor::Fast::XS, Class::Accessor::Complex, Class::Accessor::Constructor, Mouse, Moose, and immutable Moose.

Full post

Dissecting the Moose Part 2 - Pragmatic Goodness

hanekomu — 2008-09-24T09:29:19+00:00

The synopsis of Moose.pm has this innocent-looking line:

use Moose; # automatically turns on strict and warnings

Which begs the question: "How does that work?" In this blog post, I'll try to uncover some of the magic of Perl pragmata.

Full post

Putting your money where your mouth is

hanekomu — 2008-09-20T08:43:07+00:00

[Cross-posted from my Perl blog to use.perl in its entirety so that more people might read it.]

Warning: Rant ahead.

Reacting to the recent meme of "We don't have enough Perl sites", I've started a blog. I've written blog posts every day, sometimes several times per day, but get hardly any visitors. I don't like the idea of link-spamming indiscriminately, so I've only announced new blog posts on use.perl and on Twitter.

Of course, it is entirely possible that the topics I write about are not very interesting. It has been suggested that I should write about things that would cause others to want to link to my blog. Well, I don't have any intentions of sucking up to anybody just to get visitors. I had hoped to write about things I encountered along the way and that I found interesting. I didn't merely want to write about my own modules but also about other sorts of things, especially interesting CPAN modules I've found, or news from the Perl world in Japan and Korea. So I thought of the blog as a community service rather than a wank.

Andy Lester wrote an article in his Perl Buzz blog: Perl must decentralize, diversify and colonize. I agree. Schwern said pretty much the same thing in his "Perl is unDead" talk at YAPC::Asia 2008.

However, saying that there should be more Perl sites is good, but then you should help in driving traffic to those sites as well.

For example - and this is not meant to single out one blogger - Perl Buzz links to the official perl pages, and the official perl pages link to Perl Buzz. I have asked for my blog to be included in planet.perl.org, but didn't even get a response. So the Perl in-crowd link gets all chummy and link to each other and write lots about their own blogs and their own modules, but the small sites are left to fend for themselves.

Put your money where your mouth is.

To be clear, I don't complain about not having thousands of visitors; rather I am disappointed in the nonchalant way in which well-known people who attract lots of visitors from outside the active Perl community proclaim that there must be more Perl sites, but when they do appear, leave them out in the cold.

Nor do I want to single out a specific prolific blogger. I am appealing to all the top Perl bloggers.

Nor do I expect, after having complained about the situation, to have lots of links to my blog suddenly spring up - I am disillusioned to the point where I don't want to continue my blog anymore. Rather, I wanted to highlight a bigger problem.

There are many interesting things happening in the Perl world. Please start writing about them, and start to interact with other Perl blogs.

Clean-up

hanekomu — 2008-09-18T13:19:36+00:00

I've pushed out the final four ideas for blog posts onto my Perl blog. Thanks for reading this far!

Korean Perl Terms

hanekomu — 2008-09-18T10:38:02+00:00

Blogged "Korean Perl Terms" in my Perl blog.

Dissecting the Moose Part 1

hanekomu — 2008-09-18T08:02:48+00:00

Blogged "Dissecting the Moose Part 1" in my Perl blog.

The Way of Approaching (Korean Hackathon)

hanekomu — 2008-09-17T18:16:44+00:00

Blogged "The Way of Approaching" about a hackathon in Korea in my Perl blog.

Korean Perl Workshop 2008

hanekomu — 2008-09-17T07:58:23+00:00

New blog entry: "Korean Perl Workshop 2008" in my Perl blog.

The Eskimo Greeting Operator

hanekomu — 2008-09-16T07:43:25+00:00

New blog entry: "The Eskimo Greeting Operator" in my Perl blog.

Compiling XS Code on AIX

hanekomu — 2008-09-15T08:01:11+00:00

Blogged "Compiling XS Code on AIX" in my Perl blog.

Perl V 10.0

hanekomu — 2008-09-14T07:51:51+00:00

New blog entry: "Perl V 10.0" in my Perl blog.

YAPC::Europe 2008

hanekomu — 2008-09-13T19:57:52+00:00

New blog entry: "YAPC::Europe 2008" in my Perl blog.

Error - Day too big

hanekomu — 2008-09-13T08:42:23+00:00

New blog entry: "Error - Day too big" in my Perl blog.

Repeating Elements in an Array Slice

hanekomu — 2008-09-12T15:34:43+00:00

New blog entry: "Repeating Elements in an Array Slice" in my Perl blog.

Acme::CPANAuthors::Austrian

hanekomu — 2008-09-12T15:16:16+00:00

New blog entry: "Acme::CPANAuthors::Austrian" in my Perl blog.

CPAN Gems: Proc::InvokeEditor

hanekomu — 2008-09-12T07:43:30+00:00

New blog entry: "CPAN Gems: Proc::InvokeEditor" in my Perl blog.

Overloading Constants in Perl

hanekomu — 2008-09-11T18:21:08+00:00

New blog entry: "Overloading Constants in Perl" in my Perl blog.

Slides: Perl in Japan

hanekomu — 2008-06-03T09:15:24+00:00

At the Vienna.pm TechSocialMeeting yesterday I've given a talk called "Perl in Japan" about the japanese Perl community: who they are, how they work, what they do. It contains impressions I brought back from YAPC::Asia 2008. Too many people don't know anything about asian perl mongers. That's a shame because there are some really interesting developments going on there. I've also briefly talked about Perl in Korea; there seems to be a small but intense community and I hope to find out more.

Here are the slides from the talk: http://www.slideshare.net/hanekomu/perl-in-japan

New Perl blog

hanekomu — 2008-05-25T18:24:06+00:00

... at http://hanekomu.at/blog/.

use 箆; or: Distributions with Kanji on CPAN

hanekomu — 2008-05-18T12:16:34+00:00

During the YAPC::Asia hackathon day 2, we discovered a kanji that we could use for Moose.pm: 箆. It even looks a bit like some thing with antlers. Here is the JEDict definition:

箆 [へら: HERA] spatula
箆鹿 [へらじか: HERAJIKA] (uk) moose, elk

So a moose is an animal with a spatula on its head? Larry said that 箆 could also mean "comb", so a moose is an animal with a comb on its head. But I digress.

I've made a simple proof-of-concept distribution. The main module's code basically is:

use utf8;
package 箆;
1;

'perl Makefile.PL', 'make', 'make test' and 'make dist' all worked well. It produced a tarball: 箆.tar.gz. So far, so good.

Then I've tried to upload the tarball to cpan:

$ cpan-upload-http 箆.tar.gz

That also gave no error message. So I waited for the emails from PAUSE. Here is the first one:

> Subject: Notification from PAUSE
>
> MARCEL (Marcel Grünauer == hanekomu (跳ね込む)) visited the PAUSE and
> requested an upload into his/her directory. The request used the
> following parameters:
>
> pause99_add_uri_upload [ç®†-0.01.tar.gz]
> SUBMIT_pause99_add_uri_httpupload [ Upload this file from my disk ]
> pause99_add_uri_httpupload [-0.01.tar.gz]
>
> The request is now entered into the database where the PAUSE daemon will
> pick it up as soon as possible (usually 1-2 minutes).
>
> During upload you can watch the logfile in
> https://pause.perl.org/pause/authenquery?ACTION=tail_logfile&pause99_tail_logfil e_1=5000.
>
> You'll be notified as soon as the upload has succeeded, and if the
> uploaded package contains modules, you'll get another notification from
> the indexer a little later (usually within 1 hour).
>
>
> Thanks for your contribution,
> --
> The PAUSE

Due to the good fortune of having kanji and kana in my CPAN display name (跳ね込む), I was sure that the email had the right encoding. But the tarball filename it returned was wrong: "ç®†-0.01.tar.gz". Well, let's see. Maybe it's just a problem with generating the email. Wait and see... Here is the second email:

> Subject: CPAN Upload: M/MA/MARCEL/-0.01.tar.gz
>
> The uploaded file
>
> -0.01.tar.gz
>
> has entered CPAN as
>
> file: $CPAN/authors/id/M/MA/MARCEL/-0.01.tar.gz
> size: 24392 bytes
> md5: 39ebd0b5ab4bd9acdb2a80c1c4a733dd
>
> No action is required on your part
> Request entered by: MARCEL (Marcel Grünauer == hanekomu (跳ね込む))
> Request entered on: Sun, 18 May 2008 11:00:42 GMT
> Request completed: Sun, 18 May 2008 11:00:52 GMT
>
> Thanks,
> --
> paused, v996

Hm, doesn't look good either. Well, wait for the indexer report... Here it is:

> Subject: Failed: PAUSE indexer report MARCEL/-0.01.tar.gz
>
> The following report has been written by the PAUSE namespace indexer.
> Please contact modules@perl.org if there are any open questions.
> Id: mldistwatch 1001 2008-05-15 05:34:01Z k
>
>               User: MARCEL (Marcel Gruenauer == hanekomu)
> Distribution file: -0.01.tar.gz
>    Number of files: 21
>         *.pm files: 14
>             README: 箆-0.01/README
>           META.yml: 箆-0.01/META.yml
> Timestamp of file: Sun May 18 11:00:51 2008 UTC
>   Time of this run: Sun May 18 11:02:23 2008 UTC
>
> No package statements could be
>                     found in the distro (maybe a script or
>                     documentation distribution?)
>
> __END__

Ah, so it could actually untar it because it found the README and META.yml files. But it seems it uses the wrong regex to find the package statements. Maybe it needs to read the file as utf8...

Just to be sure it wasn't a problem with cpan-upload-http, I also uploaded the file from the PAUSE web interface directly. Here is the response:

> The Perl Authors Upload Server
>
> Upload a file to CPAN
> Add a file for MARCEL
> File successfully copied to '/home/ftp/incoming/-0.01.tar.gz'
> Your filename has been altered as it contained characters besides the class [A-Za-z0-9_\-\.\@\+].
> DEBUG: your filename['ç®†-0.01.tar.gz'] corrected filename['-0.01.tar.gz'].

So this doesn't work either.

Dear CPAN maintainers, please fix it.

CodeRepos ktkr!

hanekomu — 2008-04-19T10:39:54+00:00

I've moved most of my code to CodeRepos. Thanks to Yappo for the commit bit. Now every CodeRepos committer (that is, all the cool Japanese hackers and some gaijin) can patch my distros. Looking forward to it!

Perl debugger plugins with DB::Pluggable

hanekomu — 2008-04-17T20:45:59+00:00

I've released DB-Pluggable which adds plugin support to the debugger. There are quite a few good ~/.perldb ideas around, but they're not easy to combine because they often overwrite the same DB::* functions. This distribution tries to remedy this by moving functionality to plugins.

$ cat ~/.perldb use DB::Pluggable; use YAML; $DB::PluginHandler = DB::Pluggable->new(config => Load <<EOYAML); global: log: level: error plugins: - module: BreakOnTestNumber EOYAML $DB::PluginHandler->run; $ perl -d foo.pl Loading DB routines from perl5db.pl version 1.28 Editor support available. Enter h or `h h' for help, or `man perldebug' for more help. 1..9 ... DB<1> b #5 DB<2> r

DB-Pluggable was inspired by Andy Armstrong's journal entry about a debugger command that adds breakpoints for specific Test::Builder-based tests.

This distribution is very much in beta, so it's more like a proof of concept. Therefore, not all hooks imaginable have been added, only the ones to make this demo work. If you want more hooks or if the current hooks don't work for you, let me know.

YAPC::Asia ni ikimasu

hanekomu — 2008-02-19T14:55:56+00:00

I've registered for the YAPC::Asia, so the next thing to do is to find a flight and a hotel.

hanekomu v4.0

hanekomu — 2008-02-19T09:02:22+00:00

Unbelievable, I turned 40 today. Because the memorable thing happened at 0:40am local time 40 years ago, I thought I'd stay up last night and finish watching Dennou Coil. Ended up watching 16 episodes (11-26) and going to bed at 2:40, knowing I'd have to get up at 7:30. Normally this wouldn't be worth mentioning, but with advanced age there seems to be a greater need of sleep...

Getting up wasn't too bad, though, as I had time to ponder the cool things that happened in Dennou Coil.

ObReflection: Being 40 doesn't feel like what I expected it to feel like when I was 20. Even 50-60 year olds generally don't seem to be as old as they seemed to me 30 years ago. Ok, back then I was a child and had a different concept of time, but still... Extended lifespan and better medicine certainly has something to do with it as well.

I am wondering, though, whether more days are behind me than lie before me...