这个脚本的作用是什么,谢谢

1 #!/usr/bin/perl
      2
      3 use strict;
      4 use warnings;
      5 use MIME:uotedPrint;
      6 use MIME::Base64;
      7 use Mail::Sendmail 0.75; # doesn't work with v. 0.74!
      8
      9 my $server = '192.168.25.161';
     10 my $to   = 'cyz@xxx.com';
     11 my $file = shift @ARGV;
     12
     13 my %mail = (
     14         From => 'UTC Info <cyz@xxx.com>',
     15         To => "$to",
     16         Subject => 'AccessLog',
     17         Message => encode_qp('..'),
     18         Smtp => "$server",
     19         );
     20
     21 my $boundary = "====" . time() . "====";
     22 $mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
     23
     24 open (F, $file) or die "Cannot read $file: $!";
     25 binmode F; undef $/;
     26 $mail{body} = encode_base64(<F>;
     27 close F;
     28
     29 $boundary = '--'.$boundary;
     30 $mail{body} = <<END_OF_BODY;
     31 $boundary
     32 Content-Type: text/plain; charset="iso-8859-1"
     33 Content-Transfer-Encoding: quoted-printable
     34
     35 $mail{Message}
     36 $boundary
     37 Content-Type: application/octet-stream; name="$file"
     38 Content-Transfer-Encoding: base64
     39 Content-Disposition: attachment; filename="$file"
     40
     41 $mail{body}
     42 $boundary--
     43 END_OF_BODY
     44
     45 sendmail(%mail) or die $Mail::Sendmail::error;
     46 #print "OK.", $Mail::Sendmail::log, "\n";

发送邮件的脚本
可以包含附件

兄台,能不能帮我一句一句翻译一下? 谢谢

一行 10 块钱，再优惠你 60 块，400 块钱我帮你讲，行不行？

汗～～看来有钱人更懂得赚钱。。

晕.因为工作关系...所以不得不用..大家帮个忙吧谢谢谢.

从小骆驼学起吧

http://www.chinaunix.net/jh/25/872802.html