*[Perl入门]如何运行Perl和获得帮助 by [email protected] **如何运行Perl 本来单独写这一章的主要目的是介绍Windows下运行Perl的配置，不过既然上面版大已经 给出了一个攻略。那么这一章基本上就只剩下一些废话了。 **第一个Perl程序 让我们来回顾上一章的典型的Hello, world! cat hello.pl #!/usr/bin/perl -w print 

书接上文 7.reverse和sort     反转 列表或数组的值,并返回。     @fred = 6..10;     @barney = reverse(@fred);     @barney = reverse 6..10;     sort     排序，默认数字1开头的排在9前，返回排序后的结果。     6.标量和列表上下文     注意：不要期望这样的结果：在标量context

http://bbs.chinaunix.net/thread-636546-1-1.html   简简单单讲sort 仙子注：本文档和仙子前面的2篇文档"简简单单讲grep"，"简简单单讲map"，都译自网络，加上仙子自己的解释整理而成。原文档出自： http://web.archive.org/web/20041123005900/http://www.raycosoft.com/rayco/

转载本站文章请注明，转载自：扶凯[http://www.php-oa.com] 本文链接: http://www.php-oa.com/2009/10/19/perl-format.html perl有最好的文本数据处理能力.这是大家都知道的.在perl本身有一个别的软件没有的小功能,就是Perl格式.它相当于简单的命令行报表和图表输出.这个需要先声明格式.创建格式的文件句柄.然后由@,^,<,>

 Perl中的正则表达式   1. 使用简易模式 如果匹配对象是$_的内容。只要把模式写在一对//中就可以。即m//简写 $_="Fred" if (/fred/) { #... }   2. 元字符 . 匹配任何单一字符，\n除外。 如果要想包含\n在多行匹配，需要用\s来代替. 如果想让.表示字面意义，需要用\. ，例如/3\.14159/ * + ? ()模式分组，例如/(fred)+/会匹

sub getNextMacAddr { my ($oriAddr, $delimeter, $radix) = @_; D($oriAddr, $delimeter); my @addrAry = split(/$delimeter/, $oriAddr); D(@addrAry); my $result = ""; for (my $i=

查看已经安装的Perl Module： Windows ActivePerl: ppm list / Linux: instmodsh  -> l 生成格式化的日期字符串 sub getFormatTime { my $result = ""; my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(ti

从M行的文件随机抽取N行(可以假定M>=N)，这是需要对数据进行抽样处理时很长常见的需求。 首先想到的方法是每读取一行，扔一个0到M-1的随机数，如果随机数小于N,则输出该行，否则不输出。Perl源代码如下：   #!/usr/bin/perl # subset.pl  # Usage: sub_set.pl file sample_num   if (@ARGV != 2) {     die

这个功能不难，但是要求必须用s///的形式，而且后面不能加第三个参数，不能是s///g这样的形式。 不过可以采用多个这样的表达式。 例如  s/A/a/ s/B/b/ s/AB/ab/ ......... ....... 最终就是要求所有这些表达式组合起来，使得不论输入多少个大写字符，都会被转化为小写。 我在atftpd的pcre功能中需要我将大写的请求文件转化为小写，所以需要一个rules文件。

1. 控制结构 所有控制结构都可以做条件修饰符:command if (); unless(){} 等同于if(! ){} unless(){}else{} until(){} 等同于while(! ){} {} 裸块，可以用来限定my修饰符 if(){}elsif(){}...else{} ++i,i++ foreach (@mylist){print $_}; for(;;){} foreac

解决perl命令执行或编译问题: 执行如下命令时 报错： [root@oldboyetc]# perl -pi -e 's|^passwd:     files|passwd:     files ldap|g' /etc/nsswitch.conf perl: warning: Setting locale failed. perl: warning: Please check that you

其中正文写的一般，不过底下的注还真不错。推荐

 1. 文件测试操作符 warning "Oops, A file called '$filename' already exists。\n" if -e $filename; warning "Config file is looking pretty old!\n" if -M CONFIG >28 将超过90天没有访问，且大于100KB的文件归档到磁带。 my @original_files

在Perl中，我们可以把很长的代码缩写成很小的片段，这就是Perl有时候看上去很复杂和简洁的原因。以下是Perl的grep一个用法。大家都知道在Linux系统中，也有一个同名的grep命令，它是一个非常不错的命令，同样Perl 的grep也一样。 假如你要从一堆数据中取出唯一的一个数，我们传统的Perl的写法像下面这样： #!d:/perl/bin/perl.exe use 5.10.0; @a=

让Perl产生随机密码的方法应该有很多种，在这里只写了个简单的，满足需要就可以了。其实也就是产生一个字符串而已。如下: #!d:/perl/bin/perl.exe @a=(0..9,'a'..'z','A'..'Z','#','$','%','*','!','@','^','(',')'); $passwd=join '',map{$a[int rand @a]} 0..9; say $pass

http://www.perlmonks.org/?node_id=718648 # server.pl use strict; use warnings; use Data::Dumper; use JSON::XS; use IO::Socket; use Sys::Hostname; use constant BUFSIZE => 1024; my $JSONObject = JSON::X

cpan关于Storable的例子 use Storable qw(store retrieve freeze thaw dclone); %color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1); store(\%color, 'mycolors') or

在日常的文本处理中，有时候要输出唯一的行，这种工作有多种方法实现... 以下是一种： my %hash; while (<>) {     chomp;     if (defined $hash{$_}) {         $hash{$_} = undef;    #重复？         next;     }     $hash{$_} = [$_, $.]; } my @uniq =

最近一直在学习PERL的文本处理，今天在CU上遇到一个问题，练习了一下，结果没搞定... while(<DATA>){     if($.==1){         chomp;         %tab=();         @b=map{((++$tab{$_}) ==2)?($_.$tab{$_}):($_)} split(/\s+/,$_);         print "@b\n";

  第五章 输入与输出 1.读到文件的结尾，<STDIN>会返回undef。     print ();     其实也是一个函数调用，括号可有可无。     print (2+4)*2     # 相当于(print 2+4)*2     -连字符相当于标准输入     print 2*(2+4) # 这个是正确的     如果在列表上下文中调用'行输入'操作符，它会返回一个列表。     例如

#!/usr/bin/perl #第1、2学时 入门、数字和字符串 #ex01 #print qq(Hello,world!) #qq() 取代了双引号 #print q/Hello,world!/ #取代双引号 #ex02 #$_="$_ stand for default value"; #print;#print the value of $_ #ex03 #$radius = 50; #$

perl的引用类似于C语言的指针， 1 关于标量变量的引用： $name = "zhang"; $ref = /$name;  #"/"增加此符号表示对标量$name的引用，即$ref指向$name。 print $ref;#打印出的值为地址 print $$ref; #打印出引用的值，为zhang.  增加的此$号表示引用的对象是个标量，而不是数组。   $another = $ref;  #引

I0PS Throughput Svctm&Await Utilization 备图，留念!

http://bbs.chinaunix.net/thread-1857627-1-1.html 同学们近期编码问题很多，稍微总结下。 Windows的终端环境是GBK吧，读取UTF-8的 编码，自然会乱码。 比如文件abc.txt是UTF-8格式的，那么如何读取它 呢？ 第一种方式： 使用带encoding参数的open打开和读入文件，并转换成gb2312输出： use strict; use

      Perl是一种通用编程语言。凡是其他编程语言能够使用的地方，都有它的用武之地。在各行各业中，它已经被用于你能够想像到的各种各样的任务的处理。Perl的用途之所以如此广泛，原因是Perl被称为是一种“胶水语言”。所谓胶水语言，也就是说它是可以用来将许多元素连接在一起的语言。Perl真正擅长的是将这些程序连接在一起.         由于Perl是一种“胶水语言”，能够将许多元素连接在一起

#!/usr/bin/env perl use warnings; use strict; use Getopt::Long qw(:config gnu_getopt); my %options = (         'help' => +{spec => 'help|?|h', value => undef },         # default output is "short" opt

学习新的技术:Node.js家园   一直想学习下Perl命令行选项的处理，今天花了点时间看了下，以下是多值命令选项的方法，使用了Getopt::Long模块。 比如你的命令行选项像下面这样，你将如何取得这些值呢？ command -opt 50 60 70 可以这样: 一：GetOptions("opt=i{3}"=>\@val); 解析：这里的i表示是整形（整数），{3}表示为三个，\@val

一行代码搞定： perl -MFile::Find -E "find sub {say $File::Find::dir , '/', $_ }, qq(c:/windows/)"

一、几个问题 1.找出不包含"abc"的字符串   测试用例1==>abc(不符合)   测试用例2==>xabc(不符合)   测试用例3==>abcy(不符合)   测试用例4==>xabcy(不符合)   测试用例5==>xxxx xabcy(不符合)   测试用例6==>xxx abcy dabc(不符合)   测试用例7==>abcy(不符合)   测试用例8==>xyz(符合)   2

写一个tk测试玩意，读取用户输入，判断是否为目录。 代码如下： #!perl -w use Tk; use strict; use Encode; my $mw = MainWindow->new; $mw->geometry("300x200"); $mw->title("Entry Test"); my $top_frame = $mw->Frame(-backgr