摘要：1.查看模块帮助信息perldoc CGI 如果按装了CGI,则会显示相关信息，否则提升错误 阅读全文

摘要：perl中可以用warn进行调试，如果有错误，可以打印出相关信息，如： 阅读全文

摘要：Great Perl Modules:http://www.perlfoundation.org/perl5/index.cgi?recommended_cpan_moduleshttp://perl.net.au/wiki/Recommended_Perl_Moduleshttp://wiki.perlchina.org/index.php/%E6%A8%A1%E5%9D%97%E6%8E%A8%E4%BB%8Bhttp://search.cpan.org/~perigrin/Task-Kensho-0.18/lib/Task/Kensho.pmhttps://github.com/CPAN-API/cpan-api/wiki/API-docshttp://search.metacpan.org 阅读全文

摘要：#!/usr/bin/perl require "ctime.pl"; require "pwd.pl"; &initpwd; 阅读全文

摘要：perl -e 'print "@INC\n"' perl -V 阅读全文

摘要：在linux中运行命令行 perl -e 'print "Hello world\n"' MS-DOS中运行命令行 perl -e "print qq(Hello world\n)" 阅读全文

摘要：#!/usr/bin/perl # use threads; sub say_hello { printf("Hello thread! @_.\n"); sleep(10); printf("Bye\n"); } 阅读全文

摘要：注意在perl5.8中，必须用threads->create来生成线程，和许多介绍旧版perl的书籍中的有区别 use Thread qw/async yield/; my $done=0; sub frob { my $arg=shift; my $tid=Thread->self->tid; print "thread $tid:frob $arg\n"; yield; unless ($done) { yield; $done++; frob($arg+10); } } 阅读全文

摘要：打开、关闭文件 open (filevar, filename) filevar为文件句柄，或者说是程序中用来代表某文件的代号 filename为文件名，其路径可为相对路径，亦可为绝对路径 open(FILE1,"file1"); open(FILE1, "/u/jqpublic/file1"); 阅读全文

摘要：foreach my $person(qw /fred wilma betty barney dino perbbles /) { eval { open FILE, "$person" or die "Can't open file '$person': $!'"; 阅读全文

摘要：@ARGV=qw# larry moe curly#; while () { chomp; print "It was $_ that I saw in some stooge_like file!\n"; } #从larry,moe和curly三个文件中读取行信息 阅读全文

摘要：参考: 正则表达式 是由普通字符（例如字符 a 到 z）以及特殊字符（称为元字符）组成的文字模式。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。 可以通过在一对分隔符之间放入表达式模式的各种组件来构造一个正则表达式，即/expression/ 阅读全文

摘要：3 图形文件的处理 阅读全文

摘要：Perl原来主要用于编写一些Unix系统上的管理和监控程序，由于Perl与Unix系统紧密相连，故后来很多人都喜欢采用Perl来编写CGI程序。现在相当一部分企业都会采用NT平台，但大部分仍然采用Perl进行应用开发。因为它具有良好的通用性和强大的字处理能力，即使以后改用Unix系统（可能由于接入用户数增多，访问量加大），程序修改量也不大（VBScript则无法移植，VBScriptWindowsonly)。 阅读全文

摘要：#!/usr/bin/perl -w my @names=qw/ fred barney betty dino wilma pebbles bamm-bamm /; my $result=&which_element_is("dino",@names); 阅读全文

摘要：#!/usr/bin/perl -wsub max{ my($max_so_far) = shift @_; #my后面用来声明私有变量，因为perl中默认都为公有变量,shift取列表的头元素，并删除头元素 foreach (@_) { if ($_ > $max_so_far) { $max_so_far = $_; } } $max_so_far;}$maximum=&max(3,5,10,4,6);print "The max is $maximum\n"; 阅读全文

摘要：#!/usr/bin/perl -w sub sum_of_fred_and_barney { print "Hey,you called the sum_of_fred_and_barney subroutine!\n"; $fred+$barney; } 阅读全文

摘要：#!/usr/bin/perl -w @rocks=qw; #qw后定义数组(列表)，可用{},,/ /,或其他一对符号表示 # qw定义@rocks= ("bedrock","slate","lava") foreach $rock(@rocks){ $rock="\t$rock"; $rock.="\n"; } 阅读全文

摘要：#!/usr/bin/perl -w $madonna=; if (defined($madonna)) { print "The input was $madonna"; } else { print "No input available!\n"; } 阅读全文

摘要：#/usr/bin/perl -w $count=0; while ($count10){ $count+=2; print "count is now $count\n"; } 阅读全文