Perlコーディング初心者質問スレ Part 50

[0853 nobodyさん 2006/07/21(金) 17:08:27 ID:???]

普通whileに入れちゃうんじゃないかな
my $param = '123a456';
my $n = '';
while ($param =~ s/[0-9]+//) {
　$n = $&;
　print 'debug $n='.$n.' $parm='.$param."\r\n";
}
print 'end';