漫漫长路，其修远兮！
发布时间：2012-12-14 11:50:37
主要是使用的 use Net::SMTP_auth; 点击(此处)折叠或打开 use strict; use Net::SMTP_auth; use Text::Iconv; use MIME::Base64; use Data::Dumper; my $mailhost = 'mail.163.com'; ###邮件服务器 my $mailfrom = 'test_1@163.com'; my @mail_account = ('test_2@163.com'); my $mailuser = 'test'; my $mail......【阅读全文】
发布时间：2012-12-14 11:14:05
主要是使用如下两个模块 use Spreadsheet::ParseExcel;use Spreadsheet::WriteExcel; 一，解析excel 点击(此处)折叠或打开 use strict; use Spreadsheet::ParseExcel; my $parser = Spreadsheet::ParseExcel->new(); my $workbook = $parser->parse('Book.xls'); if ( !defined $workbook ) { ......【阅读全文】
