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

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

756:デフォルトの名無しさん
08/09/09 08:00:27
>>736
my $index = 2 ; # 抜きたいindex
my @dat = qw( 1 2 3 4 5 6 ) ;
push @dat, ( splice @dat, $index )[1.. $#dat - $index] ;
print @dat ;

定番

次ページ

続きを表示

1を表示