# where we turn Perl inside out

(xiii) stackoverflow perl report

2012-01-28T19:22:00.000+01:00

This is the ten most rated questions at Stack Overflow last week.
Between brackets: question score & answers count
Built date: 2012/01/28 18:20:49 GMT

Perl-style quotes for long strings in C++ - [7/2]
modify $_ if no parameters specified - [7/3]
How can I pass on my Bash loop variable to the Perl interpreter? - [6/5]
Read a large file and output sections matching multiple parameters - [6/4]
Remove rows from data: overlapping time intervals? - [6/5]
Why doesn't map read from @ARGV/@_? - [5/2]
Perl substr(STRING, @ARRAY) ne substr(STRING, OFFSET, LENGTH)? - [5/3]
Format of CSV not correct? - [4/5]
Succinct way to print all lines up until the last line that matches a given pattern - [4/7]
How can loop through perl constant - [4/4]

(xii) stackoverflow perl report

2012-01-21T20:32:00.000+01:00

This is the ten most rated questions at Stack Overflow last week.
Between brackets: question score & answers count
Built date: 2012/01/21 19:30:35 GMT

(xi) stackoverflow perl report

2012-01-15T08:24:00.000+01:00

This is the ten most rated questions at Stack Overflow last week.
Between brackets: question score & answers count
Built date: 2012/01/15 07:22:38 GMT

(x) stackoverflow perl report

2012-01-08T22:35:00.003+01:00

This is the ten most rated questions at Stack Overflow last week.
Between brackets: question score & answers count
Built date: 2012/01/08 21:34:43 GMT

20 best Perl questions at stackoverflow in 2011

2012-01-01T09:50:00.001+01:00

This is the 20 most rated questions at Stack Overflow last year
Between brackets: question score & answers count
Built date: 2012/01/01 08:48:30 GMT

Bug in perl's autodie.pm? - [26/2]
perl :"//" operator? - [16/2]
How to match string with diacritic in modern perl? - [15/2]
Which situations benefit from Perl's study? - [15/2]
In Perl, how can I test whether a sequence is of the form n, n + 1, n + 2, ..., n + k? - [14/7]
Why is `a::->func;` valid? - [13/2]
How to test/classify CPAN modules for utf8 correctness - [12/1]
Can Perl's "exists" modify data structure values? - [12/3]
What exactly is a source filter? - [12/3]
What kind of syntactic sugar is available in Perl to reduce code for l/rvalue operators vs. if statements? - [12/5]
Which cpan installer is the right one? (CPAN.pm/CPANPLUS/cpanminus) - [11/4]
Why would you assign to $$? - [11/4]
What is the canonical implementation of markdown? - [11/3]
Best practice for using slightly modifying module from CPAN? - [10/3]
Can a Perl script install its own CPAN dependencies? - [10/2]
Conversion of list context result to array in one line in perl? - [10/6]
How can I start out with web development using Perl? - [10/3]
Hash keys encoding: Why do I get here with Devel::Peek::Dump two different results? - [10/3]
Faster alternative to eval? - [10/4]
How to use a CPANPLUS autobundle to update a new version of Perl? - [9/1]

(ix) stackoverflow perl report

2012-01-01T09:42:00.000+01:00

HNPY::2012 Happy New Perl Year 2012 !!

This is the ten most rated questions at Stack Overflow last week.
Between brackets: question score & answers count
Built date: 2012/01/01 08:37:37 GMT

Faster alternative to eval? - [10/4]
Perl writing to a 'memory file' plays tricks with pattern matching - [8/4]
Count the capture groups in a qr regex? - [8/3]
How can I have Perl take input from STDIN one character at a time? - [5/2]
Should I give up on refactoring this and plan a rewrite? - [5/1]
%ENV doesn't work and I cannot use shared library - [4/3]
Print fails when using chomp() - [3/1]
Why does Perl's m//g operator sometimes result in NULLs being introduced into text? - [3/4]
How can I change the date formats in Perl? - [3/5]
Should I use Perl's LWP or lib curl? - [3/5]

(viii) stackoverflow perl report & MC::2011

2011-12-24T17:02:00.003+01:00

MC::2011 Merry Christmas 2011!

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/12/24 16:00:14 GMT

(vii) stackoverflow perl report

2011-12-19T20:14:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/12/19 19:12:41 GMT

the most surprising, weird, strange or really "WTF" language feature

2011-12-15T22:51:00.002+01:00

