Perl 收藏笔记总结（2018年前）

1：单行注释和多行注释使用介绍、应用技巧

收藏链接： http://www.jb51.net/article/34931.htm

  • 单行注释：行头加#；

  • 多行注释 ：使用 POD(Plain Old Documentations)

    =pod
codes to comment
=cut

# 注意：=pod =cut只能在行首以=开头，以=cut结尾。 注意：=后面要紧接一个字符。=cut后面可以不用。

2：目录文件操作--复制，移动，重命名

收藏链接： http://blog.csdn.net/xuexiaokkk/article/details/51726835

## perl目录操作，创建目录句柄指向要操作的目录。 打开目录句柄使用 opendir ；
opendir dirhandle,directory ;
例：取某目录下文件的列表：
opendir (e,'E:\娱乐\music\阿杜')|| die"can't open e: $!" ;
@files=readdir e; 
closedir(e) ;

for($index=0;$index<@files ;$index++){
   print "@files[$index]\n" ;
}
# 输出指定目录下的所有文件（该目录不包含子目录）。

## 创建目录：mkdir
mkdir('d:\test',0755)||die "can't create directory: $!" ;

## 删除目录：rmdir
rmdir('d:\perl\wzj')||die "can't remove diretory: $!";  #删除之前目录必须为空。

## 在某一目录内找指定文件：
# 例：在d盘下找311.txt
use strict ;
use File::Find ;
sub wanted{
  if ($_ eq "311.txt"){
      print $File::Find::name ;
      print "\n" ;
  }
}
find \&wanted ,"d:/";

## 列出指定目录下所有的文件，包含子目录的内容：
use strict ;
use File::Find ;
sub wanted{
   if (-f $File::Find::name){    #判断传入的是文件而不是目录。
      print "remove $File::Find::name ";
      print "\n";
    #  unlink $File::Find::name ;
   }
}
find \&wanted,'E:\nero\Content' ;

## 查找指定目录下某类型文件：
# 例：查找e盘下所有exe文件
use strict ;
use File::Find ;
sub wanted{
   if (-f $File::Find::name){
      if ($File::Find::name =~/\.exe$/i){
          print "remove $File::Find::name ";
          print "\n";
     }
     
    #  unlink $File::Find::name ;
   }
}
find \&wanted,'E://' ;

## 文件复制
use File::Copy ;
use strict ;
copy("d:/book/三国演义.txt","d:/book/aa")||warn "could not copy files :$!" ;
#将d:/book/三国演义.txt复制到d:/book/aa下

## 文件移动
use File::Copy ;
use strict ;
move("d:/book/ss.txt","d:/book/aa")||warn "could not copy files :$!" ;

## 文件改名
use File::Copy ;
use strict ;
rename("d:/perl/tt.txt","d:/perl/tttttt.txt");
#将d:/perl/tt.txt改名为d:/perl/tttttt.txt

3：使用Getopt::Long模块来接收用户命令行参数

收藏链接：http://www.jb51.net/article/34989.htm

下面的例子略微复杂呀，看不懂，看不懂。

#!/usr/bin/perl
use strict;
use Getopt::Long;
use Smart::Comments;

my @libs    = (); 
my %flags   = (); 
my ( $verbose, $all, $more, $diam, $debug, $test, $step);

GetOptions(
        'verbose+'  => \$verbose,
        'more!'     => \$more,
        'debug:i'   => \$debug,
        'lib=s'     => \@libs,
        'flag=s'    => \%flags,
        'test|t'    => \$test,
        'all|everything|universe' => $all,
);

### $verbose
### $more
### $debug
### $test
### @libs;
### %flags

