Thread Wert in Datei schreiben IPv6 (20 answers)
Opened by fred0815 at 2015-04-22 10:15

Linuxer
 2015-04-24 14:00
#180805 #180805
User since
2006-01-27
3875 Artikel
HausmeisterIn

user image
Hi,

in Zeile 1112: hier verwendest Du $IP; diese Variable ist aber zu diesem Zeitpunkt noch nicht mal deklariert. Du willst doch wahrscheinlich die übergebene Adresse prüfen; die steht aber in $param_IP. Also solltest Du diese Variable auch hier verwenden (anstatt $IP)

in Zeile 18, 19, 20: Hier wird $IP endlich deklariert, aber mit einem "Bareword" IP gefüllt. Wozu? Raubtier schrieb doch schon was dazu. Auch hier gilt die Vermutung, dass Du doch die übergebene Adresse prüfen willst; also nutze sie auch. Schmeiß Zeile 1819 raus und ersetze in Zeile 1920 $IP mit $param_IP .

Ergebnis:

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

#!/usr/bin/perl
use strict;
use warnings;
use Data::Validate::IP qw(is_ipv4 is_ipv6);
use CGI qw(:standard);
print header();

my $cgi = CGI->new;
my $param_IP = $cgi->param('IP');


if (is_ipv4($param_IP)) {
        print "IPv4\n";
}
else {
        print "Keine IPv4\n";
}

if (is_ipv6($param_IP)) {
        print "IPv6\n";
}
else {
        print "Keine IPv6\n";
}


[edit]Zeilennummern angepasst
Last edited: 2015-04-24 14:05:42 +0200 (CEST)
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!

View full thread Wert in Datei schreiben IPv6