Perl

這裏--我今天研究了 Perl 語言

它的速度能夠和C至關（固然會慢一點）

#把列表的值賦給個一個array數組
@array=5..9;
$a=pop(@array);
print "this is $a";
$k=0;
while($k<$#array){
print "\n$array[$k++]\n";
}
push(@array,1..100);
$k=0;
while($k<$#array){
print "\n$array[$k++]\n";
}

 它會比C更好的編寫--對於C中的數組，要初始化其內存空間，而相對於

perl而言，並不關心其大小，能夠大膽告訴你，你電腦硬件內存有多大，它就能夠有多大

#把列表的值賦給個一個array數組
@array=5..9;
#彈出棧頂的值
$a=pop(@array);
print "this is $a";
$k=0;
while($k<$#array){
print "\n$array[$k++]\n";
}
#把相應的數值放到數組中去--固然這裏能夠是你輸入的字符
push(@array,1..100);
$k=0;
while($k<$#array){
print "\n$array[$k++]\n";
}
chomp($test=<STDIN>);
push(@array,$test);
push(@array,45);
$k=0;
#perl 數組的小標和C不同--其求出的數組大小和下標是同樣的（也就是說：其最大的下標就是）
#其最大的長度
while($k<=$#array){
print "\n$array[$k++]\n";
}

 

 

@rocks=qw{pxy myox ui iop};
push(@rocks,2..3);
print "  @rocks  ";
$ui[0]=90;
$ui[1]=903;
$ui[2]=903;
$ui[3]=90;
$ui[4]=90;
print "\n @ui \n";
$k=0;
while($k<=$#ui){
print "\n $ui[$k++]\n";
}
##這裏會出現一個郵箱@字符串的問題--如pxy@p123.com--這會@p123會被替換的--不過這裏能夠解決
chomp($test=<STDIN>);
push(@rock,$test);
print "\n 看結果 @rock \n";
print "  ytutu\@ppp789.com \n";

 

#### perl foreach 的使用---能夠方便的遍歷數組
foreach $rocks(qw/pxy yui try/){
print "One rock is $rocks. \n";
}
#### perl other
@array=(1..10);
print "\n @array \n";
#### perl
$k=0;
while($k<=$#array){
print "\n$array[$k++]\n";
}

 

@array=(1..10);##賦值
foreach $array(@array){##迭代
print "\n $array \n";
}

 ####數組的翻轉
@array=(1..12);
@reserver_array=reverse(@array);
print "\n@array\n";
print "\n@reserver_array\n";

 

####數組的排序
@array=(1,4,3,7,9,4,3);
@array=sort(@array);
print "\n@array\n";

 

###Perl 的強大之處
@people=qw(we we bh rt yu);
@people=sort(@people);
$num=45+@people;###上下文就不同，所處理的問題就不同
print "打印的結果爲:::$num\n";
print "結果是50 ---搞定你們---"

 

##context
@array="pxy" .  "pui"  . "isofisopi";
print "\n@array\n";
foreach $array(@array){
print "\n$array\n";###默認的小標識---$_
}
###兩次循環的結果都是---pxypuiisofisopi
## 說明其就把這串字符串放在了列表中的一下標
#############來咱們在看看下面的操做後--認證一下上面的結論
push(@array,67);
foreach $array(@array){
print "\n$array\n";
}
print"搞定你們\n";

###列表和標量的轉換
@array=qw(er ty ui op);
print "把列表轉換成變量爲::::",scalar @array,"\n";
print "結果爲4\n"; 

 

###
chomp(@array=<STDIN>);
foreach $array(@array){
print "\n $array\n";
}
@p=reverse(@array);
print "@p";
print "\n搞定你們\n";

 

 

###
###計算平均值
sub about_verage{
my @ab=@_;
my $n=0;
my $av=0;
foreach(0..$#ab){
$av+=$ab[$_];
}
$av=$av/$#ab;
return $av;
}
sub getResult{
my @ac=@_;
my $av=&about_verage(@_);
print "av is $av\n";
my @result;
my $nn=0;
foreach(0..$#ac){
if($ac[$_]>$av){
$result[$nn++]=$ac[$_];
}
}
return @result;
}
@array=qw(5 6 7 8 8 5);
@array=getResult(@array);
foreach(0..$#array){
print "ok -- $array[$_]\n";
}

 

-------------------------------------------

進行循環的輸入和輸出--知道輸入小於0 的值

 

 

------------------------------------------------

sub add{ my($n1,$n2)=@_; my $sum; print "n1 is $n1, n2 is $n2\n"; return ($sum=$n1+$n2); } chomp($tr=<STDIN>); while($tr>0){ chomp($arr=<STDIN>); chomp($arr1=<STDIN>); $yu=&add($arr,$arr1); print "sum is $yu\n "; chomp($tr=<STDIN>); } print "sum is ",&add(1,2),"\n";