# 'verbose+'：接有 + 的选项不接收变量,后面不需要加内容，直接使用就行了，会在每次出现时增加一次变量，就是讲命行时在参数中 -verbose -verbose 出现二次时 verbose 的值就会变成2
# 'more!'：接有!的选项不接收变量(也就是讲后面不需要加参数 -more 来使用就行了),只要命令行中出现了这个参数,就会默认是 1 ,是用来设置打开和关掉一个功能的>，可以在参数前加 no 变成负的例如-nomore
# `flag=s'：接有 = 的字符串要求接字符串（s）、整数（i）,或者浮点（f）等类型的变量
# `debug:i'：接有 : 的选项会接受缺省为0或者为空字符串的可选变量
# `test|t'：接有 | 的选项表示可以给 –test 简写为 -t
# `lib=s'     => @libs    如果相关联的变量是个数组, 如这个地方的 @libs, 那么选项可以多次出现, 值可以被推到数组里
# ‘flag=s'    => %flags  如果相关联的变量是个散列, 那么就要求一个键=值（key=value）对, 并被插入到散列里
# 备注:在匹配参数名的时候,GetOptions 在缺省设置下会忽略大小写,默认参数被简写为唯一的最短字符串(首字母)（例如,-m 代表 -more. 相同的首字母时,会加上第二个字母来区分)

4：Perl6与生物信息

收藏链接：https://mp.weixin.qq.com/s/3lowLB_GTWF-TLXaHpSkzg

Perl6我是不会去学习了，但是这里的一个博客可以收藏Young For Perl 6。

5：GD::Graph模块

收藏链接：http://www.kuqin.com/article/25perl/1062258.html

用Perl模块绘制报表和统计图的帖子，很难会用到了。

6：map和grep两大函数简单解析

收藏链接：https://mp.weixin.qq.com/s/OD52lY4Xkyqk9GKnSEfAfA

perl中的一个利器就是正则表达式，处理文本时非常简洁和高效。但还有两个函数：map和grep，在处理数组相关问题的时候特别强大！
map函数的语法：
map EXPR， LIST
map BLOCK　LIST
简单说明：
map函数对LIST里的每个元素按BLOCK或EXPR进行计算，遍历LIST时，临时将LIST里的每个元素赋值给$_变量，map对每次的计算返回一个结果列表赋予左值。其中，左值的含义可以这样理解：如果返回值存储在list中，则表示处理后的list，若返回值存储在scalar中，则表示处理后的list中元素个数。

## 示例１：打印数组元素
my @array = qw/aa ab aa ac ad/;
map {print "$_\n"} @array;

# 输出结果：
aa
ab
aa
ac
ad

## 示例２：元素大小写转换
my @array = qw/aa ab aa ac ad/;
@array = map {uc $_} @array;
print "@array\n";

# 输出结果：
AA AB AA AC AD
# 备注：perl中内置了两个函数uc(大写)和lc(小写)

## 示例３：数组和哈希转换
my @array = qw/aa ab ac ad/;
my %hash = map {$_,1} @array;
foreach my $key (sort keys %hash){
    print "$key ==> $hash{$key}\n";
}

# 输出结果：
aa ==> 1
ab ==> 1
ac ==> 1
ad ==> 1

## 示例４：生成随机密码
my @array = (1..10,"a".."z");
my @password =  join "",@array[map {rand @array } 0..6];
print "@password\n";

# 输出结果：
6qatw1s
# 备注：这个是随机的，每次结果都会不同。

## 示例５：元素替换
my @array = 1..10;
map {$_ = 's' unless $_ > 5 } @array;
print "@array\n";

# 输出结果：
s s s s s 6 7 8 9 10
# 备注：对$_ 修改，相当于修改＠array的元素

grep函数的语法：
grep BLOCK LIST
grep EXPR, LIST
简单说明：
grep的语法格式与map类似，不过grep是通过判断列表中每个元素是否满足表达式或者块来返回true和false，再根据true和false来决定最终的返回列表。所以grep多时用来过滤元素用的。

## 示例１：元素去重
my @array = qw/ac ac aa aa/;
my %count;
@array = grep {++$count{$_} < 2} @array;
print "@array\n";

# 输出结果：
ac aa

## 示例２：特定条件筛选
my @array = 1..20;
@array = grep $_ > 10, @array;
print "@array\n";

# 输出结果：
11 12 13 14 15 16 17 18 19 20

