use strict; use warnings; while (<DATA>) { if (m/ccParty<(.*?)> Port<(.*?)> DTMF<(.*?)>/) { print "Matched values $1 $2 $3\n"; print; } } __DATA__ 2011-12-21 00:24:20.422318%%0f-1f-15%%TRF%% Received event <lmevtPORT_ +DIGIT_PATTERN_MATCH> cc<lmccSTATE_CHANGED> R<otLIF_PORT:0x4E06016> D< +otPARTY_OBJECT:0x80B4D> T<otUNKNOWN:0x0> SRC<otLIF_PORT:0x4E06016> Ad +dr<01-15-0c> 2011-12-21 00:24:20.422888%%0f-1f-16%%TRF%% Received event <paevDIGIT_ +PATTERN_RECEIVED> cc<0x0> R<otPARTY_OBJECT:0x80B4D> D<otCC_PARTY_OBJE +CT:0x31A9A> T<otUNKNOWN:0x0> SRC<otPARTY_OBJECT:0x80B4D> Addr<01-15-1 +5> 2011-12-21 00:24:20.423024%%0f-1f-16%%DB1%% ccParty<0x31A9A> Port<1-14 +-7-23> DTMF<4> 2011-12-21 00:24:20.423138%%0f-1f-16%%DB2%% ccParty<0x31A9A> next CF<2 +1> 2011-12-21 00:24:20.423229%%0f-1f-16%%DB2%% ccParty<0x31A9A> CF<21> I< +0>
In reply to Re: Perl = Greek to me
by TJPride
in thread Perl = Greek to me
by smolikmd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |