$blank
',
EOT
if ($i eq 0){
# $sample_info .=<<"EOT";
#
#EOT
$a1 .=<<"EOT";
EOT
$a2 .=<<"EOT";
EOT
}
$a1 .=<<"EOT";
|
EOT
$a2 .=<<"EOT";
$comment |
EOT
# $sample_info .=<<"EOT";
#$comment |
#EOT
$i++;
if ($i eq 4){
$a1 .=<<"EOT";
EOT
$a2 .=<<"EOT";
EOT
# $sample_info .=<<"EOT";
#
#EOT
$sample_info .=<<"EOT";
$a1
$a2
EOT
$a1 = "";
$a2 = "";
$i = 0;
}
}
$k++;
}
chomp $out{'sample_dat'};
chop $out{'sample_dat'};
# $out{'sample_dat'} =~ s/\n//g;
# $out{'sample_dat'} =~ s/\x0D\x0A|\x0D|\x0A//g;
if ($i ne 0){
for($x=$i;$x<=4;$x++){
# $sample_info .=<<"EOT";
#
|
#EOT
$a1 .=<<"EOT";
|
EOT
$a2 .=<<"EOT";
|
EOT
}
}
$sample_info .=<<"EOT";
$a1
$a2