#  product.pl

use strict;
use HTML::Template;

my(%t,@fld,$n,$template,@loop);

while(<DATA>){
    if (/^TITLE/) {
        chop;
        @fld = split(/==>/);
        $t{title} = $fld[1];
        $t{name} = $fld[2];
    }
}

$t{inputf} = 'main_' . $t{name} . '_order2.txt';

$template = HTML::Template->new(filename => "sample.htm");
@loop = ();

$t{htmfile} = $t{name} . '.htm';

open(IN,"$t{inputf}") or die "Can't open the file $t{inputf}";
$t{NO} = 0;
while(<IN>){
    next if $. == 1;
    next if length($_) < 2;
    chop;
    @fld = split(/==>/);
    $t{NO}++;
    my %row = (
            NO => $t{NO},
            E1 => $fld[1]
    );
    push(@loop, \%row);
}
close(IN);

$template->param(title => $t{title});

$template->param(std_loop => \@loop);
open(OUT,">$t{htmfile}");
print OUT $template->output;
close(OUT);

print "The output file is $t{htmfile}\n";

__DATA__
#TITLE==>Main Ship Equipments==>name1
#TITLE==>Equipment Types==>type1
TITLE==>Main Marine Manufacturers==>maker1