post by yamamoto | 0 | 881 views

perl メモ 配列のある要素の後ろに挿入

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

コメントを残す