Perlについての質問箱 63箱目

[611 デフォルトの名無しさん 2017/02/07(火) 00:35:10.28 ID:S1oxUZhq]

>>608
> push @list, $1 while $str =~ /'([0-9]+)'/g;

惜しいね。それやるならこうだよ

@list = $str =~ /'([0-9]+)'/g;