相关疑难解决方法(0)

每当我的计算机进入或退出无线网络时，我都尝试使用/etc/network/if-up.d/并/etc/network/if-down.d通过 Gmail 从我的计算机向我的手机发送 SMS。主脚本是用 Perl 编写的，而所述文件夹中的脚本基本上是围绕它的包装器。这是 Perl 脚本~user/bin/laptopSMS.pl：

#!/usr/bin/perl

use strict;
use warnings;

use Email::Send;
use Email::Send::Gmail;
use Email::Simple::Creator;

my $addy = q{myEmail@gmail.com};
my $pass  = q{myPass};
my $sms   = q{myPhoneNumber@tmomail.net};

my $email = Email::Simple->create(
   header => [
          From    => $addy,
              To      => $sms,
          Subject => "$ARGV[0]",
  ],
  body => "$ARGV[1] / $ARGV[2]",
);

my $sender = Email::Send->new(
    {     mailer      => 'Gmail',
          mailer_args => [
              username => $addy,
              password => $pass,
          ]
    }
 ); …