はじめに

初めまして！新卒エンジニアの肉@nikuzukiです。
Qiitaを書くのは初めてです。よろしくお願いいたします。

私はミクシィに入ってからPerlを書き始めた者です。
日々、Perlを書いていて楽しい！と思う一方で、
まだまだ手に馴染んでおらず、Perlに書かされている感じの新米エンジニアです。

そんな私は、Perlを書き始めてからつまづいたことをメモしておりまして、
そのメモを自分の復習を兼ねて、アドベントカレンダーの記事にしました。

内容として、

つまづいたこと（を問題風にしたもの）
解説
という順で書き並べていきます。

また、これらのメモはPerlを理解していなかった私が生んだコードたちです。
ご勘弁ください。

True?False?

このなかで文字列が出力されるものはどれでしょうか？

print "yakiniku" if 0;
print "sushi" if 0.0;
print "sukiyaki" if "0";
print "shabushabu" if "0.0";

説明

Perlにはブール値がありません。
その代わりTrueやFalseを表す数値や文字列を使います。
0や'0'はFalseを表し、1や'0'以外の文字列はTrueを表します。
気をつけないといけないのは'0.0'で、一見Falseのように感じますが、
'0'以外の文字列でありTrueを表します。
怖いですね〜。

値、文字列	T or F
0	False
1	True
''（空文字列）	False
'0'	False
'1'	True
'0.0'	True

このコードでは"shabushabu"のみが出力されます。

True?False? パート2

my $array = [];
if ($array) {
  print "yes";
} else {
  print "no";
}

説明

いきなり$や[]が出てきました。怖いですね。
Perlにはスカラー変数というものがあります。
スカラー変数は数値や文字列、メモリアドレスを入れることができる変数です。
my $変数名で宣言することができます。

次にPerlのリストの話をします。
Perlは（）でリストを作ることができます。
配列はmy @変数名で宣言することができ、
1,2,3という要素が入った配列を作るときは
my @array = (1, 2, 3);
と書きます。

その一方で[]はリストが存在するメモリアドレスを表します。
my $array = [1, 2, 3];は
1,2,3という要素が入っている配列が存在するメモリアドレスを$arrayに格納する
ということを表しています。
これをarrayref、配列のリファレンスと呼びます。
（$arrayという変数命名は正確ではありませんね...ごめんなさい...）

１行目では$arrayを宣言し、
空のリストが存在するメモリアドレスを$arrayに渡しています。

ここで本題に入ります。
空のリストが存在するメモリアドレスはTrueでしょうか？Falseでしょうか？
Perlにおいてメモリアドレスは全てTrueです。
ここでは"yes"と出力されます。

リストとfor文

my @array1 = (1, 2, 3);
my @array2 = (4, 5, 6);

for (@array1, @array2) {
  print $_;
}

説明

forをグルグル回すと何が出力されるでしょう？という問題です。
$_という怖そうなものがありますが、これはデフォルト変数と呼ばれるもので
for文のスコープ内において、配列の各要素が渡される変数となります。

問題はarray1と2がどうなるかというものですが、
Perlでは配列が展開されて渡されます。
よって123456と出力されます。
これは怖くないですね。

これがわかると

my @a = ();
my @b = (1);

map {
  print "1";
} @a, @b;

も何が出力されるか分かりますね。

変わった代入

my @array = [0, 1];
print $array[0];

説明

ここまでの説明がわかるとピンとくるかもしれません。
これは0が出力されず0と1を持つリストがあるメモリアドレスが出力されます。
Perlでは配列にスカラ（メモリアドレス）を代入すると一つの要素を持つ配列となります。

それではここから0を取り出すにはどうするでしょうか？
Perlでリファレンスの要素を参照するにはアロー演算子->を使います。
例えば、$arrayref = [1,2,3];で2番目の要素を参照するには
$arrayref->[2];と書きます。
今回の場合@arrayの中にメモリアドレスがあり、その中の1番目を参照するので
$array[0]->[0];と参照します。

()はリスト、[]はリファレンス
やや怖いですね。

終わりに

復習がてらに書き記したものなので、間違っている箇所があるかもしれません。
コメントでご指摘いただけると嬉しいです！

明日はらりょすさんです。
楽しみですね。