小编Cha*_*had的帖子

我使用表前缀方法让几个客户端使用相同的数据库.每个客户端创建的表数量约为55.而不是通过手动列出表格来完成所有授权,我可以执行以下操作吗？

GRANT SELECT,INSERT,UPDATE,DELETE ON database.prefix_* TO 'username'@'localhost' IDENTIFIED BY 'password';

我正在尝试编写一个perl脚本,将test.txt文件中的文件名读入数组,然后根据数组中的文件名删除文件.这是我到目前为止所得到的......

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

open(FILE, "test.txt") or die("Unable to open file.");

my @data = <FILE>;

close(FILE);

foreach my $line (@data){
        unlink($line);
}

test.txt和remove_files.pl与要删除的文件位于同一目录中.我无法弄清楚为什么脚本不会删除文件.我错过了一个模块吗？

我决定在他们的网站上使用一些入门脚本深入了解perl.我从http://learn.perl.org/examples/email.html开始尝试基本的电子邮件发送脚本.

这是实际的代码:

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

#Character encoding var
my $encoding='text/plain; charset="iso-8859-5"';

#Create the message
use Email::MIME;
my $message = Email::MIME->create(
        header_str => [
                From => 'gmail@gmail.com',
                To => 'gmail2@gmail.com',
                Subject => 'I sent you this message using Perl.',
        ],
        body_str => 'I sent you this message using Perl.  One of those languages that would\' would\'ve been helpful much sooner in my life...',
        );
use Email::Sender::Simple qw(sendmail);
sendmail($message);

我做的perl script.pl是一个错误信息

body_str was given, but no …