在Webarena上的Ubuntu第38个版本
总结
我在WebArena上尝试了Ubuntu 18.04。
我尝试了Perl 5.26。
我尝试了发送邮件。
示例代码
#!/usr/bin/perl
$sendmail = '/usr/sbin/sendmail';
if (!open(smtp, "| $sendmail -t"))
{
print "error!";
exit;
}
$mailtext = << "EOM";
From: honne<hone@hoge.com>
To: <pene@hoge.jp>
Subject: test14
Content-Transfer-Encoding: 7bit
Content-Type: text/plain; charset="ISO-2022-JP"
testdesu
EOM
print smtp $mailtext;
close smtp;
print "ok";
exit;
以上。-> 这就是以上的内容。