laozitianxia的专栏

系统装了3个perl1,自带的perl 、/usr/bin/perl   perl -v->5.8.82.装机自带的公司perl    /opt/VRTSperl/bin/perl    5.10.03.需要跑Devel::Cover 的程序 SORT 中带的perl    /sortdir/advance/perl/bin/perl   目前5.14.2

转载地址：http://blog.csdn.net/omohe/article/details/1562515使用Perl从文件中读取字符串，一般有两种方法：1. 一次性将文件中的所有内容读入一个数组中(该方法适合小文件)：open(FILE,"filename")||die"can not open the file: $!";@filelist=FILE>;fo

原创作品，允许转载，转载时请务必以超链接形式标明文章原始出处 、作者信息和本声明。否则将追究法律责任。http://baidutech.blog.51cto.com/4114344/744396 1 测试内容和常用模块CPAN上有很多成熟的模块可以拿来帮助我们对perl脚本做单元测试，本文整理了它们的用法。· perl模块推荐2代码覆盖度测试Devel::Cov

install_driver(mysql) failed: Can’t locate DBD/mysql.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/

wxPerl是一个纯oo的gui库。今天在看它的例子的时候，也试了一下不同的继承方法。在wxPerl的hello.pl中是这样用的：use vars qw(@ISA);@ISA = qw(Wx::App);在programming Perl里查了一下use vars这个pragma. 发现，这种用法已经在某种程度上废弃了，因为有了our. 上面的代码等同于：our (@IS

sort函数sort LISTsort BLOCK LISTsort SUBNAME LISTsort的用法有如上3种形式。它对LIST进行排序，并返回排序后的列表。假如忽略了SUBNAME或BLOCK，sort按标准字串比较顺序来进行（例如ASCII顺序）。如果指定了SUBNAME，它实际上是个子函数的名字，该子函数对比2个列表元素，并返回一个小于，等于，或大于0的整数，

use Net::SMTP;my $email_server = 'smtp.163.com';my $email_receivers = 'aaa@163.com';my $email_sender = ‘aaa@163.com';$email_body = ’hello‘；sub sendMail{       my $smtp = Net::S

#!C:/perl64/bin/perl require LWP::UserAgent;  my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy;  my ($url_new,$url_old) = @ARGV; my $response = $ua->get($url_new); die

#!/usr/bin/perluse strict;use warnings;use DBI;opendir (DIR,"dirpath/") ||die "can not open it";my @connect = readdir(DIR);closedir DIR;my $dir_need;foreach my $con (sort @