At Stackoverflow, this question: "What is, in your opinion, the most surprising, weird, strange or really "WTF" language feature you have encountered?" has a Perl related response (>270 points). The Perl special variables ($@, $", ...) does not seem to be clear for the people. I love it, and if not, use English;

(vi) stackoverflow perl report

2011-12-11T09:51:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/12/11 08:51:18 GMT

(v) stackoverflow perl report

2011-12-04T23:05:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/12/04 22:04:32 GMT

(iv) stackoverflow perl report

2011-11-27T14:31:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/11/27 13:30:32 GMT

And I'd like to thank the reference of this work in the great Perl Weekly of last week.

(iii) stackoverflow perl report

2011-11-20T16:06:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/11/20 15:05:08 GMT

II stackoverflow perl report

2011-11-13T14:59:00.001+01:00

This is the ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/11/13 13:57:31 GMT

Stack Overflow - perl questions report

2011-11-06T17:09:00.000+01:00

I usually read and answer questions at Stack Overflow. With this post, I start a weekly report of the more relevant perl related questions. Hope it will be interesting for you.

This is the top ten most rated questions at Stack Overflow last week.
Beetwen brackets: question score & answers count
Built date: 2011/11/06 16:02:30 GMT

Simple search and replace without regex - [6/5]
(2011/11/01 18:00:19 GMT)
How and where can I learn more about the Perl optimizer? - [6/2]
(2011/11/01 20:13:38 GMT)
Are Perl regexes turing complete? - [6/2]
(2011/11/02 15:40:12 GMT)
How to plan additional tests run by external sub? - [5/2]
(2011/11/02 11:52:13 GMT)
Why does print ($a = a..c) produce: 1E0 - [5/3]
(2011/11/03 23:53:16 GMT)
Replace entire paragraph with another from linux command line - [4/5]
(2011/10/31 04:32:18 GMT)
Perl shallow syntax check? ie. do not check syntax of imports - [4/4]
(2011/10/31 14:26:49 GMT)
Infinite loop in perl Carp module - [4/2]
(2011/11/01 01:00:37 GMT)
Installing perl module: cpan shell vs rpm/deb - [4/2]
(2011/11/01 10:10:00 GMT)
Reading password protected XLSX on linux (and windows) with Perl - [4/2]
(2011/11/01 13:31:32 GMT)

Most RxR modules - top 30

2011-09-22T21:02:00.001+02:00

The project http://cpanratings.perl.org allows us to rate the perl CPAN modules, and it provides interesting information in terms of starts and comments. You can analyze the stats csv file in order to elaborate new stats. The question I'm trying to answer is this: what's the most rated module? ...

Each line of the CSV file give us the name of the module, the rating (a number between 1 and 5) and the reviews counter. I thought about the list order, which field should I use? After a while, I decided to calculate a new value:

RxR = Rating x Reviews

A simple perl script display the list I was asking for (top 30):

# Module Name Rating Reviews RxR
== ============================== ====== ======= ======
1 DBI 4.7 31 145.7
2 Spreadsheet-WriteExcel 4.8 26 124.8
3 Template-Toolkit 4.6 21 96.6
4 Catalyst-Runtime 4.8 20 96
5 Devel-NYTProf 4.9 18 88.2
6 CGI-Application 4.8 18 86.4
7 HTML-Template 4.1 21 86.1
8 WWW-Mechanize 4.6 18 82.8
9 Dancer 3.5 23 80.5
10 XML-Simple 4.4 17 74.8
11 DBD-SQLite 4.6 16 73.6
12 Devel-Cover 4.9 15 73.5
13 Moose 4.9 15 73.5
14 Class-DBI 4.4 16 70.4
15 App-cpanminus 5.0 13 65
16 DateTime 4.6 14 64.4
17 Module-Build 3.2 20 64
18 ack 4.9 13 63.7
19 HTML-Mason 4.9 13 63.7
20 POE 4.9 13 63.7
21 File-Find-Rule 4.5 14 63
22 libwww-perl 4.5 14 63
23 DBD-Oracle 3.7 16 59.2
24 CGI.pm 4.5 13 58.5
25 XML-LibXML 4.5 13 58.5
26 Imager 4.8 12 57.6
27 MIME-Lite 4.8 12 57.6
28 XML-RSS 4.1 14 57.4
29 SQL-Translator 3.9 14 54.6
30 DBIx-Class 4.9 11 53.9

I named it: The top RxR module list.
Do you know how many modules are rated? 2707 (11% of the whole), and 1700 has only one review.

Perl related blog traffic

2011-09-21T16:00:00.002+02:00

I have written only a few posts of perl related topics (about 30). With the new blogger interface, it's easy to check the google analytics and obtain a lot of valuable information. It's interesting the wold map with green colors (dark signals more traffic). These are the country stats of my blog:

My top ten visitors are from:

United States
Spain
Germany
United Kingdom
Russia
Argentina
Canada
Netherlands
Brasil
Australia

I think the blog language it's the first reason that justifies the territory colors. The second place is justified because of my good friends in Spain. But it's interesting to observe that there isn't any traffic from Africa, and others countries like India...

Of course, another reason it's the quality of the contents I wrote, but I imagine that the light colors of the map won't vary too much...

Do you have similar stats you like to share?

Perl Weekly gratitude

2011-09-19T21:37:00.001+02:00

I am sure you already know the Perl Weekly newsletter, a great work of Gabor Szabo. If not, please take a look at this url: http://perlweekly.com/.

It's not only an integration work about the news, modules, articles, etc. It also includes excellents comments, which are a great summary of the topics they introduce. I recommend you the suscription.

Every Monday since the project was born, I read the newsletter, and find interesting news and articles. And this morning I saw a link to my article in the "Not Perl" section, Bootstrap && Perl. It was a pleasure and a surprise. So, thank you Gabor.

My favorite resources to get information about Perl are the following:

Have you got anyone not listed? please, write down!

Of course, a lot of blogs indexed by enlightnedperl (I don't want to forget anyone, so I don't enumerate them).

Bootstrap && Perl

2011-09-17T08:40:00.001+02:00

I recently found the bootstrap twitter project, which I'm going to use in my projects. Bootstrap is a toolkit from Twitter designed to kickstart development of webapps and sites. It includes base CSS and HTML for typography, forms, buttons, tables, grids, navigation, layouts, and more.
It also supports javascript, and provide you with some awesome plugins to get you started!
This javascript provides a basic interactive layer on top of the included styles.

Of course, this isn't an only-Perl related topic, but I think it is a very interesting way of improvement for the user interface of any CGI::App, Catalyst, Dancer, Mojolicious, ... application.

Hope this helps in your next projects.
If you used this tool, it would be nice to hear from you...

Rebecca Perl

2011-09-15T21:39:00.000+02:00

Hi, Rebecca
I found your video when I was looking for Perl videos at youtube. Perl is a nice programming language, and a lot of clever people uses it every day. It was invented 24 years ago, probably near to your birthday...
You voice is amazing, this song is awesome... this kind of feelings are the same that we get when we work with Perl. From now on, your songs will go along with my work.
Thanks, Rebecca !

$rebecca_perl++;

Gearman: framework to farm out work

2011-09-13T22:15:00.000+02:00

Gearman provides a generic application framework to farm out work to other machines or processes that are better suited to do the work. It allows you to do work in parallel, to load balance processing, and to call functions between languages.

Gearman and Perl

View more presentations from andy.sh

Perl 5.14 slides

2011-09-05T22:50:00.000+02:00

This is a Ricardo Signes' presentation about Perl 5.14 features at slideshare.comPerl 5.14 for Pragmatists

View more presentations from Ricardo Signes

Perl vs Python debate live from OSCON 2011

2011-08-18T19:03:00.001+02:00

An interesting interview between Perl and Python people, I really like this video (OSCON 2011). It was a knights debate, and in my opinion, Perl 1 - Phyton 0. What's yours?

CPAN Module review - Web apps

2011-04-24T10:08:00.004+02:00

When I'm developing web applications, I use those frameworks that make my work easier. The size of the webs is not big and I have been working with CGI::Application for years. In a recent search, I have found Dancer. This framework handles the routes concept (an idea from Ruby's Sinatra); routes are paths which are binded to code. For example:

