0と空文字と未定義値の比較(Perl) | ブログが続かないわけ

自戒のエントリー。 これを以て反省とかえさせてください。 タイトルの通り、こいつらをどう区別するかという話。 スカラー変数だと説明しづらいので、ハッシュで行く。 use strict; use warnings; my %data; $data{'exists'} = 'OK!'; #1 $data{'zero'} = 0; #2 $data{'kara'} = ''; #3 # $data{'undef'} = ''; #4 my @keys = qw(exists zero kara undef); %data に含まれる4つの値(正確には3つの値)を区別する。 ■1. まずは全部表示しちゃう例。foreach my $key ( @keys ) { print "$key => $data{$key}¥n"; } □1.結果exists => OK! zero => 0 kara =