練習問題の回答をメモ。 #!/usr/bin/perl use strict; use warnings; { package Animal; use Scalar::Util qw(weaken); use Carp qw(croak); sub speak { my $class = shift; print $class->name, ' goes ', $class->sound, "!\n"; } sub name { my $either …

Perl のハッシュリファレンスのスライスの書き方が分からなくてはまったので、やり方をメモしておく。 普通のハッシュ %foo のスライス % perl -le 'my %h = (a => 1, b => 2, c => 3); print @h{qw/a c/}' ハッシュリファレンスの場合 % perl -le 'my %h = …

続・初めてのPerl を読んでいて少し混乱したので、クラス変数の作り方をメモしておく。 結論から言うと、Perl でクラス変数を作るには「our演算子」を使う。ラクダ本 p.156 によると、our変数は、 ourは値を生成するのではなく、グローバル変数（これは永遠…