Regex insertion

[sil]

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:[email protected]:5060> (from line 1)

Here is my data:

f:"Operations"<sip:
[email protected]:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:[email protected]>
m:<sip:[email protected]:5060;transport=udp>
i:[email protected]
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:"

Maybe...
subst("/From: <sip.*)(@)(.*)/From: <sip:\1\2\3\r\nP-Asserted-
Identity: ?

Is there an alternative say if P-Asserted... was ALWAYS the 13th line

#!/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:";


}

So the packet would read:
f:"Operations"<sip:
[email protected]:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:[email protected]>
m:<sip:[email protected]:5060;transport=udp>
i:[email protected]
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:[email protected]:5060>

 

[Jens Thoms Toerring]

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:[email protected]:5060> (from line 1)

Here is my data:

f:"Operations"<sip:
[email protected]:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:[email protected]>
m:<sip:[email protected]:5060;transport=udp>
i:[email protected]
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:"

So the packet would read:
f:"Operations"<sip:
[email protected]:5060>;tag=3933ee6e1923de3601d9dab88b1dc4bf
t:<sip:[email protected]>
m:<sip:[email protected]:5060;transport=udp>
i:[email protected]
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:[email protected]:5060>

What about something (assuming that the line break in the line
starting with 'f:' is the result of mangling by my newsreader)
as simple as

my $f;
while ( my $line = <> ) {
$f = $1 if $line =~ /^f:[^<]*<(sip:[^>]*)>;/;
$line =~ s/sip:[^>]*/$f/ if $line =~ /^P-Asserted-Identity:/;
print $line;
}
Regards, Jens