Sms 您可以让JavaScript打开一个带有url的弹出窗口： “”+phoneNumber

正在尝试在此处组合一些答案

丹尼尔提到

---

您可以让JavaScript打开一个带有url的弹出窗口： “”+电话号码

这个还能用吗？我似乎无法复制它。如果我们能做到这一点，那么也许我们可以使用如下脚本

#!/usr/bin/perl -w
use strict;
use warnings;

use LWP::Simple;

my $usage = "Usage: $0 <phone_number>\n\nwhere phone_number is on format XXX-XXX-XXXX or XXXXXXXXX";

die $usage unless scalar @ARGV == 1;

my $number = shift @ARGV;
die $usage unless $number =~ /(\d\d\d)-?(\d\d\d)/;
my $NPA = $1;
my $NXX = $2;

#GET /search.asp?frmNPA=646&frmNXX=826&frmCity=&frmState=&frmZip=&frmCounty=&frmCompany=&search.x=0&search.y=0 HTTP/1.0
my $doc = get 'http://www.phonevalidator.com/results.aspx?p=' . $NPA . $NXX;

# html format:
#...
#                                                       <td class="style16">
#                                Phone Line Type:
#                            </td>
#                            <td class="style13">
#                                <span id="PhoneTypeLabel">LANDLINE</span>
#                            </td>
#
#...
my $result = "";
grep {
    if (/PhoneTypeLabel/) {
        $result = $_;
    }
} split(/\n/, $doc);

$result =~ /<[^>]*>(.*)<[^>]*>/;

print "$number\t$1\n";

#/usr/bin/perl-w
严格使用；
使用警告；
使用LWP：：Simple；
my$usage=“用法：$0\n\n此处电话号码的格式为XXX-XXX-XXXX或XXXXXXXX”；
die$用法，除非标量@ARGV==1；
我的$number=shift@ARGV；
除非$number=~/（\d\d\d）-？（\d\d\d）/，否则使用$die；
我的$NPA=1美元；
my$NXX=$2；
#GET/search.asp？frmNPA=646&frmNXX=826&frmCity=&frmState=&frmZip=&frmCounty=&frmCompany=&search.x=0&search.y=0 HTTP/1.0
我的$doc=get'http://www.phonevalidator.com/results.aspx?p=' . $NPA$NXX；
#html格式：
#...
#                                                       
#电话线类型：
#                            
#                            
#固定电话
#                            
#
#...
我的$result=“”；
格雷普{
如果（/PhoneTypeLabel/）{
$result=$\；
}
}拆分（/\n/，$doc）；
$result=~/]*>（.*]*>/；
打印“$number\t$1\n”；

我们有一项服务，可为美国和加拿大提供固定线路/手机检测，还可检测电话号码是活的还是死的，以及将电话号码移植到哪个无线运营商等。有一个完整的web API

---

如果你在www.hlrcheck.com上注册了一个帐户，我会让它生效，并为你添加一些免费的信用卡进行测试。我们目前正处于测试阶段，但即将发布完整版本的候选版本。

这里提到的所有解决方案都是静态号码模式查找，但确定给定手机号码是否有效（并准备接收短信）的唯一可靠方法是执行HLR查找。HLR代表归属位置寄存器，它是一个具有实时用户信息的移动网络运营商数据库。有几种用于HLR查找的API服务，例如www.HLR-lookups.com

