Thread IP-Nummer aus SIP-URI
(9 answers)
Opened by cohama at 2014-03-28 14:17 Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 while ($line=<iFile>){ chomp $line; # Zeilenende entfernen my @arr = split(/\s*\S+:\s+sip:|@/,$line); # Daten in Array zwischenspeichern shift @arr; # Datum SIP-URI wegwerfen @arr = map { # in ein Array mappen s/:.+$//; # Alles vom : bis Zeilenende entfernen $_; # Wert aus map weiterreichen } @arr; # altes Arrayinhalt push @dataArray,[ @arr ]; # Daten für spätere Verarbeitung speichern } print "Contact-Rufnummer,Contact-IP,To-Rufnummer,To-IP", "\n"; print "$_\n" for map { join ',',@$_ } @dataArray; Editiert von GwenDragon: Modifizierer g in s/// entfernt Last edited: 2014-03-31 15:26:53 +0200 (CEST) |