10 Einträge, 1 Seite |
my $line = "r lefkada ONT1/PexAjIouJXqVu3n1czcrzI RWKWxLm5zstW/apfv/SmIzW/SJY 2007-07-24 10:28:03 140.247.60.64 443 80";
$line =~ /^r\s(.*?)\s\s\s\s\s(.*?)\s(.*?)$/;
^r\s+(\S+)
\s(?:\d{1,3}\.){3}\d{1,3}\s
\s(?:\d{1,3}\.){3}\d{1,3}\s
1
2
3
my $octet = q/(?:25[0-5]|2[0-4][0-9]|[0-1]?[0-9]{1,2})/;
my $ipaddr = qr/^($octet\.$octet\.$octet\.$octet)\z/;
my $ports = qr/^(6553[0-5]|655[0-2][0-9]|65[0-4][0-9]{2}|6[0-4][0-9]{3}|[0-5]?[0-9]{4}|[0-9]{2,4}|[1-9])\z/;
10 Einträge, 1 Seite |