#!/usr/bin/perl
#replace_selected

use strict;
use Encode qw(from_to);

my $inText = $ARGV[1];
&from_to( $inText, 'utf-8', 'euc-jp' );	#'shiftjis' 'utf-8'

my @lines = split( /\r/, $inText );


my @trArray	= ();
my $lineIndex	= -1;


foreach my $line ( @lines )
{
	$lineIndex++;
	
	&addTRItem( \@trArray, $line, $lineIndex );	
}


my @tableArray	= ();
push( @tableArray, '<table border="1">' );
foreach my $itemArrayRef ( @trArray )
{
	foreach my $item ( @$itemArrayRef )
	{
		$item	= "\t$item";
	}
	
	push( @tableArray, "<tr>" );
	push( @tableArray,  @$itemArrayRef );
	push( @tableArray, "</tr>" );
}
push( @tableArray, "</table>" );

my $outText	= join( "\n", @tableArray );
&from_to( $outText, 'euc-jp', 'shiftjis' );
print $outText;

#-------

sub addTRItem
{
	my $inTRItemArrayRef 	= shift;
	my $inLine				= shift;
	my $inLineIndex			= shift;
	
	my @resultArray	= ( );
	
	my @itemArray	= split( "\t", $inLine );
	
	my $itemIndex	= -1;
	foreach my $item ( @itemArray )
	{
		$itemIndex++;
		
		my $tag	= "td";
		if( $item eq '同上' )
		{
			&addRowspan( $inTRItemArrayRef, $itemIndex );
			push( @resultArray, "<!-- 同上 -->" );
			next;
		}
		elsif( $item eq '同左' )
		{
			&addColspan( \@resultArray );
			push( @resultArray, "<!-- 同左 -->" );
			next;
		}
		elsif( $item =~ /^\*(.+)/ )
		{
			$tag	= "th";
			$item	= $1;
		}
	
		push( @resultArray, "<$tag>$item</$tag>" );
	}
	
	push( @$inTRItemArrayRef, \@resultArray );
}

sub addRowspan
{
	my $inTRArrayRef	= shift;
	my $inItemIndex		= shift;
	
	my $theTRIndex;
	for( $theTRIndex = $#$inTRArrayRef ; $theTRIndex > 0 ; $theTRIndex )
	{
		my $arrayRef	= $$inTRArrayRef[ $theTRIndex ];
		unless( $$arrayRef[ $inItemIndex ] =~ m/^<!-- / )
		{
			last;
		}
	}
	
	my $item = $$inTRArrayRef[ $theTRIndex ][ $inItemIndex ];
	if( $item =~ m!<\w+.*?rowspan="(\d+)".*?>.*?</\w+>! )
	{
		my $newSpan	= $1 + 1;
		$item =~ s!(<\w+.*?rowspan=")\d+(".*?>.*?</\w+>)!$1$newSpan$2!;
	}
	else
	{
		$item =~ s!(<\w+)\s?(.*?>.*?</\w+>)!$1 rowspan="2"$2!;
	}
	
	$$inTRArrayRef[ $theTRIndex ][ $inItemIndex ]	= $item;
}

sub addColspan
{
	my $inTDArrayRef	= shift;
	
	my $theIndex;
	for( $theIndex = $#$inTDArrayRef ; $theIndex > 0 ; $theIndex-- )
	{
		unless( $$inTDArrayRef[ $theIndex ] =~ m/^<!-- /  )
		{
			last;
		}
	}
	
	my $item = $$inTDArrayRef[ $theIndex ];
	if( $item =~ m!<\w+.*?colspan="(\d+)".*?>.*?</\w+>! )
	{
		my $newColspan	= $1 + 1;
		$item =~ s!(<\w+.*?colspan=")\d+(".*?>.*?</\w+>)!$1$newColspan$2!;
	}
	else
	{
		$item =~ s!(<\w+)\s?(.*?>.*?</\w+>)!$1 colspan="2"$2!;
	}
	
	$$inTDArrayRef[ $theIndex ]	= $item;
}