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";