#!/usr/bin/perl
# 以下は変更する必要なし
#-----------------------------------------------------------------------------
#
# csv2srs (version  $Id: eodv,v 1.4 2007/05/22 02:22:33 Exp $) 
#
# SRSの算出
# 
# Usage:
# > csv2srs.pl hogehoge.csv 
#
# options:
#         特に無し
#
# example:
# csv2srs.pl hogehoge.csv                                #(1)
#
#-----------------------------------------------------------------------------
# Libraries

#-----------------------------------------------------------------------------
# Code begin
#-----------------------------------------------------------------------------
($opt) = @ARGV; 
 if ($opt eq "-h") {
    &show_usage();
    exit;
}

# オプションがない場合
if ($#ARGV == -1){
	print "Error:ファイル名を指定してください\n";
}
# オプションが１つある場合
if ($#ARGV == 0){
	# 対象ファイルのオープン
open(IN,"<$ARGV[0]") || die "Error: can't open $ARGV[0]\n";
	@line = <IN>;
close(IN);
	
# ヘッダ削除
	$cnt = -1;
	foreach (@line){
	# ヘッダ情報を飛ばす
	if ($cnt == -1){$cnt++; next;}

	# csv置換
	$log = $_;
	$log =~ s/S31566[a-zA-Z0-9][a-zA-Z0-9][a-zA-Z0-9][a-zA-Z0-9][a-zA-Z0-9][a-zA-Z0-9]//g;
	$log =~ s/\r\n//g;

	print $log;
	
	# インクリメント処理
	$cnt++;
	}

}
# オプションが２つある場合
if ($#ARGV == 1){	
}
exit;
#-----------------------------------------------------------------------------
# Sub code begin
#-----------------------------------------------------------------------------
sub show_usage()
{
  print "Usage:\n";
  print "> eodv [-h]\n";
  print "\n";
  print "options:\n";
  print "         -h : 利用方法を提示する\n";
  print "      -make : Level-2を更新する\n";
  print "\n";
  print "example:\n";
  print "eodv -h                         #(1) HELP\n";
}

