Regex insertion
- From: sil <dsphunxion@xxxxxxxxx>
- Date: Wed, 18 Jul 2007 13:03:28 -0000
I need a regex of sorts that will replace ONLY the line:
P-Asserted-Identity: <sip:+$fU@$tU;user=phone>
with:
P-Asserted-Identity: <sip:19998887777@xxxxxxx:5060> (from line 1)
Here is my data:
f:"Operations"<sip:
19998887777@xxxxxxx:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:12223334444@xxxxxxxxxxxxxxxxxx>
m:<sip:0-d03365c213c46d247564@xxxxxxxxxxx:5060;transport=udp>
i:bf52f59d069087948090769a8a98fcdd-469d50d7@xxxxxxx
CSeq:21796 INVITE
User-Agent: Asterisk PBX
Max-Forwards:16
Date: Tue, 17 Jul 2007 23:29:27 GMT
Allow:INVITE,ACK,CANCEL,OPTIONS,BYE,REFER,SUBSCRIBE,NOTIFY
c:application/sdp
l:289
Remote-Party-ID: <sip:+$fU@$tU>;privacy=off;screen=no
P-Asserted-Identity: <sip:+$fU@$tU;user=phone>
1 will always start with "f:"
New packet should read:
f:"Operations"<sip:
19998887777@xxxxxxx:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:12223334444@xxxxxxxxxxxxxxxxxx>
m:<sip:0-d03365c213c46d247564@xxxxxxxxxxx:5060;transport=udp>
i:bf52f59d069087948090769a8a98fcdd-469d50d7@xxxxxxx
CSeq:21796 INVITE
User-Agent: Asterisk PBX
Max-Forwards:16
Date: Tue, 17 Jul 2007 23:29:27 GMT
Allow:INVITE,ACK,CANCEL,OPTIONS,BYE,REFER,SUBSCRIBE,NOTIFY
c:application/sdp
l:289
Remote-Party-ID: <sip:+$fU@$tU>;privacy=off;screen=no
P-Asserted-Identity: <sip:19998887777@xxxxxxx:5060>
#!/usr/bin/perl
my $sipPacket = 1;
my @packetData = '';
while ( my $line = <> ) {
if ( $line =~ m/^From: <sip.*/ ) {
if ( $sipPacket < 1 ){
pwnPacket(@packetData);
@packetData = '';
}
$sipPacket--;
next;
}
push @packetData, $line;
}
sub pwnPacket {
if ($_[1] =~ /From: <sip.*)(@)(.*)/) {
# Confusion seeps in... How do I insert it into the 13 field...
print "From: <sip:\1\2\3\r\nP-Asserted-
Identity:";
}
.
- Prev by Date: FAQ 4.28 How do I change the Nth occurrence of something?
- Next by Date: Re: catch-ing unsatisfied ``use''
- Previous by thread: Re: Regex insertion
- Next by thread: FAQ 4.28 How do I change the Nth occurrence of something?
- Index(es):
Relevant Pages
|
