Opened by fred0815 at 2015-04-22 10:15
User since
2013-12-23
33 Artikel
BenutzerIn
2013-12-23
33 Artikel
BenutzerIn
Jetzt habe ich mal dieses Beispiel geschrieben:
ip.pl
ip.php
Aber ich bekomme immer die Antwort: Keine IPv4 Keine IPv6
Da wird doch die IP nicht richtig übergeben, oder ?
Aber der erste Teil der IPv6 taucht in der error.log auf:
syntax error at ... near "2a02"
Can't modify constant item in predecrement....
Last edited: 2015-04-24 10:52:01 +0200 (CEST)
ip.pl
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl -d
use warnings;
use Data::Validate::IP qw(is_ipv4 is_ipv6);
use CGI qw(:standard);
print header();
my $IP = IP;
if (is_ipv4($IP)) {
print "IPv4\n";
}
else {
print "Keine IPv4\n";
}
$IP = IP;
if (is_ipv6($IP)) {
print "IPv6\n";
}
else {
print "Keine IPv6\n";
}
ip.php
Code: (dl
)
1
2
3
4
<?php echo $_SERVER['REMOTE_ADDR'];?>
<form action="/cgi-bin/ip.pl" method="post" enctype="multipart/form-data">
<td><textarea name=IP size=38></textarea></td>
<input type=submit value="Senden">
Aber ich bekomme immer die Antwort: Keine IPv4 Keine IPv6
Da wird doch die IP nicht richtig übergeben, oder ?
Aber der erste Teil der IPv6 taucht in der error.log auf:
syntax error at ... near "2a02"
Can't modify constant item in predecrement....
Last edited: 2015-04-24 10:52:01 +0200 (CEST)