Thread IP-Nummer aus SIP-URI (9 answers)
Opened by cohama at 2014-03-28 14:17

GwenDragon
 2014-03-31 15:22
#174553 #174553
User since
2005-01-17
14789 Artikel
Admin1
[Homepage]
user image
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)

View full thread IP-Nummer aus SIP-URI