Apologies: I'm aware that these lines are much too long, unfortunately, you can't really see the structure of the data if I wrap them.
I've reformatted your question and it looks like what you're actually trying is to limit the string to 100 chatracters, like this :
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
you can use the substr function
substr($line, 99, 10000000,"");
should do what you want.
#!/usr/bin/perl -w
use strict;
foreach (<DATA>) {
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
|