这似乎不对。我举了一个网站的例子，它可以确定#是固定电话还是手机。在我的情况下，这些号码是给第三方的，因此我无法在没有充分理由的情况下联系实际拥有该电话号码的人。你还应该知道，这种服务不可能100%准确，特别是如果你使用国际电话号码。实际上，与其向他们发送短信，不如让他们向你发送包含内容的短信，如果你能收到的话。这是一个非常有趣的想法（截取其中一个站点），但是area-codes.com站点是错误的。它还将手机报告为固定电话（甚至是纽约手机917区号中的电话）。我也不知道它的可扩展性有多大，因为它们没有提供API。如果他们发现我的网络服务器以编程的方式猛烈攻击他们的网站，他们会将我列入黑名单。谢谢你提出一个有趣的观点。我的短信产品是针对美国市场的，我很乐意向任何能收到短信的手机发送短信。从我的用户的角度来看，我要求他们输入一个人的手机，主要用于短信，但对于用户来说，他们可能还关心该手机号码是否由该人随身携带，以便在他们不在家时与他们联系。不幸的是，在北美洲，固定电话号码与移动电话号码之间没有这样的区分。它们都共享相同的编号计划，没有任何区别。而且，有了号码可携性，客户可以从固定电话切换到移动服务提供商，而无需更改电话号码。这是一个好主意，只是并不适用于任何地方。很抱歉你得到了所有的反对票-一些开发者只是。。。你知道+如果你想了解更多，你还可以从数字中阅读npa和nxx信息，这是一个很好的信息：看起来这已经不起作用了，他们现在有一个验证码验证来防止机器人攻击网站。phonevalidator只适用于我们的数字，这篇文章很老了。这篇文章看起来像是一篇营销文章，但它是一个非常有效的需求。发送短信的服务可以帮助区分这一点。Twilio的全球化似乎提供了一个GET API——这也是一个潜在的隐私问题。将用户的机密信息传递给不可靠的第三方真的是您想要解决这个问题的方式吗？

#!/usr/bin/perl -w
use strict;
use warnings;

use LWP::Simple;
use LWP::Simple::Cookies ( autosave => 1, file => "$ENV{'HOME'}/lwp_cookies.dat" );

my $usage = "Usage: $0 <phone_number>\n\nwhere phone_number is on format XXX-XXX-XXXX or XXXXXXXXX";

die $usage unless scalar @ARGV == 1;

my $number = shift @ARGV;
die $usage unless $number =~ /(\d\d\d)-?(\d\d\d)/;
my $NPA = $1;
my $NXX = $2;

#GET /search.asp?frmNPA=646&frmNXX=826&frmCity=&frmState=&frmZip=&frmCounty=&frmCompany=&search.x=0&search.y=0 HTTP/1.0
my $doc = get 'http://www.area-codes.com/search.asp?frmNPA=' . $NPA . '&frmNXX=' . $NXX . '&frmCity=&frmState=&frmZip=&frmCounty=&frmCompany=&search.x=0&search.y=0';

# html format:
#...
#    <td><strong>NXX Use Type:</strong></td>
#        <td>LANDLINE</td>
#...
my $next = 0;
my $result = "";
grep {
    if (/NXX Use Type:/) {
        $next = 1;
    } else {
        if ($next) {
            $next = 0;
            $result = $_;
        }
    }
} split(/\n/, $doc);

$result =~ /<[^>]*>(.*)<[^>]*>/;

print "$number\t$1\n";

9xxxx xxxx

04xx xxx xxx

#!/usr/bin/perl -w
use strict;
use warnings;

use LWP::Simple;

my $usage = "Usage: $0 <phone_number>\n\nwhere phone_number is on format XXX-XXX-XXXX or XXXXXXXXX";

die $usage unless scalar @ARGV == 1;

my $number = shift @ARGV;
die $usage unless $number =~ /(\d\d\d)-?(\d\d\d)/;
my $NPA = $1;
my $NXX = $2;

#GET /search.asp?frmNPA=646&frmNXX=826&frmCity=&frmState=&frmZip=&frmCounty=&frmCompany=&search.x=0&search.y=0 HTTP/1.0
my $doc = get 'http://www.phonevalidator.com/results.aspx?p=' . $NPA . $NXX;

# html format:
#...
#                                                       <td class="style16">
#                                Phone Line Type:
#                            </td>
#                            <td class="style13">
#                                <span id="PhoneTypeLabel">LANDLINE</span>
#                            </td>
#
#...
my $result = "";
grep {
    if (/PhoneTypeLabel/) {
        $result = $_;
    }
} split(/\n/, $doc);

$result =~ /<[^>]*>(.*)<[^>]*>/;

print "$number\t$1\n";