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

[0608 デフォルトの名無しさん 2017/02/06(月) 20:41:32.21 ID:r2wSMn/A]

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