in reply to Re^3: multiple values per key
in thread multiple values per key

if (m/^###|^\s*$/s) {

should be:

if (m/^###|^\s*\$/s) {

You need to quote $ because it's the "end of line" match meta character.

It would help to diagnose such problems if you tested your subsequent match and print a diagnostic if it fails:

unless (m{(^SIP\/2\.0 \d\d\d|^[A-Z]{3,6} ).*(Call-ID: [\S]{25,80}) +[^ ]+: .*}s) { print "No match: $_\n"; next; }

DWIM is Perl's answer to Gödel

Replies are listed 'Best First'.
Re^5: multiple values per key
by convenientstore (Pilgrim) on Jul 23, 2007 at 01:18 UTC
    thanks. that certainly is better alternative.. I just need to now figure out why tiny portion is no match.. everything else runs fine.. and does its job