Perlで配列の要素を削る
たとえば、CSVデータとして出力するときに、列数を任意の数に合わせるため、処理中の配列の要素を削りたい場合が、あったりします。
配列の要素を削るには、以下のように最大インデックスを保持する『$#all_tbl』へ、それより小さい値を代入すると、それが最大インデクスになり、結果的に要素を削ることになるのです。
use strict; use warnings; my @all_tbl = ("aaa", "bbb", "ccc", "ddd"); print "最大インデクスは、$#all_tblです。\n"; print @all_tbl, "\n"; # aaabbbcccdddと表示 $#all_tbl = 2; print "最大インデクスは、$#all_tblです。\n"; print @all_tbl, "\n"; # aaabbbccと表示