IP-Nummer aus SIP-URI (gelöst) (Allgemeines zu Perl)

[thread]18999[/thread]

IP-Nummer aus SIP-URI [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 17

Articles: hide open all | hide show old branches

+10 replies
cohama

2014-03-28 14:17

User since
2011-08-16
102 Artikel
BenutzerIn

Hallo zusammen,

ich bin im Moment damit beschäftigt eine SIP-URI in seine Bestandteile auf zuteilen.

Als Eingabe habe ich eine Log-Datei eines Call-Servers.

SIP-URI: Contact: sip:0301886677@192.168.2.1 To: sip:0301996777@192.168.2.1

Hieraus benötige ich die Rufnummer in einen Array und die IP.
Ich brauche eine Array das dieses Format am Ende hat.

Contact-Rufnummer,Contact-IP,To-Rufnummer,To-IP

Vielen Dank
Last edited: 2014-03-28 14:43:06 +0100 (CET)
- +9 replies
- Linuxer
  
  2014-03-28 15:41
  
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  
  Ich denke, dass die Einträge zeilenweise vorliegen? Dann Vorschlag:
  
  - Zeilenweises Einlesen
  - split() auf die Zeile an Pattern: \s*\S+:\s+sip:|@
  - split Ergebnis einem Array zuweisen
  - 1. leeres Feld entfernen
  - Array verarbeiten.
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +8 replies
  - cohama
    
    2014-03-31 09:52
    User since
    2011-08-16
    102 Artikel
    BenutzerIn
    
    Hallo linuxer,
    
    vielen Dank für deinen Tipp.
    Leider steht in meinem Array nichts drin. :-(
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
    
    #!/usr/bin/perl -w ######################## # Modul Definition ######################### use strict; use DateTime; ########################## # Parameter Definition ######################### my $ct=1; my $tstamp = DateTime->now->set_time_zone('Europe/Berlin'); # Find the Timestamp my $mydate = $tstamp->ymd; my $iFile = "./workspace/Testfile.log"; my ($line,$info); my (@dataArray,@Array2); ########################## ########################## system("clear"); if ( -e $iFile ){ print "$iFile existiert \n"; open (iFile,"<$iFile") || die $!; } while ($line=<in>){ @dataArray = split(/\s*\S+:\s+sip:|@/,$line); # shift (@dataArray); # erstes Elemement aus Array löschen # print scalar(@dataArray); # Ausgabe des Array-Inhaltes } print join("\n",@dataArray); # Ausgabe des Array-Inhaltes
    
    Bye
    - +2 replies
    - GwenDragon
      
      2014-03-31 10:22
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Ein Fehler, der mir auffiel.
      
      Zeile 22 zeigt das Öffnen der Datei:
      open (iFile,"<$iFile") || die $!;
      Zeile 24 liest aber nicht über das Dateihandle iFile sondern in
      while ($line=<in>){
      
      Also wohl eher in Zeile 22:
      open (in,"<$iFile") || die $!;
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - cohama
        
        2014-03-31 10:29
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo Community,
        
        vielen Dank für den Hinweis GwenDragon. Jedoch ist es nicht der Grund für
        das leere Array.
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
        
        #!/usr/bin/perl -w ######################## # Modul Definition ######################### use strict; use DateTime; ########################## # Parameter Definition ######################### my $ct=1; my $tstamp = DateTime->now->set_time_zone('Europe/Berlin'); # Find the Timestamp my $mydate = $tstamp->ymd; my $iFile = "./workspace/Testfile.log"; my ($line,$info); my (@dataArray,@Array2); ########################## ########################## system("clear"); if ( -e $iFile ){ print "$iFile existiert \n"; open (iFile,"<$iFile") || die $!; } while ($line=<iFile>){ @dataArray = split(/\s*\S+:\s+sip:|@/,$line); # shift (@dataArray); # erstes Elemement aus Array löschen # print scalar(@dataArray); # Ausgabe des Array-Inhaltes } print join("\n",@dataArray); # Ausgabe des Array-Inhaltes
    - +5 replies
    - GwenDragon
      
      2014-03-31 10:44
      
      User since
      2005-01-17
      14748 Artikel
      Admin1
      
      Das Problem ist in deiner Einleseschleife.
      Du überschreibst jedesmal das Array aus dem du später leist.
      Du musst die gesplittete Zeile erst zwischenspeichern.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6
      
      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 push @dataArray,@arr; # Daten für spätere Verarbeitung speichern }
      
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
      - +4 replies
      - cohama
        
        2014-03-31 12:02
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo GwenDragon,
        
        vielen Dank für dein Hinweis. Nachdem das Script nun die tausenden Zeilen verarbeitet, ist mir aufgefallen, dass ein paar Daten auch nach der IP enthalten sind.
        Ich habe bereits so etwas wie
        
        Code: (dl )
        
        $line =~ s/[0-9].*$//g;
        
        versucht, damit das Script nach der IP alles löscht.
        
        Sprich, ich benötige einerseits die IP aus der SIP-URI zurück bekommen.
        und andererseits die Rufnummer.
        Last edited: 2014-03-31 12:05:51 +0200 (CEST)
        
        +3 replies
        
        GwenDragon
        
        2014-03-31 14:13
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        2014-03-31T10:02:56 cohama
        Nachdem das Script nun die tausenden Zeilen verarbeitet, ist mir aufgefallen, dass ein paar Daten auch nach der IP enthalten sind
        Und wie sieht das dann aus? Wo sind die Daten extra nach der IP?
        In der Eingabedatei oder in Einträgen von @dataArray?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +2 replies
        
        cohama
        
        2014-03-31 14:58
        
        User since
        2011-08-16
        102 Artikel
        BenutzerIn
        
        Hallo GwenDragon,
        
        vielen Dank für dein Engagement.
        Die Information die ich nicht benötige, treten in der Ausgangsdatei, dadurch im Array und nachher in der Resultatsdatei auf.
        
        Als Beispiel steht in der Resultatsdatei:
        
        Code: (dl )
        
        1 2 3 4
        
        213.220.151.209:5060;transport=udp;uniq=8DDB8672AB2E885DBF977B4BDF12D>;expires=441 213.220.145.46:5060;transport=udp;uniq=622078979A122CE3E851797110E4D>;expires=1483 82.193.250.177:5060;transport=udp>;expires=1389 213.220.145.202:5060;transport=udp;uniq=C8D2B0559FA6353D678E05992589E>;expires=476
        
        In diesen Fällen soll alles nach der IP gelöscht werden. Sodass die Resultatsdatei nur die IPs enthält.
        
        Code: (dl )
        
        1 2 3 4
        
        213.220.151.209 213.220.145.46 82.193.250.177 213.220.145.202
        
        Vielen Dank
        
        GwenDragon
        
        2014-03-31 15:22
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        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)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2014-03-28 14:17.