perlで配列の途中の要素を削除する方法

perlで配列の途中の要素を削除する方法

Posted at April 6,2018 12:03 AM
Tag:[Perl]

perlで配列の途中の要素を削除する方法を紹介します。

1.問題点

次の、配列の途中の要素を削除するサンプルを動かしてみました。

#!/usr/bin/perl
use Data::Dumper;
 
my @foo = (0,1,2,3);
delete($foo[1]);
print(Dumper(@foo));

実行結果

$VAR1 = 0;
$VAR2 = undef;
$VAR3 = 2;
$VAR4 = 3;

deleteで値は消えるようですが、配列の要素自体は削除されないようです。

ということで、perlで配列の途中の要素を削除する方法を紹介します。

2.perlで配列の途中の要素を削除する

perlで配列の途中の要素を削除するには、splice関数を利用します。

#!/usr/bin/perl
use Data::Dumper;
 
my @foo = (0,1,2,3);
splice(@foo, 1, 1);
print(Dumper(@foo));

実行結果

$VAR1 = 0;
$VAR2 = 2;
$VAR3 = 3;

spliceは、下記のARRAYからOFFSET、LENGTHで指定される要素を取り除く関数です。

splice ARRAY,OFFSET,LENGTH

3.参考サイト

参考サイトは下記です。ありがとうございました。

関連記事
トラックバックURL


コメントする
greeting

*必須

*必須(非表示)


ご質問のコメントの回答については、内容あるいは多忙の場合、1週間以上かかる場合があります。また、すべてのご質問にはお答えできない可能性があります。予めご了承ください。

太字イタリックアンダーラインハイパーリンク引用
[サインインしない場合はここにCAPTCHAを表示します]

コメント投稿後にScript Errorや500エラーが表示された場合は、すぐに再送信せず、ブラウザの「戻る」ボタンで一旦エントリーのページに戻り(プレビュー画面で投稿した場合は、投稿内容をマウスコピーしてからエントリーのページに戻り)、ブラウザをリロードして投稿コメントが反映されていることを確認してください。

コメント欄に(X)HTMLタグやMTタグを記述される場合、「<」は「&lt;」、「>」は「&gt;」と入力してください。例えば「<$MTBlogURL$>」は「&lt;$MTBlogURL$&gt;」となります(全て半角文字)