## 示例３：获取数组下标为偶数的元素
my @array = 1..10;
@array = @array[grep {$_ & 2} 0..$#array];
print "@array\n";

# 输出结果：
3 4 7 8

## 示例４：正则匹配
my @array = qw/abba baba/;
@array = grep /bb/ ,@array;
print @array,"\n";

# 输出结果：
abba

## 示例５：计数当前目录的文本文件
my $num = grep {-f && -T} glob "* .*";
print $num,"\n";

# 输出结果：
14

7：List::Util模块来处理数组

收藏链接：http://bnuzhutao.cn/archives/788

以下的函数都是通过C语言优化过的，运行速度非常快。

  • （1）求数组的和：不需要一个一个地累加，直接调用 sum 函数
use List::Util qw/sum/;
my @array = (10, 20, 30, 40);
my $sum = sum @array;       # 得到 100
  • （2）求数组的最大、最小值：不需要逐个比较，直接调用 max 和 min 函数
use List::Util qw/max min/;
my @array = (10, -1, 6, 25, 8);
my $max = max @array;           # 得到 25
my $min = min @array;           # 得到 -1
  • （3）如果是按照字符串排列的最大、最小值呢？调用 maxstr 和 minstr 函数
use List::Util qw/maxstr minstr/;
my @array = ("Beijing", "Shanghai", "Guangzhou", "Chengdu", "Nanjing");
my $maxstr = maxstr @array;     # 得到 Shanghai
my $minstr = minstr @array;     # 得到 Beijing

8：perl数组高级操作技巧

收藏链接：http://www.jb51.net/article/57754.htm

  • 去除一个数组中的重复元素

    • 使用grep函数代码片段
    my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %count;
my @uniq_times = grep { ++$count{ $_ } < 2; } @array;
    • 使用转换hash代码片段
    my @array = ( 'a', 'b', 'c', 'a', 'd', 1, 2, 5, 1, 5 );
my %saw;
@saw{ @array } = ( );
my @uniq_array = sort keys %saw;

  • 合并两个array

push @array1, @array2;
  • 列表归并
use List::Util qw(reduce);
my $sum = reduce { $a + $b } 1 .. 1000;

# 也可以写成下面这样：
my $product = reduce { $a * $b } 1 .. 1000;
  • 判断是否有元素匹配 
# 纯粹用Perl实现，找到列表中第一个符合某条件的元素，比找出所有符合条件的要麻烦一些。下面的例子，判断是否有大于1000的元素：
my $found_a_match = grep { $_ > 1000 } @list;

# 注意：如果@list有一亿个元素，而要找的就是1001？grep仍然还会循环一亿次，当然你可以向下面自己控制下：
my $found_a_match = 0;
foreach my $elem (@list) {
$found_a_match = $elem if $elem > 1000;
last if $found_a_match;
}

# List::Util：
use List::Util qw(first);
my $found_a_match = fist { $_ > 1000 } @list;

# List::MoreUtils模块
my $found_a_match = any { $_ > 1000 } @list;
my $all_greater = all { $_ > 1000 } @list;
my $none_greater = none { $_ > 1000 } @list;
my $all_greater = notall { $_ % 2 } @list;
  • 一次遍历多个列表
## 方法1：
my @a = ( ... );
my @b = ( ... );
my @c;
foreach my $i ( 0 .. $#list ) {
my ( $a, $b ) = ( $a[$i], $b[$i] );
push @c, $a + $b;
}

## 方法2：
use List::MoreUtils qw(pairwise);
my @c = pairwise { $a + $b } @a, @b;

## 方法3：
# pairwise只适合两个列表的同步计算，三个后用each_array：
use List::MoreUtils qw(each_array);
my $ea = each_array( @a, @b, @c );
my @d;
while ( my ( $a, $b, $c ) = $ea->() ) {
push @d, $a+$b+$c;
}
  • 数组合并
# MoreUtils的mesh
use List::MoreUtils qw(mesh);
my @odds = qw/ 1 3 5 7 9/;
my @evens= qw/ 2 4 6 8 0/;
my @nums = mesh @odds, @evens; # print： 1 2 3 4 ...

9：Merging two files based on first column and returns multiple values for each key

收藏链接：http://stackoverflow.com/questions/12377892/merging-two-files-based-on-first-column-and-returns-multiple-values-for-each-key

## 题目：
# Example:
## File Input 1:
12345|AA|BB|CC
23456|DD|EE|FF
## File Input2:
12345|A|B|C
12345|D|E|F
12345|G|H|I
23456|J|K|L
23456|M|N|O
32342|P|Q|R

# WANTED OUTPUT:
12345|AA|BB|CC|A|B|C
12345|AA|BB|CC|D|E|F
12345|AA|BB|CC|G|H|I
23456|DD|EE|FF|J|K|L
23456|DD|EE|FF|M|N|O
我的微信公众号

如果实在有需要请给我发邮件：mengyuanshen@126.com；
也可以关注我的公众号：沈梦圆（PandaBiotrainee）

©著作权归作者所有,转载或内容合作请联系作者
  • 人面猴
    序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
    沈念sama阅读 204,732评论 6赞 478
  • 死咒
    序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
    沈念sama阅读 87,496评论 2赞 381
  • 救了他两次的神仙让他今天三更去死
    文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
    开封第一讲书人阅读 151,264评论 0赞 338
  • 道士缉凶录：失踪的卖姜人
    文/不坏的土叔 我叫张陵，是天一观的道长。 经常有香客问我，道长，这世上最难降的妖魔是什么？ 我笑而不...
    开封第一讲书人阅读 54,807评论 1赞 277
  • 港岛之恋（遗憾婚礼）
    正文 为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
    茶点故事阅读 63,806评论 5赞 368
  • 恶毒庶女顶嫁案：这布局不是一般人想出来的
    文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
    开封第一讲书人阅读 48,675评论 1赞 281
  • 城市分裂传说
    那天，我揣着相机与录音，去河边找鬼。 笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。 我是一名探鬼主播，决...
    沈念sama阅读 38,029评论 3赞 399
  • 双鸳鸯连环套：你想象不到人心有多黑
    文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
    开封第一讲书人阅读 36,683评论 0赞 258
  • 万荣杀人案实录
    序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
    沈念sama阅读 41,704评论 1赞 299
  • 护林员之死
    正文 独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 35,666评论 2赞 321
  • 白月光启示录
    正文 我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 37,773评论 1赞 332
  • 活死人
    序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
    沈念sama阅读 33,413评论 4赞 321
  • 日本核电站爆炸内幕
    正文 年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
    茶点故事阅读 39,016评论 3赞 307
  • 男人毒药：我在死后第九天来索命
    文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 29,978评论 0赞 19
  • 一桩弑父案，背后竟有这般阴谋
    文/苍兰香墨 我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 31,204评论 1赞 260
  • 情欲美人皮
    我被黑心中介骗来泰国打工， 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。 一个月前我还...
    沈念sama阅读 45,083评论 2赞 350
  • 代替公主和亲
    正文 我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
    茶点故事阅读 42,503评论 2赞 343

推荐阅读更多精彩内容

  • perl-oneline
    ############原文粘贴#################### 用 Perl 实现的有用的单行程序 ...
    sunslj阅读 1,149评论 0赞 4
  • 第一章 (Modern Perl)
    Perl 哲学 Perl 是一种能“干实事”的语言。它灵活、宽容、可塑。在一名编程能者的手中，它可以 完成几乎所有...
    firefive阅读 1,357评论 1赞 11
  • 《花的勇气》课堂反思
    今天的语文课上的是自读课文《花的勇气》，我想通过作者是感情变化来捋清文章的思路，通过一节课的实验发现效果好的惊人！...
    绿萝悠悠阅读 179评论 0赞 0
  • 【日知录20180510】
    043 久违了，法理学 今早的课是法律方面的，法理学的基本问题——正义是什么。虽然是个很抽象的问题，不过老师讲的...
    小屁凤Panda阅读 269评论 3赞 4
  • This is why we play！🏀️
    篮球有啥好玩的？我解释不清楚，但我知道我热爱它，以前带着球和小伙伴们去球场，有时会听见同学说“打球有啥好玩的，你们...
    Geroge13阅读 556评论 0赞 5