2011年7月31日

perl类定义必须返回真值

摘要: package Logger ;use strict ;sub new{ my $class = shift() ; my $self = {} ; bless $self, $class ; return $self ;}sub message{ shift ; my ($msg, $color) = @_ ; print "@: @_ \n" ; my $cmd = "echo -e \033[40;$color$msg\033[0m" ; # this does not work on windows, try it on unix/linux p 阅读全文

posted @ 2011-07-31 23:02 perlman 阅读(670) 评论(0) 推荐(0) 编辑

grep -v xxx

摘要: grep -v xxx是指不显示包含xxx的行或文件,-v表示取反的意思。举个列子,如果你想取得一个xml文件的内容(去除注释),可以使用下面的命令grep -v "<!--" file.xml因为在xml中注释都是以<!--开头的。 阅读全文

posted @ 2011-07-31 22:59 perlman 阅读(17906) 评论(0) 推荐(0) 编辑

Perl中的类与继承

摘要: 先定义一个Person类package Person ; # package name must be same as file namesub new{ my $class = shift ; my ($name, $age) = @_ ; my $self = { "name" => $name, "age" => $age, } ; bless($self, $class) ; return $self ;}sub set_name{ my ($self, $name) = @_ ; $self->{name} = $name ; 阅读全文

posted @ 2011-07-31 22:51 perlman 阅读(3993) 评论(0) 推荐(0) 编辑

Perl中判断数组或hash为空

摘要: perl中没有bool类型perl中没有bool类型,所有的判断都是通过数字类型和字符串类型来进行的。哪些类型为false标量只有三种,数字0,空字符串"", 字符串'0'("0")。矢量有空数组,空哈希。判断数组或哈希为空和标量一样,直接将数组或哈希放到if语句中即可my @list = () ;if(@list){ print "Not empty!\n" ;}my %hash = () ;if(%hash){ print "Not empty!\n" ;} 阅读全文

posted @ 2011-07-31 10:51 perlman 阅读(20506) 评论(0) 推荐(0) 编辑

导航