#!/usr/bin/perl
# 以下は変更する必要なし
#-----------------------------------------------------------------------------
#
# RawHk2txt(version  $Id: eodv,v 1.4 2007/05/22 02:22:33 Exp $) 
#
# RawHkのbinデータをtxtに変換する
# 
# Usage:
# > RawHk2txt.pl RawHk****.txt
#
# options: none
#
# example:
# RawHk2txt.pl RawHk****.txt				#(1)
#
#-----------------------------------------------------------------------------
# Libraries
#use strict;
#use warnings;

my $ver = "hex2float v1.0.0\n";
my $buf	= 0;
my $ch	= 0;
my $pint	= 0;
my $sint	= 0;
my $bnum	= 0;
my $flgc	= 0;
my $str1	= "_temp1.txt";
my $str2	= "_temp2.txt";
my $str3	= "_temp3.txt";
my $str4	= "_temp4.txt";
my $str5	= "_temp5.txt";
my $str6	= "_temp6.txt";
my $filename;
my @dat = ();

for(my $i=0;$i<256;$i++)
{
	for(my $j=0;$j<256;$j++)
  	{
  		$dat[$i][$j] = -1;
  	}
}
#-----------------------------------------------------------------------------
# Code begin
#-----------------------------------------------------------------------------
# オプションがない場合
if ($#ARGV == -1)
{
	print $ver;
	print "Error:ファイル名を指定してください\n";
}
# オプションが1つある場合
if ($#ARGV == 0)
{
	print "Now loading...\n";
	print "$ARGV[0]\n";
	
	## 1.元ファイルを読み込みテキスト変換を行う
	##------------------------------------------------------------------------
	# 対象のファイルオープン
	open IN, "<$ARGV[0]" or die "file open error: $!";
		@line = <IN>;
	close(IN);
	
	## 2.HEX(テキスト)に変換したものを出力する
	##------------------------------------------------------------------------
	$filename = (split(/\./,$ARGV[0]))[0];
  	open OUT,">$filename"."_float.txt" or die "file open error $filename: $!";
	
	# Byte数読み込み
	foreach (@line)
	{
		$h2f = unpack "f", pack "L", hex($_);
		print OUT $h2f;
		print OUT "\n";
  	}
  	close OUT;
}

# オプションが２つある場合
if ($#ARGV == 1){	
}
exit;

#-----------------------------------------------------------------------------
# Sub code begin
#-----------------------------------------------------------------------------
sub show_usage()
{
 print "Usage:\n";
 print "> RawHk2dssline.pl [-h]\n";
 print "\n";
 print "options:\n";
 print "         -h : 利用方法を提示する\n";
 print "\n";
 print "example:\n";
 print "RawHk2dssline.pl -h                         #(1) HELP\n";
}