久久一A电影91黄色视屏,亚洲av导航老人av

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案

Perl引用中直接引用用法解析

本文和大家重點討論一下Perl引用的概念，Perl中的Perl引用分為直接引用和符號Perl引用，這里只針對Perl直接引用進行介紹，希望本文的介紹能讓你有所收獲。
Perl直接引用

成都創(chuàng)新互聯(lián)堅持“要么做到，要么別承諾”的工作理念，服務領域包括：網(wǎng)站設計、成都網(wǎng)站建設、企業(yè)官網(wǎng)、英文網(wǎng)站、手機端網(wǎng)站、網(wǎng)站推廣等服務，滿足客戶于互聯(lián)網(wǎng)時代的萊蕪網(wǎng)站設計、移動媒體設計的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡建設合作伙伴！

Perl中的Perl引用分為直接引用和符號Perl引用，本文只針對直接Perl引用，至于符號Perl引用在以后的文章中會給出解釋。

1、一般的標量Perl引用。如：

 
 
 
  
  
  subadd{  
  
  
  my($a,$b)=@_;  
  
  
  $$a++;  
  
  
  $$b++;  
  
  
  }  
  
  
  $a=1;  
  
  
  $b=2;  
  
  
  add(\$a,\$b);  
  
  
  print"$a,$b\n";

輸出：2,3。
說明：取變量的Perl引用可以用“\”符號。解Perl引用用“$”符號。

2、數(shù)組的Perl引用

數(shù)組的Perl引用和標量的Perl引用一樣，在數(shù)組名前面加“\”，只是在解Perl引用的時候，使用@符號。如：
@abc=(1,2,3);
$ref=\@abc;
print“@$ref\n”;輸出1，2，3。
print“@$ref[0]\n”;輸出1。
對數(shù)組的Perl引用主要用在解決向函數(shù)傳遞若干個數(shù)組的問題。在Perl中，如果向函數(shù)傳遞若干個數(shù)組，則他們會將這些數(shù)組展開到@_數(shù)組中，并不能通過@_這個數(shù)組來區(qū)分傳遞過來的參數(shù)。
如：

 
 
 
  
  
  subadd{  
  
  
  my(@ref1,@ref2)=@_;  
  
  
  print(“ref1:@ref1\n”);  
  
  
  print(“ref2:@ref2\n”);  
  
  
  }  
  
  
   
  
  
  @a=(1,2,3);  
  
  
  @b=(1,2,3);  
  
  
  @ret=add(@a,@b);

實際輸出的是：ref1:123123
ref2:
可以看到，在子函數(shù)add中，并沒有區(qū)分傳遞過來的兩個參數(shù)。那么如何向函數(shù)傳遞多個數(shù)組或哈希表呢？
解決的辦法是使用數(shù)組Perl引用。如下這個例子說明了如何實現(xiàn)：

 
 
 
  
  
  subadd{  
  
  
  my@result;  
  
  
  my($ref1,$ref2)=@_;  
  
  
  while(@$ref1&&@$ref2){  
  
  
  unshift@result,pop(@{$ref1})+pop(@{$ref2});  
  
  
  }  
  
  
  return@result;  
  
  
  }  
  
  
   
  
  
  @a=(1,2,3);  
  
  
  @b=(1,2,3);  
  
  
  @ret=add(\@a,\@b);  
  
  
  print"@ret\n";

輸出：246

3、對哈希表的Perl引用

和數(shù)組類似，但是當解Perl引用時要使用$符號，如：
%hash=(abc=>123,def=>456);
$ref=\%hash;
print"%$ref\n";輸出：%HASH(0x83179b4)
print"$$ref{abc}\n";輸出：123

4、表的Perl引用

創(chuàng)建表的Perl引用將會把表中的***一個值作為產(chǎn)生的標量：
$reflist=\($a,$b,$c);
print$$reflist."\n";#輸出$c的值。
$reflist=\(1,2...30,40);
print$$reflist."\n"#輸出40

5、創(chuàng)建匿名數(shù)組的Perl引用

$arrayreference=[1,2,3];
print$$arrayreference[0];#輸出1
print$arrayreference->[0];#輸出1可以用箭頭解Perl引用

◆當用pop從數(shù)組中取值時，數(shù)組的***個元素會被彈出，但是如果用pop用于匿名數(shù)組時，可以實現(xiàn)取值而不影響原有數(shù)組，如：
@a=(1,2,3);
$s=pop@{[@a]};#perl作為快來計算@｛｝，而快在計算時將創(chuàng)建對匿名數(shù)組的Perl引用。
print“@a\n”;#輸出123

◆當反Perl引用數(shù)組Perl引用時，該結果將插入到字符串中，如：想實現(xiàn)輸出uc函數(shù)的返回結果：
print"uc(abc)\n";#輸出uc(abc),并不能將abc轉換成大寫
print"@{[uc(abc)]}\n"#輸出ABC,通過數(shù)組Perl引用實現(xiàn)大寫轉換。
可以通過$#$的方式取匿名數(shù)組的長度：
$a=[1,2,3,4];
print"$#$a\n"；#輸出3，（***一個元素的下標）

6、創(chuàng)建匿名哈希表的Perl引用

如：
$hashreference={Name=>Sylvster,Gender=>male};
print$hashreference->{"Name"};#輸出Sylvester，等價于：$$hashreference{Name};
如果需要用each遍歷哈希表，則：
while(($key,$value)=each(%$hashreference)){}

7、用匿名哈希表模仿用戶自定義數(shù)據(jù)類型

 
 
 
  
  
  subPoint{  
  
  
  ($x,$y)=@_;  
  
  
  return{  
  
  
  x=>$x,  
  
  
  y=>$y  
  
  
  };  
  
  
  }

當使用Point類型時，可以這樣做：
$point=Point(10,20);
print"x:$point->{x},y:$point->{y}\n";

8、在perl中創(chuàng)建***范圍閉包

例如：

 
 
 
  
  
  subPoint{  
  
  
  my$string1=shift;  
  
  
  returnsub{  
  
  
  my$string2=shift;  
  
  
  print("$string1,$string2\n");  
  
  
  };  
  
  
  }  
  
  
  $point=Point("Hello");  
  
  
  &$point("World");  
  
  
  &$point("guys");

Point函數(shù)返回一個對匿名子函數(shù)的Perl引用，變量string1被***的保存在了函數(shù)中，每次調用&$point，string1的值沒有改變，都是“Hello”。

【編輯推薦】

詳解Perl引用/指針用法
解析Perl引用中Perl直接應用用法
解析四大Perl操作符用法
淺析Perl面向對象編程用法
Perl標量轉換函數(shù)用法指南

當前題目：Perl引用中直接引用用法解析
網(wǎng)頁地址：http://m.5511xx.com/article/dhheggs.html

日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

新聞中心

其他資訊