#  Hitachi SVP                               
#  Apache Install tool for Hitachi SVP
#       All Rights Reserved, Copyright (C) 2015-2020,Hitachi, Ltd.
#
# History  :Version    :DATE        : Coder        : Patch No
# Hitachi SVP 
#          :01-00      :2015.01.20  : S.Moriya     : W71D2227901
#          :02-00      :2020.01.27  : T.Yamanaka   : #97547 (Strawberry Perl 5.28.2 is supported) 
#
#
# Document
# Perl version fix
#

open($IN,"< $ARGV[0]");		#読み込みファイル
open($OUT,"> $ARGV[1]");	#書き込みファイル
$VERSION = "";
$ALLVERSION = "";

#一行ずつ読みこむ
while(my $line = readline $IN)
{ 

	if ( $line =~ /v(\d+\.\d+\.\d+)/)
	{
		$VERSION = "Perl version:".$1.".";
	}
	else
	{
	}
	
	if ( $line =~ /Binary build (\d+)/ ) 
	{
		$ALLVERSION = "[".$VERSION.$1."]";
		print $OUT $ALLVERSION;		#書き込み
	}
	else
	{
	}

	if ( $line =~ /strawberry-perl (\d+\.\d+\.\d+.\d+)/ ) 
	{
		$ALLVERSION = "[Perl version:".$1."]";
		print $OUT $ALLVERSION;		#書き込み
	}
	else
	{
	}
} 	
close(IN);
close(OUT);