@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)　になります。

投稿者プロフィール

yamamoto

最新の投稿

• 未分類2021.01.11mobile broadband1
• 未分類2020.09.10閉域網の電子カルテにJitsiを稼働してみた！
• 未分類2020.09.01Mongodb　タイトルなしの汎用インポートコマンド
• 未分類2020.09.01Spotfire からMongoDBのデータを分析する（DPC公開データをサンプルに）