我需要检查域名列表,并获得没有NS的域名列表(可能是未注册的)。我已经用ADNS和adnshost找到了一个很好的解决方案。命令"adnshost -a -tns domain.com“做了我需要的事情(输出中的第四列将包含结果),但我希望用Perl和Net::DNS::Async实现相同的结果。 我的代码: #!/usr/bin/perl -w
use strict;
use utf8;
use Net::DNS::Async;
my $c = new Net::DNS::Async(QueueSize => 1000, Retries => 3);
my $fi
我需要验证域名注册,因为它不能只由数字和验证需要适合我的算法工作的方式,即返回完整的域名(没有.com,.net等扩展名),如果它是正确的。
我尝试了几个表达式,但都没有成功:
^[^0-9]+$ # that one wont let he type a number
^\w[^0-9]+\w$ # that wont work too
有人能帮我吗?
我试图验证用户输入的子域是否有效,但是不管我传入什么,它都是无效的。我知道regex是可以的,所以问题是我的"if“逻辑,但是我对shell/bash还不熟悉。
#!/bin/bash
#
echo Enter the subdomain\'s name to configure.
read SUBDOMAIN
if [[ ! $SUBDOMAIN =~ [A-Za-z0-9](?:[A-Za-z0-9-]{0,61}[A-Za-z0-9])? ]]; then
echo "$SUBDOMAIN is not a valid domain"
fi
示
我的电子邮件入口格式像username@domain.extension一样
用户名以英文字母字符开头,随后的任何字符都由以下一个或多个字符组成:字母数字字符,-,。,_. .
域和扩展名只包含英文字母。扩展长度为1,2或3个字符。
我使用下面的regex验证我的电子邮件地址:
[a-zA-Z]+\s<\b[a-z0-9._-]+@[a-zA-Z]+\.[A-Za-z]{1,3}\b>
电子邮件地址:
this <is@valid.com>
this <is_it@valid.com>
this <_is@notvalid.com>
if (isValidDomainName(addr)) {
return true;
}
else if (isValidIPv4(addr)) {
return true;
}
function isValidIPv4(addr){
var regex = /^((25[0-5]|2[0-4][0-9]|[0-1]?[0-9]?[0-9])\.){3}(25[0-5]|2[0-4][0-9]|[0-1]?[0-9]?[0-9])$/;
return regex.test(addr);
}
function isValidDomainName(name