Perl学习笔记-10

最新推荐文章于 2024-10-17 15:14:13 发布

beeworkshop

最新推荐文章于 2024-10-17 15:14:13 发布

阅读量185

点赞数

分类专栏： perl 文章标签： perl

本文链接：https://blog.csdn.net/beeworkshop/article/details/98972357

版权

perl 专栏收录该内容

13 篇文章 0 订阅

订阅专栏

其他应用

grep操作符

获取1000以内的奇数
my @odd_numbers=grep { $_ % 2 } 1..1000;
从文件中取出包含baby的行
my @matching=grep { /\bfred\b/i } <$fh>;
或
my @matching=grep /\bfred\b/i, <$fh>;
my $count=@matching
或者
my $count=grep /\bfred\b/i, <$fh>;

grep操作符在标量上下文中返回的是符合过滤条件的元素个数。

map操作符

my @data=( 4.33, 1.09, 5.87, 2312, 3728.83 );
my @formatted_data=map {&big_money($_)} @data;
print "Some powers of two are:\n", map "\t".(2 ** $_)."\n", 0..15;

first操作符

use List::Util qw(first);
my $first_match=first {/\bBaby\b/i} @chars;

其他

use List::Util qw(sum);
my $total=sum(1..100);

use List::Util qw(max);
my $max=max(3,4,2,1,17);

use List::Util qw(shuffle);
my @shuffled=shuffle(1..10); #随机排序