テキストの１行目を削除する Perl

Perl

移転しました。

任意テキストファイルの１行目を削除して、新しいファイルに出力するスクリプト

全国統一金融機関コードのＣＳＶの１行目がPostgreSQLのCOPYコマンド使う際に邪魔だったので、
削除するために作成。

http://aporia.ddo.jp/modules/mydownloads/singlefile.php?cid=1&lid=23

ソース

$FILE_PASS = $ARGV[0];
$FILE_OUT_PASS = $ARGV[1];

$cnt = -1;

#ファイルの読み込み
open(IN,"$FILE_PASS");
open(OUT,"> $FILE_OUT_PASS");

while($FILE_STRING = <IN>){
  $cnt++;
  if ($cnt eq 0){
     next;
  }

  print OUT $FILE_STRING
}

# ファイルを閉じます
close(IN);
close(OUT);

使い方

$ perl シェル名 入力ファイル 出力ファイル

例)
$ perl deleteFirstLine.pl hogein.txt hogeout.out