Not sure how to answer this, could you please give more information?
> With the sample input data (on the far bottom) the return value should
> be CELL 20 in Column 1 with 2 Counts of CDM HEH in the third column.
Is not sufficient for me.
On Fri, Oct 14, 2011 at 10:08 PM, Chris Stinemetz
<chrisstinem...@gmail.com> wrote:
> Hello,
>
> I am trying to create a Perl script that will scan a file using regex
> to match certain patterns and return uniq names and the total count of
> each match.
>
> With the sample input data (on the far bottom) the return value should
> be CELL 20 in Column 1 with 2 Counts of CDM HEH in the third column.
>
> So far I have two scripts. I am using one to allocate the subroutines
> for each type of regex match, and the other script will call the
> routines and populate the table that I am trying to create.
>
> I think once I figure out how to handle the first subrountine I should
> be able to get the rest, but I can't seem to wrap my head around it.
>
> Thanks in advance,
>
> Chris
>
> My scripts thus far:
>
> heh.pl
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> requuire "heh.lib";
>
> # my $filepath =
> sprintf("/omp/omp-data/logs/OMPROP1/%s.APX",strftime("%y%m%d%H",localtime));
> my $filepath = ("/tmp/110923.APX"); # for testing
>
> my $runTime =
> sprintf("/home/cstinemetz/programs/%s.txt",strftime("%Y-%m-%d-%H:%M",localtime));
>
> my $fileDate = strftime("%y%m%d%H%",localtime);
>
> open my $fh, '<', $filepath or die "ERROR opening $filepath: $!";
> open my $out, '>', $runTime or die "ERROR opening $runTime: $!";
>
> while(<$fh>) {
> if (/,HEH/);
> }
>
> print $out form
> " ^>>>>>> HR 17-21 HEH Report @<<<<<<<<<<<<<<<<<<",
>
> " Cell CBR CDM1 CDM2 CDM3 TFU1 TFU2
> CCU EVM TXAMP CTRM ",
> "--------- -------- -------- --------- --------- -------- ---------
> -------- -------- -------- --------";
>
>
>
>
>
> heh_lib.pl
>
> #!/usr/bin/perl
>
> use warnings;
> use strict;
>
> sub getCell {
> my $str = "REPT:CELL, HEH";
> }
>
> input file:
>
> 10/13/11 00:00:57 #023342
>
> 00 REPT:CELL 20 CDM 1, CRC, HEH
> SUPPRESSED MSGS: 0
> ERROR TYPE: ONEBTS MODULAR CELL ERROR
> SET: DS1-MLG ASSOCIATION CHANGE
> MLG 1 DS1 1,2
>
> 00 00 00 00 00 00 00 00
> 03 00 00 00 00 00 05 05
> 05 05 05 05
>
>
>
> 10/13/11 00:00:58 #023345
>
> 00 REPT:CELL 20 CDM 1, CRC, HEH
> SUPPRESSED MSGS: 0
> ERROR TYPE: ONEBTS MODULAR CELL ERROR
> SET: MLG BANDWIDTH CHANGE
> MLG 1 BANDWIDTH = 3072
>
> 00 00 0C 00 00 00 00 00
> 00 00 00 00 00 00 00 00
> 00 00 00 00
>
>
>
> 10/13/11 00:00:59 #023346
>
> 00 REPT: EVDO: RNC 20 CP FAILURE SUMMARY CONNECTION RELEASE
> MAI OR FDI NOT RECEIVED, ERROR CODE 40000
> BTS VAR, BAND CLASS 1, CHANNEL 1175, SECTOR VAR
> TOTAL MESSAGES FOR 30-MINUTE INTERVAL: 9
> SERVICE NODE 19, TP 310
> IMSI VAR, HW TYPE 00ffff, HW ID VAR
> UATI VAR
> PERCEIVED SEVERITY: WARN
> 2011-10-13 00:01:41 REPORT #000001 FINAL
>
> --
> To unsubscribe, e-mail: beginners-unsubscr...@perl.org
> For additional commands, e-mail: beginners-h...@perl.org
> http://learn.perl.org/
>
>
>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
