如何使用perl,如何使用膨胀螺丝视频
如何使用perl语言封装C函数
比较简单的可以让C程序和perl程序同时跑，用socket通讯
另外一种自己找perl相关源程序，参考修改
还有一种activeperl有个开发包可以将perl封装成.net接口，就可以用各种程序调用了
如何在window下使用perl打开文件
输入 perltest.pl然后就能执行了。
其中test.pl是你所要运行的文件的名称
用命令指示符则说不是内部或外部的命令。
这个说明安装没有自动把perl的文件路径自动添加到环境变量中去。
具体方法：右击 的电脑--属性--高级--环境变量--在系统变量部分--双击path--在最后添加你perl的安装路径。
魔兽世界 PERL 使用方法
分类: 游戏 魔兽世界
问题描述:
详细 一点
解析:
说明:
-----------------
功能:
在目标窗体上实现几个按钮,实现跟随,交易,邀请,决斗,密聊,提升为队长,察看装备等功能.
这个版本观察的距离为全部.
使用方法:
1.放入WOW目录/Interface/addons目录下
2.输入 /tbopt 或 /tboptions 打开设置
3.设置目标窗体.一般来说,TargetButtons指向TatgeFrame,也就是WOW默认的目标窗口.
如果你使用了Perl等头像UI,则需自行设置.
打开TargetButtons设置窗口,填入Perl_Target_Frame,点击"设置目标窗体"按钮.
关于DUF头像的支持方法: 打开设置窗口, 目标窗体中填入DUF_TargetFrame, 点击"设置目标窗体"按钮.
参考网站：thewow/soft/1097
你可以去看看
如何使用Perl语言在windows下编写图形化窗口程序啊，求大师，最好给个例子瞅瞅
perl 的图形有两种玩法, Tk 和 Tkx. Tk 是纯 Perl 的, 但能用的 widget (即那些 button, menu, scrollbar... )比较少; Tkx 则需要你先装有 Tcl/Tk , 但能用的 widget 比较多. 一个最简单的例子就是
use Tk; # 导入 tk 模组
use strict;
my $mw = MainWindow-new; # 创建窗口
my $labelObj = $mw-Label(-text = 'Hello, world!'); # 创建一个 label 物件
$labelObj -pack; # pack() 是将物件程现的方法, 你再翻翻书, 还有 grid() 和 place() 的风格
$mw-Button(
-text = 'Quit',
-command = sub { exit },
)-pack;
MainLoop; # 每个 tk 程序都要等到呼叫 MainLoop 才会出现.
最後, 你还得知道一个(差不多)每个物件都会的方法, 叫 configure, 你会以此对物件进行重新定义, 或附加设定
perl 程序的使用
1、下载perl解释器（如：Active Perl v5.8.4）并安装好；
2、查看一下你的环境变量，确定perl的有关路径已经添加到变量PATH中，注意点击确定的方式退出，以使PATH设置生效；
3、在“运行”中打开cmd窗口，cd到你要处理的文件所在的路径；
4、将该pl拷贝到该文件夹；
5、在cmd中执行命令即可：
perl *.pl 要处理的文件名
如何用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/perl
use 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/perl
use 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
EOF
my $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方式