#!/usr/bin/perl use strict; use warnings; my $a; if (0) { } elsif ($a eq 'a') { } を実行すると Use of uninitialized value in string eq at x.pl line 8.のように「if (0)」の line で warn が出るんですが，今頃はまりました。当たり前といえば当た…