2000/06/19 15:22:13 NIB1_BSX Communications Alarm Critical OMC and equipment Connection broken
2000/06/19 15:22:15 NIB1_MSC Communications Alarm Critical OMC and equipment Connection broken and up
2000/06/19 16:03:25 [1]NIB1_MSC.0.0.3.0 Communications Alarm Minor E1 Port Receive Carrier Loss
this output : (?)
2000/06/19 15:22:13 NIB1_BSX Communications Alarm Critical OMC and equipment
2000/06/19 15:22:15 NIB1_MSC Communications Alarm Critical OMC and equipment
2000/06/19 16:03:25 [1]NIB1_MSC.0.0.3.0 Communications Alarm Minor E1 Port Receive C
####
substr($line, 99, 10000000,"");
##
##
#!/usr/bin/perl -w
use strict;
foreach () {
substr($_,99,10000000,"");
print "$_\n";
}
__DATA__
2000/06/19 15:22:13 NIB1_BSX Communications Alarm Critical OMC and equipment Connection broken
2000/06/19 15:22:15 NIB1_MSC Communications Alarm Critical OMC and equipment Connection broken and up
2000/06/19 16:03:25 [1]NIB1_MSC.0.0.3.0 Communications Alarm Minor E1 Port Receive Carrier Loss