Thread TCP Port von AVM Fritzbox auslesen? (3 answers)
Opened by kami at 2010-03-17 07:30

bianca
 2010-03-17 07:58
#134963 #134963
User since
2009-09-13
7016 Artikel
BenutzerIn

user image
Hast Du mal versucht, vor dem Einlesen mittels while ( <$remote> ) den Zeilentrenner $/ zu verändern?
Wenn Du die Ausgabe der Fritzbox in einem Hexeditor anschaust, welchen Zeilentrenner findest Du da?
Unfug.

Aber was mir aufgefallen ist:
mit while ( <$remote> ) hast Du die Zeile eigentlich schon in $_. Ein $line = <$remote>; bringt dann keine Ergebnisse mehr.

Schau Dir bitte mal das Beispiel auf
Anrufmonitor an.

Code (perl): (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

#!/usr/bin/perl -w
use strict;
use warnings;

my $remote = <<__INPUT__;
08.03.10 20:37:35;RING ;0;017100000;3100000;SIP0;
08.03.10 20:37:40;DISCONNECT ;0;0;
09.03.10 07:40:09;RING;0;017100000;3100000;SIP0;
09.03.10 07:40:14;CONNECT;0;0;017100000;
09.03.10 07:40:25;DISCONNECT;0;6;
09.03.10 07:41:05;CALL;0;0;3100000;017100000;SIP0;
09.03.10 07:41:22;DISCONNECT;0;0;
09.03.10 07:41:37;CALL;0;0;3100000;017100000;SIP0;
09.03.10 07:41:46;CONNECT;0;0;017100000;
09.03.10 07:41:54;DISCONNECT;0;7;
__INPUT__

foreach (split /\n/,$remote) {
        my @anruf = split (/;/,$_);
        print "$anruf[0] ";
        if ($anruf[1] =~/RING/) {
                print "Ankommend\n";
        }
        else {
                print "no\n";
        }
}

Last edited: 2010-03-17 08:17:14 +0100 (CET)
10 print "Hallo"
20 goto 10

View full thread TCP Port von AVM Fritzbox auslesen?