2011年11月28日

List::Util

摘要： use List::Util;use List::Util qw(first max maxstr min minstr reduce shuffle sum);sub test { my @numbers = (1, 2, 3, 4, 5, 6, 7); # Get first element my $first_number = first { defined($_) } @numbers; print $first_number, "\n"; # Get max element my $max_number = max @numbers; pri... 阅读全文

posted @ 2011-11-28 16:52 perlman 阅读(1038) 评论(0) 推荐(0) 编辑

perl中的map和grep

摘要： map语法：map EXPR, LISTmap BLOCK, LIST语义：对于LIST中的每个元素执行EXPR或者BLOCK，如果返回值存储在list中，则表示处理后的list，若返回值存储在scalar中，则表示处理后的list中元素个数。下面是几个例子.单词首字母大写sub test { my @names = ( 'jacob', 'alexander', 'ethan', 'andrew', ); my @new_names = map(ucfirst, @names); foreach my $name... 阅读全文

posted @ 2011-11-28 16:05 perlman 阅读(3801) 评论(0) 推荐(1) 编辑

Perl最佳实践第三章（命名规则）

摘要： 标示符变量名采用 形容词_名词 的格式命名，多个单词之间用下划线分隔，比如$next_record$total_score$root_node对于查表的数组或者哈希，采用 xxx_of, xxx_for的命名方式，也就是在末端加上介词，比如。my %title_of;my %ISBN_for;my @sales_from;这种写法会使后面的代码可读性极好。while (my $month = prompt -menu => $MONTH_NAMES) { for my $book (@catalog) { print "$ISBN_for{$book} $title_of{.. 阅读全文

posted @ 2011-11-28 11:28 perlman 阅读(1617) 评论(0) 推荐(0) 编辑

导航