![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Perl
文章平均质量分 81
iteye_6750
这个作者很懒,什么都没留下…
展开
-
Perl面向对象简单示例
1、说明 本程序演示了在Perl中如何进行面向对象编程:演示程序包含两个文件:person.pl 和 person.pm,把 person.pl 和 person.pm 放在当前目录下,运行"perl person.pl"即可以看到结果。person.pm定义了名为person的类。person.pl中创建了person类的实例,并测试了person的成员方法。2、pers...2010-03-09 16:23:42 · 180 阅读 · 0 评论 -
Perl对象
NAME perlobj - Perl 对象说明 首先你必须懂得在 Perl 中,什么叫做“引用”,如果你还不懂,那么请参考 perlref。 其次,如果你仍然觉得下文出现的引用过于复杂的话,那么请先阅读 perltoot 和 perltooc 这两个 Perl 的面向对象编程初级教程。 首先让我们来看看有关 Perl 面向对象编程的三个基本定义: ...2010-04-02 09:32:21 · 135 阅读 · 0 评论 -
perl动态监测文件并模拟http post提交
perl中有种格式叫散列。因为我的文件名和文件路径是动态生成的。所以需要用散列。用字符串变量是不行的。首先我检测我某个目录下面的所有文件。然后放到散列里面去。my $dir = "C:/SmartPrinter";opendir DH, $dir or die "Cannot open $dir: $!";my $i=0;my %fruit;#散列foreach $...2010-04-16 18:30:55 · 141 阅读 · 0 评论 -
既然下载不下来 就自己写程序来下载吧
use LWP::Simple;my $url = 'http://224.cachefile7.rayfile.com/b26f/zh-cn/preview/da6cc8a9a54509dbdfaa4db1089bd61e/preview.mp3';my $file = 'C:/无可救药的重复.mp3';getstore($url, $file); so...2010-05-12 08:50:30 · 79 阅读 · 0 评论 -
使用PERL SOCKET
使用PERL SOCKET API首先需要载入SOCKET模块。 use Socket; ====================================================================== socket(文件句柄,AF_INET,数据类型,协议类型); #建立套接字 文件句柄随便找个词就可以了。 AF_INET为域类型,也可...原创 2010-11-30 15:37:16 · 201 阅读 · 0 评论 -
Perl多线程
其实使用perl的多线程很简单: use Thread;#use threads::shared; my@threads; open(MHO,$mhofile);my @mholist=<MHO>; foreach my $mho(@mholist) ...原创 2010-11-30 16:04:32 · 427 阅读 · 0 评论