liken的专栏

写一个子程序，名为&above_average，将一列数字作为其参数，返回所有大于平均值的数字（提示：另外写一个子程序来计算平均值，总和除以数字的个数）。利用下面的程序进行测试：my @fred = &above_average(1..10);print "/@fred is @fred/n";print "(Should be 6 7 8 9 10)/n";my @barney = &above

类函数调用Class->method(@arg)===================Class::method('Class', @args);第一个参数是类名称对象(实例)函数调用Instance->method(@arg)=================Class::method(Instance, @arg);bless的解释可参见http://bbs2.chinaunix.net/viewthread.php?tid=981190bless in perldochttp://perldoc.pe

#!/usr/bin/perl -wuse strict;my $initarray;@$initarray = (1, 2, 3);print @$initarray."/n";print @$initarray[-1]."/n";print @$initarray[1]."/n";my $inithash0;%$inithash0 = (a => 1,b => 2,c => 3,);print $inithash0->{'b'}."/n";prin

对匿名哈希的建立与引用#!/usr/bin/perluse warnings;use strict;my %gilligan_info = (  name => 'Gilligan',  hat => 'White',  shirt => 'Red',  position => 'First Mate',);my %shipper_info = (  name => 'Shipper',  hat => 'Black',  shirt => 'Blue',

使用reference的目的1. 创建@_，会拷贝整个array或hash，浪费内存空间2.@_在子程序中是传入数据的拷贝，无法对修改传入的数据与C语言对比的话，Perl的reference更像指针，或者C++的引用the backslash(/) character is also the "take a reference to" operator.反斜线符号还是引用操作符------------------------------------------------------------------

1. 所有数字在Perl内部按“双精度浮点数”的要求保存并运行运算2. 直接量(literal)是直接卸载程序源码中的数据3. 八进制：0567；十六进制：0xfa;二进制：0b10011104. 直接量可用下划线分开：0577_351_4315. 运算符有+,-,*,/;%;**等等

Hash是一种结构。key/value.访问hash元素$hash{$some_key}当给hash选择名字时，最好这样思考：hash元素的名字和key之间可以用for来连接。如 the family_name for fred is flintstone.要引用整个hash，使用百分号(%)作为前缀。 #!/bin/perluse warnings;use str

文件句柄(filehandle)是Perl程序I/O链接的名字，是连接的名字，而非文件的名字。建议文件句柄的所有字母均大写。Perl自身有六个文件句柄: STDIN, STDOUT, STDERR, DATA, ARGV, ARGVOUT。 文件句柄的打开open CONFIG, "dino";open CONFIG, "open BEDROCK, ">fred";

print: 输出到标准输出设备#!/bin/perl use warnings;use strict; my @array = qw / fred liken wall larry /;print @array;        #打印出元素的列表print "@array";      #打印出一个字符串(包含一个内插数组) Perl在内插数组是，会在元素

Perl 提供了很多模块查询模块是否安装使用 perl -e 'use Cwd'今天工作中要创建和删除文件夹 网上介绍用File::Path创建文件夹mkdir删除文件unlink删除文件夹rmdir这些函数可以完成一般情况的操作，但是当需要创建多级文件夹，删除嵌套文件和文件夹时，使用这些函数就有点杯水车薪了。