use strict;
use warnings;
my $data = qq{
Welcome to ATCA Booking and managment system
Chassis information and detail
| No | version | Chassis | Assigned | CMMIP1 | CMMIP2 | CMM1
SerialPortConnection | CMM2
SerialPortConnection | Ibootbar_Altusen |
};
# Open db for reading -- but die if there's an error
open(INFO, "data2.txt") or die "Failed to open 'data2.txt' ($!)\n";
my @array = ;
close (INFO);
my @ascend=sort(@array);
my $i = 1;
foreach my $line (@ascend){
my ($version, $okok) = split(/\|/,$line);
$data .= qq{
| $i
|
$version
|
};
++$i;
}
print "DATA:\n $data\n";