Warning: Undefined array key "action" in /home/bakers/html/entryreply.php on line 5

Warning: Undefined variable $output in /home/bakers/html/entryreply.php on line 50

Warning: Undefined array key "EntrySubject" in /home/bakers/html/entryreply.php on line 51

Warning: Undefined variable $logintext in /home/bakers/html/entryreply.php on line 97

Warning: Undefined variable $reply_name in /home/bakers/html/entryreply.php on line 103

Warning: Undefined variable $reply_email in /home/bakers/html/entryreply.php on line 104
Perturb.org - interesting technology related things from around the internet

Perlfunc: extract_ip()

Pull an IP address from a string of text.

sub extract_ip {
        my $txt = shift();

        # 4 octets surrounded by some word boundary
        if ($txt =~ /\b((\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3}))\b/) {
                if ($2 > 255 || $3 > 255 || $4 > 255 || $5 > 255) { return ''; }

                return $1;
        }

        return '';
}


Note: Replies will be formatted with PHP Markdown Extra syntax.

Name: Email (Not Required):
 
Logged IP: 3.227.235.216
To prevent spam please submit by clicking the kitten: