@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

最新の投稿

• 未分類2020.04.09コヒーフィルターでマスクの再使用
• 未分類2019.04.01医療通訳＋医療コーディネーター
• 未分類2019.04.01iTextSharp を使ってみましょう！（１）
• 未分類2019.04.01漢字関連サイト