Perl ile bir IP adresinin IPV4 uyumluluğunun kontrolü

Perl ile yazdığınız script içinde alttaki basit SUB ile bu kontrolü yapmanız mümkün.

sub checkIPformat {

    my ($ip) = @_;
    my $ipformat = 0;

    if($ip=~ m/^(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)\.(\d\d?\d?)/ && ( $1 <= 255 && $2 <= 255 && $3 <= 255 && $4 <= 255 )) {  
        $ipformat=1; #1 is ok
    }
    return $ipformat;
}