这用perl怎么写啊？

hengfg

UID: 42470
帖子: 58
积分: 133
在线时间: 4 小时

1^# hengfg 发表于 2008-02-20 15:22

这用perl怎么写啊？

我的日志文件放在/var/log/mail1_0-3 mail2_3-5.log mail1_4-6.log mail2_6-2.log 一共是4个日志文件

要加上判断的语句比如今天是周3 脚本就应该自动查找mail1_0-3和mail2_6-2.log 。

而且后面的结果也要有判断成功了就报个OK 成功就列出哪些IP 成功，然后就生成一个txt的文件，发送到邮箱里

flw

UID: 21204
帖子: 144
积分: 331
在线时间: 1 天 4 小时

2^# flw 发表于 2008-02-20 15:34

看小骆驼。
临时抱佛脚我是不提倡的，这样只能写出来垃圾程序，败坏 Perl 的名声，不符合我的原则。

hengfg

UID: 42470
帖子: 58
积分: 133
在线时间: 4 小时

3^# hengfg 发表于 2008-02-20 16:18

哦

mouse.rice

UID: 9734
帖子: 108
积分: 248
在线时间: 16 小时

4^# mouse.rice 发表于 2008-02-20 16:46

请参考前面的帖子，或许有用：

opendir( DIRMAIL, "D:/Mail" ) or die "$!";
my @allfiles = grep { not /^\.{1,2}\z/ } readdir DIRMAIL;
closedir DIRMAIL;
die "No file names supplied!\n" unless @allfiles;

my $youngest_name = shift @allfiles;
my $youngest_age  = -M $youngest_name;
foreach (@allfiles) {
    my $age = -M;
    ( $youngest_name, $youngest_age ) = ( $_, $age )
      if $age < $youngest_age;
}
printf "The youngest file was %s, and it was %.1f days old.\n",
  $youngest_name, $youngest_age;
if ( -s 'd:/Mail/' . $youngest_name > 3000000000 ) { # "-s":byte

    use Net::SMTP;                                     #use model:Net::SMTP

    my $mailhost = "##########";                         # the smtp host

    my $mailfrom = '######';                               # your email address

    my @mailto = ('######');                            # the recipient list

    my $subject  = "个人文件夹的邮件超出3G限制";
    my $text =
"温馨提示：\n您的个人文件夹邮件超过3G限制，请您新建一个新的个人文件夹以防止无法接收邮件\n详细设置方法为......"
;

    $smtp = Net::SMTP->new(
        $mailhost,
        Hello => 'localhost',
        Timeout => 120,
        Debug => 1
    );

    # anth login, type your user name and password here

    #$smtp->auth('user','pass');

    foreach my $mailto (@mailto) {

        # Send the From and Recipient for the mail servers that require it

        $smtp->mail($mailfrom);
        $smtp->to($mailto);

        # Start the mail

        $smtp->data();

        # Send the header

        $smtp->datasend("To: $mailto\n");
        $smtp->datasend("From: $mailfrom\n");
        $smtp->datasend("Subject: $subject\n");
        $smtp->datasend("\n");

        # Send the message

        $smtp->datasend("$text\n\n");

        # Send the termination string

        $smtp->dataend();
    }
    $smtp->quit;
}