Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
To:sanju <sip:san@36.212.176.07>
From: paka<sip:sam@36.212.176.92>
Contact: sanjay<sip:san@36.212.176.07:5060>
  2. or download this
    Contact is <sip:san@36.212.176.07:5060>
To is <sip:san@36.212.176.07>
From is <sip:sam@36.212.176.92>
  3. or download this
    ($field, $data) = $line =~ m/^(\w+).+?(<.+?>)$/