@array = (1, 2, 3, 5, 6);
@array = insert2array( 5, 4, @array);
sub insert2array {
my $front = shift;
my $me = shift;
my @list = @_;
my @output;
#print "$#list\n";
#print "$front => $me \n";
if ($#list < 0){
push @output, $me;
} else {
foreach my $item (@list){
if ($item eq $front){
push @output, $item;
push @output, $me;
} else {
push @output, $item;
}
}
}
return @output;
}
【実行結果】
@array は (1, 2, 3, 5, 4, 6) になります。
投稿者プロフィール
最新の投稿
未分類2021.01.11mobile broadband1
未分類2020.09.10閉域網の電子カルテにJitsiを稼働してみた!
未分類2020.09.01Mongodb タイトルなしの汎用インポートコマンド
未分類2020.09.01Spotfire からMongoDBのデータを分析する(DPC公開データをサンプルに)
コメントを残す
コメントを投稿するにはログインしてください。