Perl List::Util模組使用執行個體

來源:互聯網
上載者:User

   這篇文章主要介紹了Perl List::Util模組使用執行個體,本文給出掃描合格某個列表並取出第一個合格、求1到1000之間的和、求一組數位最大值與最小值等實用功能代碼,需要的朋友可以參考下

  在Perl中有一些專門用於處理列表資料的模組,比如說List::Util模組,該模組包含在標準庫中,能提供各種高效的常見列表處理工具。因其用C語言來實現,速度一般都挺快!

  【例01】掃描合格某個列表,並取出第一個合格

  常規做法:

  代碼如下:

  use 5.010;

  my @names = qw(Wendy Jerry Betty Wendy Alice);

  foreach (@names) {

  if (/bWendyb/i) {

  $match = $_;

  last;

  }

  }

  say $match;

  如果改用List::Util模組提供的first子程式,就要簡單的多

   代碼如下:

  use List::Util qw(first);

  my $match = first {/bWendyb/i} @names; #找到第一個Wendy即終止

  如果換成數位話,比如要求

  【例02】求1到1000之間的和

  常規做法:

  代碼如下:

  use 5.010;

  my $total = 0;

  foreach (1..1000) {

  $total += $_;

  }

  say $total; #結果500500

  如果改用List::Util模組提供的sum子程式,同樣很簡單:

   代碼如下:

  use List::Util qw(sum);

  my $total = sum(1..1000); #結果500500

  【例03】求一組數位最大值與最小值.

  常規做法:

   代碼如下:

  #! /usr/bin/perl;

  use utf8;

  sub max {

  my($max_so_far) = shift @_; #數組中第一個值,暫時當成最大值。

  foreach(@_){ #遍曆數組@_

  if($_>$max_so_far){ #看其它元素是否有比$max_so_far大的值。

  $max_so_far = $_;} #如果有話,更新最大值變數

  }

  $max_so_far;

  }

  my $_MaxData = &max(2,3,8,5,10);

  print $_MaxData; #結果為10

  如果改用List::Util模組提供的max子程式,則非常簡單:

   代碼如下:

  use List::Util qw(max);

  my $max = max(2, 3, 8, 5, 10);

  print $max; #結果為10

  同樣道理,使用List::Util模組提供的min子程式,可求最小值:

   代碼如下:

  use List::Util qw(min);

  my $min = min(2, 3, 8, 5, 10); #最小值為2

  【例04】對一組字串進行排序

  如果用常規方法的話,必須按順序一個個進行比較,用List::Util的maxstr子程式可以輕鬆實現:

   代碼如下:

  use List::Util qw(maxstr);

  my $max_str = maxstr( qw/Jerry Betty Alice Fred Barney jerry/ );

  print $max_str;

  【例05】對列表中的元素隨機排序

  如果用常規方法的話,很難實現,而用List::Util中的shuffle子程式,則非常簡單,一條命令搞定!

   代碼如下:

  use List::Util qw(shuffle);

  my @shuffled_nums = shuffle(1..10); # 3 9 8 5 6 4 1 10 2 7

  my @shuffled_name = shuffle('A'..'G');# F E G A B D

  【例06】檢查列表中是否沒有某個元素,或者有任何元素,或者所有元素都符合條件。支援類似grep文法

  如果用常規方法的話,很難實現,而用List::MoreUtils同樣很容易實現,代碼如下:

   代碼如下:

  use List::MoreUtils qw(none any all);

  my @numbers = qw(7 4 1 3 78);

  if (none {$_ > 100} @numbers) {print "No elements over 100n"; }

  elsif (any {$_ > 50}@numbers) {print "Some elements over 50n";}

  elsif (all {$_ <10} @numbers) {print "All elements < 10n";}

  NOTE: List::MoreUtils非內建的模組,需要下載.

  【例07】同時處理多個姓名列表,每次取出2位

   代碼如下:

  use List::MoreUtils qw(natatime);

  my @names_1 = qw(Alice Bob Carly);

  my @names_2 = qw(David Edward Foo);

  my $names = natatime(2, @names_1, @names_2); #natatim (N at a time:同時處理N組)有多個列表的話往裡面放就好了

  while (my @name = $names->()) { #遍曆,方便後面輸出

  print "Got @namen";

  }

  #輸出結果

  Got Alice Bob

  Got Carly David

  Got Edward Foo

  【例08】合并多個列表為一個列表

   代碼如下:

  use List::MoreUtils qw(mesh);

  my @array_1 = 'A' .. 'D';

  my @array_2 = 1 .. 4;

  my @array_3 = qw( jerry alice wendy );

  my @array_new = mesh(@array_1, @array_2, @array_3);

  print @array_new;

  #輸出結果:

  A=>1=>jerry=> B=>2=>alice=> C=>3=>wendy=> D=>4

  第1次: 第一個列表中取A,第二個列表中取出1,第三個列表中取出jerry

  第2次: 第一個列表中取B, 第二個列表中取出2,第三個列表中取出alice

  ......

  依次類推!

  【例09】往指定的字串中加字元

  可以用List::MoreUtils中的insert_after子程式

   代碼如下:

  use v5.10;

  use List::MoreUtils qw(:all);

  my @list = qw/This is a list/;

  insert_after {$_ eq 'a'} "longer" => @list;

  print @list; #This is a longer list

  【例10】對兩個列表進行操作,第一個列表平方後,和第二個列表求和

  可以用List::MoreUtils中的pairwise子程式

   代碼如下:

  use v5.10;

  use List::MoreUtils qw(:all);

  @m = (1..4);

  @n = (100..103);

  @x = pairwise { ($a*$a) + $b } @m, @n; #101 105 111 119

  【總結】

  如果上面的方式用普通的方法實現,需要多次迴圈遍曆,很麻煩,而將複雜的演算法,資料結構用C來實現並封裝在List模組中,則可以實現很多看似複雜的功能,從中也可以看出Perl的強大之處在於CPAN,有眾多的模組支撐!

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.