发布时间：2013-07-11 11:54:44
Encode：perl -p -e 's/([^\w\-\.\@])/$1 eq "\n" ? "\n":sprintf("%%%2.2x",ord($1))/eg' filenameDecode：perl -p -e 's/%(..)/pack("c", hex($1))/eg' filename......【阅读全文】
发布时间：2013-05-23 12:10:50
按照hash的value排序 【降序】点击(此处)折叠或打开use strict;use strict;my $i = 0; my %score = ();sub by_score {$score{$b} <=> $score{$a}};while($i < 10000){ .........【阅读全文】
发布时间：2013-05-15 19:51:15
本文主要介绍，如何使用JSON模块，以及在hadoop中如何添加JSON模块1. JSON模块的获取 http://search.cpan.org/~makamaka/JSON-2.57/lib/JSON.pm2. 在目录 ~/lib/下解压文件 tar -xzvf JSON-2.57.tar.gz3. 是用JSON模块 1. use lib ~/lib/JSON-2.57/lib .........【阅读全文】
发布时间：2013-04-24 11:26:46
其实对于函数的调用，基本上只要了解如何传递参数，参数如何保存，已经如何获取返回值就差不都了，perl的函数在调用的时候，版参数写在函数名字的括号里面，function(a,b)，在函数里面，参数的值保存在 @_ 这个数组里，在函数的最后，通过return返回【其实直接写也能返回】，eg点击(此处)折叠或打开.........【阅读全文】
发布时间：2013-04-24 09:57:53
perl中想使用其它文件中的配置，可以使用require命令，egb.pl ： 点击(此处)折叠或打开$abc = 5;a.pl: 点击(此处)折叠或打开require "b.pl";print "$abc\n";perl a.pl 的输出： 5.........【阅读全文】
