本文目录
如何在window下使用perl打开文件
输入 perltest.pl然后就能执行了。
其中test.pl是你所要运行的文件的名称
用命令指示符则说不是内部或外部的命令。
这个说明安装没有自动把perl的文件路径自动添加到环境变量中去。
具体方法：右击 的电脑--属性--高级--环境变量--在系统变量部分--双击path--在最后添加你perl的安装路径。
如何用Perl发送邮件
使用Perl 发送邮件有很多方式，随便可数出来的有:mail,sendmail,Mail::Mailer,MIME::Lite等等。这些方式都能实现邮件的发送，具体的就要看用在什么场合了。1. mail方式这个调用系统命令，算是最简单的方式了(我亲自测试可用)my $mail_title= "test_mail";my $mail_body = "ffmpeg error";my $mail_to = ’xxxxxx@qq.com’;my $cmd_mail = "echo $mail_body\|mail -s $mail_title -cb $mail_to";system($cmd_mail);2. Mail::Mailer方式#!/usr/bin/perluse Mail::Mailer;my $from_address = ’’;my $to_address = ’xxxxxxxx@qq.com》’;my $subject = "mail title";my $mail_body = "hello world!";my $mailer = Mail::Mailer-》new("sendmail");my $mailer-》open( { From =》 $from_address, To =》 $to_address, Subject =》 $subject, })or die ("Can’t open: $!\n");print $mailer $mail_body;$mailer-》close();3. MIME::Lite方式一般邮件发送(我亲自测试通过).#!/usr/bin/perluse MIME::Lite;use MIME::Words qw(encode_mimewords);my $subject = encode_mimewords("test mail",’Charset’,’GB2312’);my $data ="test";my $to_address = ’xxxxxxx@qq.com’;my $msg = MIME::Lite-》new ( From =》 ’root@localhost’, To =》 $to_address, Subject =》 $subject, Type =》 ’text/html’, Data =》 $data, Encoding =》 ’base64’, ) or die "create container failed: $!";$msg-》attr(’content-type.charset’ =》 ’GB2312’);$msg-》send(’smtp’,’localhost’,Debug=》0);如果上述程序遇到下述的出错提示：SMTP mail() command failed: 5.5.4 《root@localhost》... Real domain name required for sender address则需要检查你主机名，#cat /etc/hosts并将“root@localhost”替换成“root@hostname”另外 ，还可以使用MIME::Lite来发送中文HTML邮件，防止被ESP当作垃圾邮件干掉。***隐藏网址***use MIME::Lite;use MIME::Words qw(encode_mimewords);sub send_email {my $self = shift; my $to_address = shift;my $subject = encode_mimewords("这里是中文标题",’Charset’,’GB2312’); my $data =《《EOF;《body》《p》这里是中文HTML内容。《/p》《/body》EOFmy $msg = MIME::Lite-》new ( From =》 ’you@example.com’, To =》 $to_address, Subject =》 $subject, Type =》 ’text/html’, Data =》 $data, Encoding =》 ’base64’, ) or die "create container failed: $!";$msg-》attr(’content-type.charset’ =》 ’GB2312’); $msg-》send(’smtp’,’localhost’,Debug=》0);}几个常识点：a. 标题必须用MIME::Words编码，很多人忽略了这点。b. MIME::Lite构造信件时，Type不要搞错。例如只是一封HTML邮件，没有附件之类，Type就是text/html。21CN的webmail发信不管有没有附件，Type都是multipart/mixed，结果被Gmail直接扔进垃圾箱。c. 信件要选择传输编码（Encoding），常用的是base64和quoted-printable，我推荐base64。d. 信件body的content-type charset要设置正确，例如中文GB2312。e. 最后一句$msg-》send(’smtp’,’localhost’,Debug=》0)调用Net::SMTP发信，本机安装了MTA例如Postfix就可以。这个发信IP最好是信誉比较好的IP，没有列入sorbs、spamcop、spamhaus等RBL列表里。f. 发信IP最好有反向解析（PTR），否则肯定发不到AOL之类的验证反解的邮箱。g. 那个From地址也最好真实存在，但是不要用知名网站的免费邮箱，例如From =》 ’abc@126.com’，那么基本发不出去。为什么？因为126.com设置了SPF，接收方MTA多半会验证这个SPF，你的IP当然不在126的SPF里，所以通不过验证。h. $data变量包含的是信件body的HTML编码，这个body里不要有很多链接、图片之类，否则容易被Spamassassin之类的反垃圾软件干掉。i. 最后，控制发送频率，大量的发送会引起各个反垃圾系统的警惕，并将你列入黑名单4. Mail::Sendmail方式
如何使用perl处理
chdir "D:/hello" or die "Can’t change dir";for ( 1..100000 ) { # 建议你先试做 10 个, 没问题才做 10w 个 open my $f, "》$_.txt" or die "Can’t create $_.txt"; print $f $_; close $f;}
perl安装成功怎么使用
不是，因为你想想怎么知道你的script放在哪里呢？所以显示“找不到这个文件或文件夹”，因为你没有把这个文件放在默认文件夹所以你应该在cmd（就是你说的DOS）写上 perl D:/MyFile/myfirst.pl这只是举个例子说你把你的pl文件放在D盘的MyFile文件夹中了，注意大小写和空格都不要搞错。
如何使用perl遍历一个目录下的所有文件
SubTest()DimMyName,Dic,Did,I,T,F,TT,MyFileNameT=TimeSetDic=CreateObject("Scripting.Dictionary")’创建一个字典对象SetDid=CreateObject("Scripting.Dictionary")Dic.Add("D:\MyDocuments\"),""I=0DoWhileIDic.CountKe=Dic.keys’开始遍历字典MyName=Dir(Ke(I),vbDirectory)’查找目录DoWhileMyName""IfMyName"."AndMyName".."ThenIf(GetAttr(Ke(I)&MyName)AndvbDirectory)=vbDirectoryThen’如果是次级目录Dic.Add(Ke(I)&MyName&"\"),""’就往字典中添加这个次级目录名作为一个条目EndIfEndIfMyName=Dir’继续遍历寻找LoopI=I+1LoopDid.Add("文件清单"),""’以查找D盘MyDocuments下所有EXCEL文件为例ForEachKeInDic.keysMyFileName=Dir(Ke&"*.xls")DoWhileMyFileName""Did.Add(Ke&MyFileName),""MyFileName=DirLoopNextForEachShInThisWorkbook.WorksheetsIfSh.Name="XLS文件清单"ThenSheets("XLS文件清单").Cells.DeleteF=TrueExitForElseF=FalseEndIfNextIfNotFThenSheets.Add.Name="XLS文件清单"EndIfSheets("XLS文件清单")..Resize(Did.Count,1)=WorksheetFunction.Transpose(Did.keys)TT=Time-TMsgBoxMinute(TT)&"分"&Second(TT)&"秒"EndSub
