my $hoge; print "\$hoge is undef\n" if ($hoge eq undef); print "\$hoge is undef\n" if ($hoge == undef);

パスワードを平文で保存しては危ないのでハッシュ化するのだけれど、少々調べてみた。 まずcrypt関数。マシン依存でDES暗号かMD5ハッシュになるのだそう。 print crypt("hoge", "1234567"); 12.aCGsm0z7ngが戻ってきたので、使っているのはDESの模様。 そも…

いまさら感はあるが、知らないことがあったので書いてみる。 まずスライス。 my @list = (0..9); print @list[3..5]; #$list[3], $list[4], $list[5]を要素に持つ print @list; #@listはそのまま 続いてsplice（スプライス） こちらは配列要素を切り取る。第…