
Stefanik
User
Jan 12, 2013, 7:22 AM
Views: 2042
|
|
Re: [rovf] Match characters in middle and end string
|
|
|
The new code:
if ($qpar =~ (/SUB:.*?[^;]$/m)){print(Dumper($qpar),"\n");} here the new output:
$VAR1 = 'SET:TESTSUB:TRANSID,t1:NUM,458:PARAMETERS,other; '; $VAR1 = 'GET:TESTSUB:TRANSID,t2: '; $VAR1 = 'SET:TESTSUB:TRANSID,t3:NUM,458:PARAMETERS,other;NO ';
(This post was edited by Stefanik on Jan 12, 2013, 7:27 AM)
|