&size(20){Perlあれこれ}; - Perlの小ネタ集です。~
 ~
 #contents();
 ~
 *** 配列の要素数 [#ad9b538f]
 取得の方法は2種類あります。$#配列名とする方法と、配列をスカラーコンテキストで評価する方法です。~
  @data = (100, 110, 120);
  
  # 最後の添字を取得(この場合は2。配列が空の場合は-1)
  $num = $#data;
  
  # 要素数を取得(この場合は3。配列が空の場合は0)
  $num = @data;
 
 *** ファイルの削除 [#e286e4d3]
 unlinkを使用します。
 
  基本的な使い方
  unlink('test01.txt');
  
 
  まとめて削除する場合(その1)
  unlink('test01.txt', 'test02.txt', 'test03.txt');
  
 
  まとめて削除する場合(その2)
  @testfile = ('test01.txt', 'test02.txt', 'test03.txt');
  unlink(@testfile);
  
 
  ワイルドカードを使ってまとめて削除する場合
  unlink(<*.txt>);