Perl学习笔记-10

Posted 2022-09-30

其他应用

1. 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操作符在标量上下文中返回的是符合过滤条件的元素个数。

2. 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;

3. first操作符

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

4. 其他

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); #随机排序