激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

腳本之家,腳本語言編程技術及教程分享平臺!
分類導航

Python|VBS|Ruby|Lua|perl|VBA|Golang|PowerShell|Erlang|autoit|Dos|bat|

香港云服务器
服務器之家 - 腳本之家 - perl - perl push的用法及子程序返回值的反思

perl push的用法及子程序返回值的反思

2020-06-10 10:38anquye200 perl

以下的程序,輸出一串數字中比平均值大的數,其中有兩個問題值得注意,具體請看程序中的注釋

pop 操作將數組的最后一個元素取出并返回:

@array=5..9;
$fred=pop(@array); #$fred 得到 9,@array 現在為(5,6,7,8)
$barney=pop@array; #$barneygets8,@array 現在為(5,6,7)
pop@array; #@array 現在為(5,6)(7 被丟棄了)
最后一個例子中,pop 使用在"inavoidcontext",也就是說沒有存放其返回值的地方。這樣使用 pop 是合法的。

如果數組為空,那 pop 什么也不做(因為沒有元素可以移出),并返回 undef。

你可能已注意到 pop 后可以使用或者不使用括號。這在 Perl 中是一條通用規則:如果去掉括號含義不變,那括號就是可選
的◆。和 pop 相反的操作是 push,它可以將一個元素(或者一列元素)加在數組的末尾:
◆受過相應教育的人將發現,這是同義反復。
push(@array,0); #@array 現在為(5,6,0)
push@array,8; #@array 現在為(5,6,0,8)
push@array,1..10; #@array 現在多了 10 個元素
@others=qw/9 0 2 1 0/;
push@array,@others; #@array 現在又多了 5 個元素(共有 19 個)
push 的第一個參數或者 pop 的唯一參數必須是數組變量。
 

復制代碼 代碼如下:

#!/bin/perl
sub above_average 

  $number=@_; 
  foreach $how(@_) 
  { 
     $total=$total+$how; 
  } 
  $the_average=$total/$number; 
  foreach (@_) 
  { 
     if ($_>$the_average) 
     { 
        push(@larger,$_)#這里不用賦值,數組元素的添加,直接用push就好了 
     } 
  } 
  @larger;#子程序的返回值,一定要有,剛開始沒有寫 

print "please input several numbers,and you will get the number which is large than their average\n"; 
@the_number_input=<STDIN>; 
@the_number_larger=above_average(@the_number_input); 
print "@the_number_larger\n";

 

延伸 · 閱讀

精彩推薦
  • perlperl常見問題集合之二

    perl常見問題集合之二

    哪些平臺上有 Perl?要到哪里去找? Perl的標準發行版(由 perl 發展小組負責維護)僅以原始碼形式發行。您可在 http: //www.perl.com/CPAN/src/latest.tar.gz處取得。這個檔...

    腳本之家2102020-05-29
  • perlPerl List::Util模塊使用實例

    Perl List::Util模塊使用實例

    這篇文章主要介紹了Perl List::Util模塊使用實例,本文給出掃描符合條件的某個列表并取出第一個符合條件的、求1到1000之間的和 、求一組數字的最大值與最小...

    腳本之家4712020-06-22
  • perlperl use vars pragma使用技巧

    perl use vars pragma使用技巧

    perl 中的vars是perl中的一個pragma(預編譯指示符),專門用來預定義全局變量,這些預定義后的全局變量在qw()列表中,在整個引用perl文件中皆可使用,即便使...

    perl教程網6812020-06-16
  • perlPerl使用nginx FastCGI環境做WEB開發實例

    Perl使用nginx FastCGI環境做WEB開發實例

    這篇文章主要介紹了Perl使用nginx FastCGI環境做WEB開發實例,實現了路由系統和模板系統,需要的朋友可以參考下...

    Perl教程網2412020-06-18
  • perlperl命令行參數內建數組@ARGV淺析

    perl命令行參數內建數組@ARGV淺析

    這篇文章主要介紹了perl命令行參數內建數組@ARGV淺析,本文重點在于講解@ARGV的用法,并通過實例來說明,需要的朋友可以參考下 ...

    perl教程網6162020-06-18
  • perlPerl的經典用法分享

    Perl的經典用法分享

    Perl的經典用法分享,學習perl的朋友可以參考下 ...

    腳本之家6562020-06-06
  • perlPerl從文件中讀取字符串的兩種實現方法

    Perl從文件中讀取字符串的兩種實現方法

    有時候我們需要從文件中讀取字符串,這里簡單介紹下, 需要的朋友可以參考下 ...

    腳本之家6252020-06-08
  • perlperl pop push shift unshift實例介紹

    perl pop push shift unshift實例介紹

    perl的pop跟push操作數組的最右邊,shift跟unshift操作數組的最左邊 ...

    腳本之家4612020-06-10
577
主站蜘蛛池模板: 精品国产96亚洲一区二区三区 | 国产成人综合在线视频 | 精品国产一区二区久久 | 欧美黄色大片免费观看 | www国产网站 | 在线视频a | 精品一区二区三区在线观看国产 | 特级西西444www大精品视频免费看 | 羞羞色在线观看 | wwwxxx免费视频| 91精品国产91热久久久做人人 | 欧美一级一区二区三区 | 婷婷精品国产一区二区三区日韩 | 亚洲综合91 | 得得啪在线 | 九九热视频在线 | 久久国精品 | 九九热在线视频免费观看 | 日本中文一级片 | 久久精品com | 国产亚洲精品综合一区91 | 久草在线手机视频 | 成人午夜一区 | 国产精品久久久久久久不卡 | 黄色电影免费提供 | 精品久久久久久久久中文字幕 | 免费黄色在线电影 | 久久99精品国产 | 久久国产精品小视频 | 欧美一级成人 | 欧美精品v国产精品v日韩精品 | 最新久久免费视频 | 老女人碰碰在线碰碰视频 | 国产精品中文在线 | 一道本不卡一区 | a视频网站 | 一分钟免费观看完整版电影 | 搜一级毛片 | 欧美人的天堂一区二区三区 | 一区二区三区视频在线观看 | 久久成人国产精品 |