Planet Perl Iron Man

Learning to Fail to Learn

nobody@example.com (chromatic) — 2010-03-12T22:41:26Z

I've been writing about Moose in the Modern Perl book draft recently. Moose is clearly the right way to teach object orientation in the context of Perl 5, and I've enjoyed how Moose makes doing the right thing easy.

Yesterday I explained inheritance in the context of Moose and Perl 5 OO.

I'd already explained Perl roles. If I didn't have to acknowledge that people reading the book will eventually run across legacy code, I could happily gloss over inheritance as an idea that turns out to be much less useful than it first appears. I suspect that inheritance seems great to OO novices because it's spectacular and interesting: code appears seemingly for free out of nowhere! That's easy to understand, while the subtle utility of polymorphism and parametric polymorphism require you to have struggled with the problems they solve so you understand their value.

Would so many of us appreciate Moose if we hadn't wasted so much time doing things the hard way?

I spend a lot of time thinking about how to teach people to appreciate and to understand modern Perl in ways that do not lead them down the dark alleys and bumpy roads where I had to learn to program the hard way. I'm very stubborn, and I'm perfectly comfortable taking apart something to figure out how it works. (The people who fix bugs in your favorite programming languages likely share this trait.)

I don't believe that attribute is a necessary precondition for learning to program well.

However, I do wonder if it's more difficult to understand the value of a non-obvious system until you realize the drawbacks of the system you do understand. I've seen novices insist that they absolutely must use symbolic references instead of hashes, or that manual iteration instead of list transformation is so much easier, or what have you that I wonder about the diactic value of trying to show people the best general approach as I understand it now first, then mentioning other ways that aren't as good.

Consider an example. I know better ways to write Test::Builder because I've implemented it three times now, in Perl 5, Perl 6, and PIR. I like to think I'd have listened if someone suggested infelicities in its original design, but only the experience of implementing and using it helped me to understand what it really needed to do.

I wonder. Is it possible to teach Perl 5 in such a way that novices don't have to suffer all of the miscues that the rest of us have in the past decade? If so, how do I do that? (If not, what does that imply about new adoption of Perl 5 and adoption of Perl 6 in general?)

Maybe I'm conflating learning a language with learning how to design programs—but how do you separate the two when your goal is merely to teach people how to solve problems?

Perl in Springfield

nobody@example.com (codeholic) — 2010-03-12T18:46:00Z

Интересно, кто в Спрингфилде программирует на Perl? Барт? Лиза? Или, может быть, Мо? Ждем появления NewNewYork.pm.

Nachtrag zur CeBIT - Video mit Gábor online

nobody@example.com (ReneeB) — 2010-03-12T12:11:00Z

Gábor wurde auf der CeBIT vom Linux Magazin interviewed. Neben ein paar allgemeinen Fragen kam natürlich auch die Frage nach Perl 6 auf. Ich finde seine Antwort sehr sehr gut!

Schaut es euch einfach an: http://www.linux-magazin.de/NEWS/Video-Perl-Projekt-gibt-sich-die-Ehre

Vielleicht habe ich Glück und mein Vortrag wird bei RadioTux noch veröffentlicht. Von den meisten anderen Vorträgen sind die Aufnahmen schon online. Ob es von meinem Vortrag eine Aufnahme gibt, weiß ich nicht.

Devel::Cover für CGI-Programme

nobody@example.com (ReneeB) — 2010-03-12T08:48:00Z

Devel::Cover ist ein super Tool, mit dem man prüfen kann, ob die Testsuite für ein Programm/Modul wirklich den gesamten Code testet. 100% Abdeckung zu erreichen ist äußerst schwierig. Und selbst bei 98% Testabdeckung heißt es nicht, dass in der Software keine Fehler mehr sind - wie Curtis 'Ovid' Poe diese Woche feststellen musste.

Devel::Cover misst die Abdeckung für verschiedene Sachen:

