使用perl脚本发送短信

Question

我尝试使用perl脚本发送短信。我试过以下模块。请帮帮我..

use strict;
use warnings;
use Net::SMS::160By2;

my $username = "xxxxx";
my $password = "yyyyy";
my $msg = "Hi";
my $to = "zzzzzz";
my $obj = Net::SMS::160By2->new($username, $password);
$obj->send_sms($msg, $to);

提前致谢。

Answer 1

“价值来自哪里？”

您需要创建它并提供短信需要发送的电话号码。

my $to = "+1 555 4214-4523";