Мне нравится этот ... почти как у Стива Хайдуцко, но я использую цитату reg ex which rooooock!
my $ip = '120.140.255.254'; # for example
my $ipno = qr/
2(?:5[0-5] | [0-4]\d)
|
1\d\d
|
[1-9]?\d
/x;
if ( $ip =~ /^($ipno\.){3}$ipno$/ ){
print "IP OK\n";
};
Я пошел на собеседование в Арм в Кембридже, Великобритания. Они попросили меня написать одну на доске, а я написал какую-то отстойную ... а потом ... задумался над моей неудачной попыткой сделать лучшую. Управляется неудачей? Или, может быть, просто очень раздражен этим. Я все еще получил работу:)