get '/home' => sub { 'Hi, this is home!' };

There are a lot of plugins available (database, logging, session handling, REST, AJAX, validation, templates, WebSocket, ...) at CPAN. You can write your own plugin by subclassing Dancer::Plugin.

The framework comes with a script that builds the skeleton of your application, with a nice structure in folders: views, libs, ... it takes seconds to start a new application.

I definitely recommend Dancer to you. Just install and try!

Perl 5.14 - favourite features

2011-04-21T09:54:00.002+02:00

Perl 5.14 is near to be released, and RC1 is out. I'm reading the perldeltas documents looking for nice features. First of all, I'd like to send my congratulations to this fantastic team of people who has done it possible.
Since Perl 5.13.6 (documentation), you can now use the keys, values, each builtin functions on arrays (previously you could only use them on hashes). In fact, this feature is available in Perl 5.12, but it was not documented in perldelta, and I'm using it now.

CPAN Module review - Exceptions

2011-04-15T21:37:00.006+02:00

I would like to share with you those modules that I use when I perform come kind of tasks. I start this series with exception handling. And the "winner" is... Try::Tiny !

Why?

nice / sugar syntax
~~Devel::Declare based (no source filters)~~
simple

What's your favorite alternative?

perl upgrade to 5.12

2010-08-13T19:34:00.003+02:00

This afternoon, at IRC I asked for the best way to upgrade the system perl on my Ubuntu 10. Fortunately, a gentle person answered me in the right and cool direction... perlbrew

In a few minutes, I searched it at CPAN, readed the documentation, decided to intall it and... voilà... it works!! In my opinion this is a very nice piece of code, and if you don't know it, you must try it. It can download, build, install and manage a set of perl versions, and you will discover a new wonderfull way to work with Perl. Enjoy it and many thanks to that kind of smart people that share amazing tools.... so thaks, Kan-min Liu.

Yo can find perlbrew here (CPAN).

perl web services

2010-04-24T09:34:00.003+02:00

I have to write web services, and I'd like to hear from you about your favourites modules in order to do this task. I've used SOAP::Lite, but I really like to know if this is the best chance at Perl environment.

My code has to expose a WSDL interface, and auto-generated way to do this it's required

a picture is worth a thousand words

2009-11-22T08:25:00.009+01:00

This week in the Perl world we have seen two events that I believe are very important:

new look and content in http://www.perl.org
new blogging system at http://blogs.perl.org

Such actions are those that cause direct impact on the community attraction, so my sincere congratulations to all involved in them.

In my opinion, Perl has an enormous inner strength, that with relatively little effort may be evident in a simple way to everyone else.

I'm sure when we try to justify the revival of Perl, these two events will be listed.

Good work!

choosing a bad module name... Modern::Perl?

2009-11-17T22:47:00.005+01:00

I have been using Modern::Perl, and it's great. In a unique and single line you can enable all the nice and "modern" features.

But, in my opinion, the name of this module was bad selected.

Why?

Currently the meaning of modern perl is matched 100% by this module, and this it's Ok; but in 2020 (for instance), modern Perl won't be achieved with Modern::Perl, and we will need other module, similar but different...

The name is nice, but sometimes we have to think in this kind of tips.

perl story

2009-11-11T22:16:00.007+01:00

