【Perl】初心者コーナー Part13

[0750 nobodyさん 02/07/10 19:28 ID:???]

>>748
それやるなら、
if ( $P !~ /^[0-9]+/ ) { }
か
unless ( $P =~ /^[0-9]+/ ) { }
じゃないと。