Statements
Branches
Conditions
POD
Subroutines

100% Abdeckung bei Statements sagt nicht besonders viel aus. Nimmt man als Beispiel "print 'yes' if $x || $y", dann kann man 100% erreichen, indem man $x einen "wahren" Wert gibt. Aber man hier nicht alle Fälle getestet.

Am meisten nutze ich die Abdeckung der "Conditions". Da hier von Devel::Cover alle Kombinationen von Bedingungen angezeigt werden und ob man das getestet hat. Hier kann man noch große Lücken in den Tests aufdecken:

Zu genau will ich hier aber gar nicht auf Devel::Cover eingehen.

Man braucht nicht immer eine Testsuite, um mit dem Tool etwas sinnvolles zu tun. Gestern wurde ich gefragt, ob und wie man einfache CGI-Programme damit überprüfen kann. Hintergrund ist der, dass unnötiger Code identifiziert werden sollte, damit das aufgeblähte Skript etwas zusammengeschrumpft werden kann.

Das CGI-Skript braucht keine Parameter, so dass ein einziger Durchlauf reicht, um unnötigen Code zu identifizieren. Bei etwas komplexeren Skripten muss man mehrere Läufe mit unterschiedlichen Bedingungen starten.

Mit zwei zusätzlichen Zeilen in der Apache-Config kann man Devel::Cover für alle CGI-Skripte aktivieren:

SetEnv DEVEL_COVER_OPTIONS "-ignore,CGI,-silent,1"
SetEnv PERL5OPT "-MDevel::Cover"

Und für ein einziges Skript fügt man diese Zeile in das Skript ein:

use Devel::Cover qw(-ignore CGI -silent 1);

Mit PERL5OPT kann man dem Perl-Interpreterer Optionen mitgeben. In diesem Fall ist das "-MDevel::Cover", was bewirkt, dass Devel::Cover eingebunden wird. Die Optionen für Devel::Cover sagen folgendes aus:

-ignore,CGI => Erstelle für Dateien, die CGI im Namen/Pfad haben keine Auswertung
-silent,1 => Mache keine Ausgaben

Vor allem letztere Option ist wichtig, da sonst ein "Premature end of header" kommt. Devel::Ignore gibt nämlich eine Auswertung auf STDOUT aus, bevor das Skript einen Header senden konnte. Ist das ausgeschaltet, erstellt Devel::Cover einfach nur die Datenbank, die dann in HTML umgewandelt werden kann.

Perl 5.10 в 2010-м — первая часть части III

nobody@example.com (ash) — 2010-03-12T08:35:18+01:00

Часть III
Как пишут другие

В этом разделе собраны и сгруппированы примеры использования новых возможностей Perl 5.10, которые встречаются в модулях на CPAN.

Как включить режим Perl 5.10

Поскольку новые ключевые слова могут сделать программу несовместимой с предыдущими версиями компилятора, необходимо дать явные указания, чтобы активировать соответствующие фичи Perl 5.10.

Cпособы, которыми пользуются авторы, как нельзя лучше демоснтрируют принцип TIMTOWTDI:

use 5.010000;
use 5.01001;
use 5.010;
use 5.010_000;
use 5.10.0;
use v5.10.0;
use v5.10;
use feature ':5.10';

Строки, начинающиеся с буквы v, либо содержащие две точки, называются v-string (version string или, иногда, vector string). При объявлении версии интерпретатора следущие варианты эквивалентны.

5.10.0
v5.10.0
v5.10

Обратите внимание, если при указании версии используется обычное число (с одной десятичной точкой), то следует писать не 5.10, а 5.010.

say для отладки

Функцию say удобно использовать во время отладки программы для вывода промежуточных значений переменных. На CPAN можно найти следы такой отладки — закомментированный вызов say.

