First, thank you, everyone, for your tips, suggestions, etc.
I'm getting extremely frustrated which isn't helping solve anything. Here's my latest bit of code.
{ open my $textfile, '<', 'C:\Users\msmolik\Desktop\PERL test stuff\tes +tfile.log' or die $!; while ( my $line =~ m/ccParty<(.+)> DTMF<(.+)>/ ) { print "$line\n"; } } { close $textfile; }
This returns nothing:
C:\Users\msmolik\Desktop\PERL test stuff>testingperl.pl C:\Users\msmolik\Desktop\PERL test stuff>
I've shortened my data file to 5 lines which contains 2 lines (the first and last) that "should" match my search. My data file contains the following lines:
2011-12-21 00:23:06.904520%%0f-1f-16%%DB1%% ccParty<0x31A99> Port<1-14 +-7-22> DTMF<4> 2011-12-21 00:21:57.729881%%0f-1f-15%%TRF%% Received event <lmevtVOICE +_PATH_MODE_CHANGE> cc<lmccSTATE_CHANGED> R<otLIF_PORT:0x4107003> D<ot +PARTY_OBJECT:0x80B4B> T<otUNKNOWN:0x0> SRC<otLIF_PORT:0x4107003> Addr +<01-15-0c> 2011-12-21 00:23:06.904667%%0f-1f-16%%DB2%% ccParty<0x31A99> next CF<2 +1> 2011-12-21 00:23:06.904765%%0f-1f-16%%DB2%% ccParty<0x31A99> CF<21> I< +0> 2011-12-21 00:24:20.423024%%0f-1f-16%%DB1%% ccParty<0x31A9A> Port<1-14 +-7-23> DTMF<4>
At this point I'm done. I have to take a timeout or I'll just leave this endeavor because I'm so frustrated.
In reply to Re^3: Perl = Greek to me
by smolikmd
in thread Perl = Greek to me
by smolikmd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |