|
|
##
my @superContainer;
while($longline =~ /(.+)<\/A.+'status.+>(.+)<\/TD.+nowrap>(.+)<\/TD.+nowrap>(.+s)<\/TD>.+'>(\d\/\d)<\/TD>.+'>(.+)<\/TD>*?/g){
my @subContainer = ($1, $2, $3, $4, $5, $6);
push @superContainer, \@subContainer
}
####
0 ARRAY(0x1e2b628)
0 'Description'
1 'OK'
2 '2015-05-17 01:59:48'
3 '145d 19h 53m 11s'
4 '1/4'
5 'something that shoudn't be published in the Internet;'