MSG_ID_CELL_INFO_PRINT sn=1 cellid=2;
MSG_ID_CAMP_RSP sn=2 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=3 cellid=5;
MSG_ID_CELL_INFO_PRINT sn=5 cellid=2;
MSG_ID_CAMP_RSP sn=6 cellid=4;
MSG_ID_CAMP_RSP sn=8 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=10 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=11 cellid=5;
MSG_ID_CAMP_RSP sn=12 cellid=2;
MSG_ID_CAMP_RSP sn=14 cellid=3;
MSG_ID_CELL_CAMP_REQ sn=15 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=16 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=17 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=18 cellid=2;
MSG_ID_CAMP_RSP sn=19 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=20 cellid=5;
MSG_ID_CELL_INFO_PRINT sn=21 cellid=2;
MSG_ID_CAMP_RSP sn=22 cellid=4;
MSG_ID_CAMP_RSP sn=23 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=24 cellid=2;
MSG_ID_CELL_CAMP_REQ sn=25 cellid=2;
####
MSG_ID_CELL_INFO_PRINT sn=1 cellid=2;
MSG_ID_CAMP_RSP sn=2 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=3 cellid=5;
MSG_ID_CELL_INFO_PRINT sn=5 cellid=2;
MSG_ID_CAMP_RSP sn=6 cellid=4;
MSG_ID_CAMP_RSP sn=8 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=10 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=11 cellid=5;
MSG_ID_CAMP_RSP sn=12 cellid=2;
MSG_ID_CAMP_RSP sn=14 cellid=3;
MSG_ID_CELL_CAMP_REQ sn=15 cellid=2;
####
MSG_ID_CELL_INFO_PRINT sn=16 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=17 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=18 cellid=2;
MSG_ID_CAMP_RSP sn=19 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=20 cellid=5;
MSG_ID_CELL_INFO_PRINT sn=21 cellid=2;
MSG_ID_CAMP_RSP sn=22 cellid=4;
MSG_ID_CAMP_RSP sn=23 cellid=2;
MSG_ID_CELL_INFO_PRINT sn=24 cellid=2;
MSG_ID_CELL_CAMP_REQ sn=25 cellid=2;
####
my $str = shift; #the data showed in the above
my $beg = "MSG_ID_CELL_INFO_PRINT";
my $end = "MSG_ID_CELL_CAMP_REQ";
my $key1 = "cellid=";
my $key2 = ";";
while ($str =~ m/$beg.*?$key1(\d+)(.*?)$end(.*?)$key1(\d+)/g) {
my $info_cell = $2;
my $camp_cell = $4;
if ($info_cell ne $camp_cell) {
my $cell_info = $beg.$1.$key1.$2.$end;
while ($cell_info =~ m/$beg(.*?)$key2/g) {
my $print_info = $1;
print FILEOUT "$beg.$print_info";
}
}
}