In my work, I have a reputation of data-problematic-related fast resolver. Yesterday, I received a ZIP file with 200 Excel files. The problem: each XLS file had a close but different format, with columns changed or dropped. They wanted a complex report with the result of joining all files (in the correct way).

So I wrote a script with Spreadsheet::ParseExcel (I've used it before), and in a few minutes I had a script that extracted the information and merged it in a simple CSV file. Then I did an import process in Excel and generate the report with dynamic tables. Success!

Perl saved me hours of work (tedious) and made me happy. I often use Perl in this way, doing load, extraction and transformation tasks. I often write little scripts that simplify my work and increase my productivity. That's the reason because I have to resolve many problems of this kind every day ... and I like it.

Why should I choose Perl over PHP?

2009-10-31T09:16:00.003+01:00

A friend of mine, who loves PHP, often tries to convince me to write Web apps in PHP. He knows I am a Perl lover, and I just say: "PHP doesn't like me". But next time he tries it hard, I'd like to put him in troubles with a detailed and specific list of features or issues about Perl-vs-PHP topic.

I think experienced programmers appreciate the huge list of features and options available with Perl.

I want to write a list of PHP problems to argue convincingly with my friend.

Could you help me with your opinions?

Choosing a worker with Perl background

2009-10-25T19:51:00.010+01:00

Sometimes, I have to participate in interviews with people who wants to work in my company. We have a heterogeneus environment, with many different technologies involved.

In any case, I prefer to choose a worker with Perl background, why?

We use Perl in many places
If we don't use Perl, I have experimented that people with Perl skills can make a good work in a short period of time
Their mind handles different concepts in a simple and consistent way, and designs they provided are good.
They can work without problems in more than one project at the same time.
In general, their projects are cheaper to maintain (beacuse of 3).

In short,

$my_opinion_about_worker++ if( $perl_background );

Perl6 - Rakudo #22

2009-10-22T21:48:00.004+02:00

Hello, I've just read the Rakudo#22 announcement (http://rakudo.org/node/57), and there is a lot of new improvements. In my opinion, the most important is the first one:

"Rakudo is now passing 32,582 spectests, an increase of 17,085 passing tests since the September 2009 release. With this release Rakudo is now passing 85.0% of the available spectest suite".

Wow! 85%! This is very impressive! But, what does this mean?

1. We are running fast to the 1.0 release

2. The spectest is not complete

3. The remaining 15% is complex

4. All options (1-3) are true

Perl QT

2009-10-19T20:25:00.004+02:00

Ten years ago, I wrote my first GUI application, using C++ and QT. This framework made easy my work, and I got a good interface with a little ammount of effort. I love it.

Now, I have to write a GUI, and I can use any language (it's my choice). I'd like to use Perl with QT, but the PerlQt project (http://perlqt.sourceforge.net/) seems to be paused (last revision: Sept, 2003).

I know there are other options like Tk, WxWidget, but if I'd like to use QT, Perl won't be my choice. I have to use C++ or Java.

CPAN download counter

2009-10-12T20:32:00.004+02:00

Hi, I recently released my first CPAN module, called SQL::Template. It was a nice experience, because I had to get a new CPAN pause account, and follow the publish procedure.

Then, I posted a message in this blog and have been waiting for feedback. No results, no comments, no news, no bugs in RT...

In IRC channel, I asked if there is any method of getting the number of downloads of my module. A guy said me "no, beacuse CPAN is a highly distributed system, and there isn't a stats collect process".

I accept this answer, but I'd like to have a metric about the number of downloads or visits that a resource have in CPAN. The exact total number it's hard to get, but any accurately procedure should be investigated. For example, stats from http://search.cpan.org.

Should Perl5 "stole" other languages features?

2009-10-09T22:30:00.005+02:00

In a recent group conversation, a friend of mine was talking about features that his favourite programing language (Java) have to include, "stole" from other languages. Another guy tell us other things for his option (Ruby), and so on.

When they ask me about nice features that I would like to have in Perl, I said: well, we don't need to borrow any one from others... In Perl5 we have stolen the nice features from Perl6 !

What do you think? Should Perl5 stole any feature from other languages?

SQL::Template 0.1.0 released

2009-10-05T20:52:00.006+02:00

Imagine this situation: you know DBI and you like it, because you can make use of your SQL knowledge. But you are not happy having the SQL code into the Perl code. You can use other CPAN modules, which let us to abstract SQL code. But we want to write SQL code, we feel confortable with it.

The SQL::Template module manages this ideas:

decoupling SQL sentences from Perl code, writting sentences in a XML file, that you can use in different parts of your code.
Dynamic test of expressions.
Reuse of SQL fragments.
Simple API (very close to DBI).

I invite you to see and use this module (it's production ready). Comments are welcome.

Why Perl6 won't replace Perl5?

2009-10-02T19:16:00.003+02:00

Because most of Perl5 programmers aren't going to change a working language with a lot of tools and new enhacements by a new venturesome platform.

Perl6 must look for new people from Ruby, Python (and others) areas; IMO, if it hopes that Perl5 people will use Perl6, it will fail (at least, in next 3-4 years).

And there is a serious risk: Java 7 will have dynamic language support, so it will be hard to compete for Perl6.

I'd like to be wrong. What do you think?

Why PHP is not my favourite language?

2009-09-29T14:23:00.004+02:00

Because I'm not a web application developer; I'm an enterprise application developer, who sometimes writes Web apps. So I use Perl.

What are your reasons?

Why Perl is my favourite language?

2009-09-24T19:41:00.003+02:00

"Because it's different, like me"

Please, post your answer to this question, I'll make a resume with them. Thank you!

21 - Perl 6

2009-09-18T21:40:00.006+02:00

Hola, acaba de salir reciente la última compilación 21 de Rakudo, la implementación de referencia de Perl6. Siempre me ha gustado el 21, quizás por ser el siglo en el que estamos, quizás porque es el día en que cambian las estaciones del año, quizás porque fue el dorsal con el que Perico Delgado ganó aquel mítico Tour de Francia del 88, quien sabe.

Bromas aparte, creo que ya podemos usar una versión bastante evolucionada de la implementación (no para producción, a mi juicio), para ir probando y saboreando sus nuevas características y empezar a escribir al respecto. Sí, ha llegado ese momento largamente esperado de arremangarse y adentrarse en las aguas aún poco profundas del lenguaje.

El aprendizaje de un nuevo lenguaje nunca me ha preocupado, he llegado a utilizar demasiados como C, C++, Fortran, Basic, Pascal, Perl 5, Java, C#, Groovy, y unos cuantos ensambladores (x86, 68000, MIPS) todos ellos con cierto nivel de profundidad, y en algunos casos con mucho conocimiento. La verdad es que es algo que me llama la atención y me gusta. Ojala pudiese aprender idiomas con la misma facilidad. Ahora llega el momento de coger las riendas de un nuevo caballo llamado Rakudo y me dispongo a disfrutar de la montura, los comienzos serán un momento perfecto para adaptarnos mutuamente. Sí digo bien, adaptarnos.... quiero probar eso de poder hacer mutaciones a mi gusto y tener mi dialecto. Creo que el tema de los DSL es algo muy importante para los próximos años.

Por otro lado, y es lo que más me preocupa, es que un lenguaje pese a que es fácil de aprender, donde muestra su potencial es en el conjunto de librerías y utilidades que lo complementan.... mucho trabajo por hacer aquí hasta que haya un CPAN6 decente y usable... ahí es donde hay que centrar el esfuerzo en los próximos 2 años, en mi opinión.

Bueno, me auto-deseo suerte, valor y ... al Rakudo!

¿Te animas?

I have an idea (2)

2009-09-11T20:33:00.003+02:00

How can we improve the use of Perl ?

This is a simple question, many peope has answered it, and in this article I'm going to present my idea in this area.

Often, we say that CPAN is our main tool in order to develop some kind of solution, and we are right. But CPAN provides many different ways to do the same thing, someones are good and others aren't (TIMTOWTDI). CPAN should show the number of downloads of each distribution, and the activity (number of changes per unit of time). We are lazy, I know; but comments in modules and feedback are wellcome.

With this tools (Perl+CPAN), we need to build applications. Reference applications. There's a few in my opinion. In different areas (not only Web, we are tired). If we can create a set of modelic applications, people will ask for the tools used to build them. This is a very important thing: define a collection of important projects, and assign a development group.

We need to be present at the cloud! it's time for it!

I have an idea (1)

2009-09-05T15:00:00.000+02:00

Until now, I have written my posts in Spanish. My first idea is turn to English in order to allow more people will be able to read this blog. So, I hope my poor English level won't be an obstable.
With this "I have an idea" series, I try to explain some ideas that cross my mind. Sometimes they will be crazy, or boring, or interesting.

The first idea title: "PSR - Perl Specification Request". Last years, we are experimenting a slow and progressive descrease of Perl-enterpise use. Other platforms like JEE and .NET are growing. We need to improve our presence in this scenario, but how? Perhaps we can pay attention to success projects in this area, and create or improve similar things in our environment. For example, I like the EJB3 model in JEE to build enterprise applications, covering topics like scalability, security, transactions, etc. There is a set of specifications for EJB3, and many providers have built their products according with them.

Perl6 introduced a new concept in our world: specification. Rakudo is one implementation of that one. This is a very important thing, we should use. Why not create a PSR group? His job will be create the specification of hot topic areas, like web objects, persistence, rules, busines process model, validation, etc. The each group of people will implement their own solution. The PSR could propose a test-suite in order to ensure the implementation is correct.

This is a simple idea, but with a big amount of work to do:

Organizative, in order to identify the specification areas, the specification propossal procedure, the interfaces between specifications, the work plan and scheduled tasks
Technical, with two levels: first the specification group, which makes the interface definition, defines the funcionality and build the test suite. Second, the workgroup that implements the specification

I think we need to improve in a organizated way, and perhaps this idea may be a good starting point in order to define a scenario in which we will feel confortable. Rakudo will be probably released next spring, and this will be a good starting point. The specification model I have proposed may be the main concept to build CPAN 2.0.

What do you think?

Proxy object

2009-09-03T12:15:00.004+02:00

Los objetos proxy constituyen un concepto avanzado que se asemeja por completo a los más conocidos servidores proxy, los cuales actúan como intermediarios entre el cliente y el servidor. En nuestro caso, un objeto proxy constituye una especie de envoltorio "invisible" (wrapper) sobre un objeto que es el que al final queremos invocar.

Probablemente te preguntes para qué te sirve esto, la verdad es que cuando se conoce bien, uno se pregunta como es posible no haber conocido de su existencia previamente. En resumidas cuentas, siempre que tengamos que hacer algo adicional a una simple llamada a un método de un objeto, el Proxy es un buen candidato a cubrir esta necesidad.

Una razón para controlar el acceso a un objeto, es precisamente aplazar la creación e inicialización del mismo hasta que realmente lo necesitamos (obviamente en aquellos casos en los cuales esto tenga un coste significativo). Un ejemplo puede ser la carga de un documento que contiene además de texto, multitud de imágenes incrustadas. Obviamente no es necesario cargar todas las imágenes al principio, ya que con un alto grado de probabilidad no serán utilizadas inmediatamente. En este caso, conviene realizar la carga bajo demanda, y es donde entra el Proxy ya que a todos los efectos se puede considerar como un objeto del tipo que enmascara (Imagen) pero con capacidad de programar e interceptar la llamada al método que deseemos. Imaginemos que el método es "draw", en este caso aprovechamos en el proxy para crear el objeto Imagen y a continuación invocar a "draw".

Según el tipo de uso, hay gente que clasifica los objetos Proxy en alguna de las siguientes categorías:

Remote proxy, que se encarga de codificar la petición y sus argumentos para enviar la solicitud y recibir la respuesta del objeto real. Un ejemplo de esto suelen ser las llamadas a Web Services, que nos aislan de toda la complejidad de tratar con las peticiones sobre la capa de transporte elegida (http, smtp, ...)
Virtual proxy, para dotar de un nivel de cache al objeto que se está llamado. Imagina aquellas situaciones en las cuales la respuesta del objeto real es la misma ante la misma entrada, el proxy puede cachear las respuestas e invalidar las mismas en base a determinados criterios
Protection proxy, para verificar si la llamada tiene suficientes privilegios como para poder realizarse

Bueno, vista la parte "teórica", quizás esté bien ver un poco de código ¿no crees?

package Proxy;
use strict;
use Carp;
use UNIVERSAL qw/can/;


our $AUTOLOAD;


sub new {
  my ($class, $target) = @_;
  return bless {TARGET=>$target}, $class;
}


sub isa {
  my $self = shift;
  return $self->{TARGET}->isa(@_);
}


sub AUTOLOAD {
  my $self = shift;
  my @params = @_;
  my $method = substr($AUTOLOAD,7);
  return if( $method eq 'DESTROY' );
  my $target = $self->{TARGET};
  if( defined $target ) {
    if( UNIVERSAL::can($target, $method) ) {
      return $target->$method(@params);
    }
    else {
      croak "Proxy target doesn't support $method method";
    }
  }
  else {
    croak "Proxy target hasn't been set $target";
  }
}

1;

Como puedes observar, se trata de la definición de un módulo Proxy que hace uso del método especial AUTOLOAD de Perl. Recuerda, esta función (si existe) se llama cada vez que no se encuentra un método que se está intentando llamar. En AUTOLOAD, simplemente se verifica que el método existe en el objeto destino, y si es así, se llama.
Para probar esto, imaginemos que tenemos otra clase Persona, muy sencilla (con ayuda de Class::Accessor):


package Persona;
use base qw(Class::Accessor);


Persona->mk_accessors(qw(name role salary));

1;

Bueno, hasta ahora nada del otro mundo. Imaginemos ahora que nos piden que la propiedad "salary", cada vez que sea consultada, debe quedar constancia en un fichero de quien lo hizo. Nuestra primera intención podría ser ir a tocar la clase Persona y meter el código donde corresponda. Sin embargo, a mi juicio, eso "ensuciaría" la clase con cuestiones que no le son propias. Y además para algo tengo que utilizar el tema del Proxy, que para eso lo he explicado...

En primer lugar, creamos una clase que hereda de la anterior y que hace el trabajo de log en el fichero:

package Proxy::Persona;

use base 'Proxy';
use strict;
use autodie;

sub salary {
  my $self = shift;
  my @params = @_;
  if( @params ) {
    $self->{TARGET}->salary($params[0]);
  }
  else {
    open my $fh, ">>person.txt";
    my @now = localtime(time);
    printf $fh "[%02d-%02d-%d] %10s %s\n", $now[3], 1+$now[4], 1900+$now[5], getlogin, $self->{TARGET}->salary;
    close $fh;

    return $self->{TARGET}->salary;
  }
}
1;

Y a continucación creamos un fichero para probar que esto ha funcionado:

use Persona;
use Proxy::Persona;

$p = new Persona;

$p->name('JOSE');
$p->role('MANAGER');
$p->salary(2000);

$x = Proxy::Persona->new($p);
print "Salario: ", $x->salary(), "\n";

Precisamente el último print, es el que sirve para llamar al método proxetizado y hacer el log. Cualquier otra llamada a cualquier otro método de la clase Persona, se llama sin mayor actuación. Es de destacar:

La clase target (Persona) no se ha modificado para nada
El script que utiliza la clase proxy debe ser modificado ligeramente para crear un objeto de la clase Proxy::Persona
Toda la funcionalidad que deseemos añadir, figura en la clase Proxy::Persona, con lo cual queda mucho más limpio el resto del código que empleamos.

Bien, espero que con esta pequeña aportación, haya quedado mucho más claro para que sirve y cómo podemos beneficiarnos del uso del patrón Proxy.

Me gustaría conocer tus opiniones, no únicamente de este tema, sino de la línea de los artículos, o si hay algún tema que sea de tu interés y que pudiese ser motivo de una entrada. ¡Animo!

Empaquetado con PAR

2009-08-30T15:59:00.017+02:00

Durante mucho tiempo, el uso de los diferentes módulos que tenemos a nuestra disposición a través del CPAN nos creaba un pequeños handicap: cuando tenemos que distribuir nuestro programa, es necesario asegurar que todas las dependencias están disponibles para poder ser empleadas. Esto, que a priori debería ser algo sencillo, no ha quedado bien resuelto hasta la aparición del Perl Archiver (PAR). En resumidas cuentas, PAR nos permite agrupar todos los módulos, ficheros de configuración, recursos y otras dependencias en un único fichero comprimido, para facilitar su distribución.

Imagino que a los que trabajen con Java les resultará familiar este concepto, incluso el nombre que se utiliza es similar (JAR, Java Archiver), que se inspira obviamente en el archiconocido TAR.

En este artículo trataré de resumir las opciones más importantes de cara al uso de esta estupenda herramienta, que pasa por ser un tanto desconocida pese a que tiene sus orígenes por el año 2003.

Crear un fichero PAR

(a) El caso sencillo

Un fichero PAR está comprimido en un formato ZIP, por tanto podremos utilizar nuestra herramienta preferida que maneja este tipo de formatos (por ejemplo, el comando "zip" en Linux, o 7-zip en Windows). Imaginemos que deseamos crear el fichero "prueba.par", con un par de módulos de contenido

%> zip prueba.par Modulo1.pm Prueba/Modulo2.pm

Como vemos, podemos (y debemos) incluir las estructuras de directorios que estemos utilizando.

(b) Algo más habitual...

Aunque crear un fichero de esta forma es muy sencillo, en aquellos casos en los cuales tengamos un programa complejo que requiera localizar las dependencias de módulos que tiene, puede llegar a ser tedioso, sobre todo cuando además realizamos cambios en el programa que afectan a esas dependencias. Para estos casos disponemos de una utilidad, el PAR Packager (pp) que se encarga de realizar este tipo de tareas, y que obviamente sólo hay que tener instalado en el equipo de desarrollo, no en los usuarios del fichero PAR que construyamos.

Imagina que partimos del "programa.pl" y que deseamos encontrar todas sus dependencias y empaquetarlas en un fichero PAR; simplemente hacemos:

%> pp -p -o programa.par programa.pl

Con "-o" especificamos el fichero PAR de salida que se genera, y "-p" indicamos que deseamos generar un fichero PAR. En este ejemplo, el fichero "programa.par" contiene por tanto, todas las dependencias que se han encontrado. Este fichero se puede utilizar así:

Para visualizarlo, con nuestra herramienta ZIP favorita
Para utilizar los recursos que contiene desde otro programa, como se mostrará más adelante
Para ejecutarlo directamente, ya que el fichero PAR creado de la forma anterior ha incluido el fichero "programa.pl" dentro del mismo, si tenemos instalado el PAR Packager, podemos probarlo sin más que escribir:

parl programa.par

Si queremos distribuirlo a un equipo en el cual no tenemos PAR PAckager, pero sí PAR, podemos usar la opción "-P" cuando lo creamos

%> pp -P -o programa_empaquetado.pl programa.pl
%> perl programa_empaquetado.pl

(c) Crear un fichero ejecutable "stand-alone"

Una posibilidad muy interesante que nos proporciona el uso de PAR es la capacidad de crear ejecutables que puedan ser utilizados en plataformas donde ni siquiera se ha instalado Perl. Esto es un concepto bastante interesante cuando queremos asegurarnos de que nuestro programa funciona en cualquier sitio, aunque un pequeño detalle es que sólo funcionará en la misma arquitectura en la que fue construido. La herramienta que utilizamos para esto sigue siendo obviamente, "pp".

Siguiendo con los ejemplos anteriores, podemos hacer esto:

pp -o programa programa.pl       # en Linux
pp -o programa.exe programa.pl   # en Windows

Usar un fichero PAR

Una ver que disponemos del fichero PAR con un conjunto de módulos, si lo queremos emplear desde nuestro programa, debemos tener instalado en nuestro sistema el módulo PAR, que lo podemos realizar a través del CPAN, como otro módulo normal.

En nuestro programa debemos hacer entonces (siguiendo con el ejemplo "prueba.par"):

use PAR "ejemplo.par";
use Prueba::Modulo2;
#...

Como vemos, todo lo necesario está en el fichero ".par", y si queremos ubicarlo en una ubicación específica lo podemos hacer sin más que especificarlo a la hora de utilizarlo:

use PAR "/la/ruta/del/fichero/par/ejemplo.par";
use Prueba::Modulo2;
#...

Referencias

Si deseas profundizar, te recomiendo una serie de lecturas:

¿Cuáles son tus experiencias en la distribución de tu código Perl?

El sentido común

2009-08-28T21:52:00.016+02:00

Una de mis aficiones consiste en jugar al ajedrez, y hace unos cuantos años, cayó en mis manos un manual titulado "El sentido común en ajedrez", de Emanuel Lasker, probablemente uno de los mejores (quizás el número uno) de entre todos los campones de este deporte. Este libro era sencillo, directo y servía para hacer fácil aquellas cosas que podían parecer complicadas en un principio.

Te preguntarás ¿que tiene que ver esto con Perl? Bueno, la verdad que me apetecía contarlo, porque esta tarde encontré en mi estantería este libro, y me ha hecho recordar lo bien que me lo pasé cuando lo leí, hará unos 20 años (!). E inmediatamente, he recordado un módulo curioso y más que recomendable: common::sense. Por tanto el nexo de unión entre el ajedrez y Perl en este artículo reside precisamente en el uso del menos común de todos los sentidos.

Pero, ¿en qué consiste el sentido común en Perl? Llevamos ya un tiempecito con la versión 5.10 del lenguaje, y muchos no hacemos uso de una serie de características nuevas (no presentes anteriormentem y que por tanto harían que los scripts no funcionasen en plataformas antiguas).

use common::sense;

# Es lo mismo que:
#
# use strict qw(vars subs);
# use feature qw(say state switch);
# no warnings;

como podemos observar, hay un par de curiosidades en el módulo:

no warnings, parece contrario a lo que uno inicialmente puede pensar, pero tiene su lógica. La activación de warnings debería afectar únicamente a aquellas partes del código que el programador tiene bajo su control, no a aquellas pertenecientes a los módulos que está utilizando. Por tanto, si se activa el flag "-w", hay que asegurar que no va a tener implicaciones en nuestro módulo para que no aporte mensajes que no deberían preocupar al programador que lo use.
use feature, para poder emplear las nuevas características de la versión 5.10 (las cuales no están disponibles si no se las activa de esta manera). Son las siguientes:

say: es lo mismo que hacer un print añadiendo un "\n" al final de forma implícita.
state: viene a ser un equivalente de las variables de tipo static en C o en Java, es decir se crea e inicializa una única vez
switch: el tan debatido largamente control de flujo de tipo switch, que tiene eso sí una implementación avanzada, donde podemos incluso utilizar expresiones regulares

Cabe recordar que la versión 5.10 trae unas cuantas cosas más, y si las queremos activar todas, basta con hacer esto:

use feature qw(:5.10);

¿y tú, haces uso del sentido común que te propongo?

Renacimiento

2009-08-26T23:08:00.005+02:00

Al igual que la humanidad vivió su época de revitalización cultural en la etapa del Renacimiento, podemos decir que estamos experimentando algo similar en el mundo Perl.
Durante unos cuantos años, hemos podido observar una lenta pero progresiva pérdida de importancia o notoriedad de nuestro viejo y querido lenguaje. Quizás vivimos un mundo en el cual nos hemos acostumbrado a versiones frecuentes en las herramientas que usamos, y en el momento que no se producen nos surgen dudas sobre su viabilidad, y en seguida se oyen los cantos de sirena "... is dead".

Si bien es cierto que no hemos experimentado un crecimiento significativo en estos años, podemos afirmar que el lenguaje se ha ido dotando de una serie de elementos que lo mantienen muy vivo y en buena forma para afrontar los problemas presentes y futuros. Algunos de estos elementos que comento son los siguientes:

CPAN, el pozo de la sabiduría donde uno puede encontrar un módulo para prácticamente cualquier cosa que se le ocurra. Algunos argumentan con razón, que se trata de la killer-app de Perl, en el sentido de que la mayor parte del esfuerzo de la gente se ha centrado en enriquecer CPAN. De hecho, todas aquellas características que se añaden en el core del intérprete, han sido previamente probadas a través de algún módulo publicado en el CPAN.
Moose, por fin una forma de programar orientado a objetos que ha sido muy bien diseñada e implementada
Padre, un IDE para Perl. Esto sí que es algo que sabrán apreciar todos los programadores acostumbrados a las facilidades que nos da un entorno de este tipo. Aunque está en sus etapas iniciales, ya se puede utilizar y comprobar su potencial
Devel::Declare, una forma de modificar el comportamiento de Perl en tiempo de compilación sin necesidad de utilizar filtros de código fuente (que por cierto es otra técnica muy potente, si quieres profundizar, mira el módulo Filter::Simple). Permite tomar el control del parser, con lo cual es posible crear nuevas sintaxis... imagina el potencial de esto
Perl 6. Bueno, esto será motivo de una serie de artículos... En cualquier caso, hay que estar preparados para la nueva versión de Perl anunciada para Abril del 2010. En realidad no es un sustituto de Perl 5, ya que éste seguirá su progresión (acaba de salir la versión 5.10.1). Se trata de un nuevo concepto, un nuevo diseño y una nueva implementación que se basa en una máquina virtual Parrot especializada en la ejecución de lenguajes dinámicos. Cuando salga la versión 1.0 de Rakudo (así es como se ha denominado la implementación de referencia de Perl6) habrán transcurrido 10 años desde su concepción original.

A mí particularmente hay una razón de tipo sentimental que me refuerza en el pensamiento que da título al artículo. Creo que toda la gente que trabaja con Perl siente algo especial por este lenguaje, algo que no he percibido en los entornos de otros lenguajes (y conozco unos cuantos). Por eso estoy seguro que Perl está vivo, incluso más vivo que nunca. Dentro de 20 años no sé como se programará o cuales serán las técnicas al uso, pero se que se podrá hacer fácilmente en Perl.

Hay muchas otras razones que sirven para reforzar el mensaje del renacimiento de Perl. Si quieres profundizar en ellas, te recomiendo la lectura de este artículo (escrito por chromatic, un referente de Perl).

¿Cuáles son las tuyas?