given ($action) {
    when (/^include_cmd:/) {
        my $cmd = $child->content;
        $cmd =~ /^include_cmd:(\s*)/;
        my $ws = $1 || '';
        $cmd =~ s/^include_cmd:\s*//;
        #say("cmd:$ws$cmd");
        $cmd = cwd() . '/' . $cmd;
        @output = qx($cmd);
        $child->content($ws . join($ws, @output));
    }

Pod::Elemental::Transformer::Include — 08 Jan 2010
include output via files and commands

(Здесь и далее рядом с примером кода указано название модуля, откуда взят пример, дата выхода его первой версии и авторское описание; пунктуация, отступы и пробелы в коде в большинстве случаев сохранены.)

// и //= для значений по умолчанию

Пожалуй, самое распространенное применение оператора defined-or — установка значений по умолчанию.

В частности, удобно пользоваться вариантом с присвоением.

$port //=  5432;
$host //= 'localhost';

$col  //= '';

Pg::Loader — 07 Jul 2008
Perl extension for loading Postgres tables

$attrz{ maxjob  } //= 1;
$value //= 1;

$attrz{ $_ } //= 0;
$attrz{ verbose } //= '';
$attrz{ debug   } //= '';
$val //= 1;
$exit //= 0;
$skipz->{ $job_id } //= 'Skip on SIGHUP'

Parallel::Depend — 12 Aug 2009
Parallel-dependent dispatch of perl or shell code

Чуть более сложный пример — с обращением к встроенной функции:

sub import   {
    shift;
    my %args = @_;
    # we do not care about autoviv
    $^H{fixedtime} = $args{epoch_offset} // 
                     CORE::time;
}

fixedtime — 14 Aug 2008
lexical pragma to fix the epoch offset for time related functions

Defined-or используют и непосредственно при передаче аргументов функциям.

say $answer //      "I don't know enough to answer you yet.";

Hailo — 29 Jan 2010
A pluggable Markov engine analogous to MegaHAL

Следует обратить внимание, что оператор возможно использовать не только с истинными скалярами.

my $marpa_version  =  $Parse::Marpa::VERSION // 'undef';
my $source_version =  $Parse::Marpa::Source::VERSION // 'undef';

$options //= {};

Parse::Marpa — 14 Dec 2008
Generate Parsers from any BNF grammar

В следующем примере помимо многократного использования // интересно отметить, что say передается файловый дескриптор.

my $nulling_symbol =
  $rhs_symbol->[Parse::Marpa::Internal::Symbol::NULL_ALIAS] // $rhs_symbol;

$action //= $default_action;

say {$trace_fh}
    'Problems compiling action for original rule: ',
    Parse::Marpa::brief_original_rule($rule);

my $clone = $clone_arg // 1;
my $current_parse_set = $parse_set_arg // $default_parse_set;

$choice //= 0;

$lines //= [0];
$source_options //= {};

Parse::Marpa::Internal::Evaluator — 14 Dec 2008
Generate Parsers from any BNF grammar

Наконец, и сам файловый дескриптор удобно вписывается в работу с defined-or:

my $trace_fh = $arg_trace_fh // (*STDERR);

my $trace_fh = shift;
$trace_fh //= *STDERR;

Parse::Marpa::Recognizer — 14 Dec 2008
Generate Parsers from any BNF grammar

// внутри return

Оператор defined-or часто встречается внутри вызова return, опять же чтобы вернуть определенное значение, если оно не получено на предыдущих шагах.

return $self->_get_infection( $disease->id ) // 0;

my $val = $self->_get($key) // $default->{$key};


return @{ $self->_players // [] };

Games::Pandemic::City, Games::Pandemic::Config — 07 Sep 2009
Games::Risk — 18 Oct 2008

Иногда в одном из операндов // вызывают фукнции, которые могут привести к досрочному завершению программы или выходу из блока.

sub homedir {
  my ($self) = @_;
  require File::HomeDir;
  return File::HomeDir->my_home
    // croak 'File::HomeDir says you have no home
              directory';
}