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

Perlについての質問箱 43箱目at TECH

Perlについての質問箱 43箱目 - 暇つぶし2ch302:デフォルトの名無しさん
10/05/07 16:17:03
>>297

use List::MoreUtils qw(zip);

$_ = '1,2,3';
push @result, {zip @{[qw(foo bar baz)]}, @{[split /,/, $_, 3]}};

次ページ

続きを表示

1を表示