批处理读文件，perl 发送邮件，access 导出 csv

最新推荐文章于 2022-04-27 17:50:29 发布

原创最新推荐文章于 2022-04-27 17:50:29 发布 · 1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#perl #access #csv #parameters #encoding #file

本文介绍三种实用的脚本技巧：使用批处理读取文件内容、从Access导出查询结果为CSV文件以及通过Perl发送带有附件的电子邮件。

都是工作中遇到的问题，记下来以免以后要用到：
1 批处理读文件：
set /p MString=<filename.txt
echo %MString%

此代码只读入一行

2 将access的query 导出为csv

Function exportDetail(QueryName As String)
Dim time As String
Dim tmp As String

time = Format(Now(), "General Date")
tmp = Replace(Replace(time, "/", "_"), ":", "_")
curpath = Environ("workPath")
filenamestr = curpath & "\" & QueryName + "_" + tmp & ".csv"
Dim str As String
str = QueryName + "_" + tmp & ".csv"
Open curpath & "\" & "filename.txt" For Output As #1
Print #1, str

Close #1

DoCmd.TransferText TransferType:=acExportDelim, _
TableName:=QueryName, FileName:=filenamestr, HasFieldNames:=True
End Function

3 Perl发送邮件（带附件）

#! /usr/local/bin/perl -w

use Mail::Sender;

#command line parameters
my $to       = $ARGV[0];
my $subject = $ARGV[1];
my $file     = $ARGV[2];

#my $today_ = `date /t 2>&1`;
#chomp ($today_);

#get the correct number of args
sub validateArgs(@) {
   $argSize = @ARGV;
   if ($argSize < 3) {
      print "You must enter 3 parameters: \"to\" \"subject\" filename \n";
      exit 101;
   }
}

sub mail{
ref ($sender = new Mail::Sender { from => '发件人',
      smtp => 'na.relay.ibm.com', boundary => 'This-is-a-mail-boundary-435427'})
or die "Error($sender) : $Mail::Sender::Error\n";

$sender->OpenMultipart({to => $to,
                        subject => $subject});
$sender->Body;
$sender->SendEnc(<<'*END*');
Attachment is test!
*END*
$sender->Attach(
{description => 'test',
ctype => '',
encoding => '',
disposition => '',
file => $file
});
$sender->Close;
}

#MAIN
select STDERR;
$| = 1;
select STDOUT;
$| = 1;

validateArgs(@ARGV);
mail();
exit(0);