perl数组简单应用
Monday, 9. April 2007, 09:33:37
利用perl查找某个数组中最大元素和最小元素的例子:
以下是C代码,其实可以看出,在处理排序等问题的时候,用C和perl是差不多的:
use strict;
use warnings;
my @array = (45,98,20,12,83,64,98,33,99);
my $biggest;
my $smallest;
$biggest = $array[0];
$smallest = $array[0];
for(my $index = 1; $index <= $#array;$index++){
if($array[$index] > $biggest){
$biggest = $array[$index];
}
if($array[$index] < $smallest){
$smallest = $array[$index];
}
}
print "Biggest is $biggest,smallest $smallest\n";
以下是C代码,其实可以看出,在处理排序等问题的时候,用C和perl是差不多的:
#include < stdio.h >
int main()
{
int array[9] = { 45 , 98 , 20 , 12 , 83 , 64 , 98 , 33 , 99 };
int biggest , smallest;
int i;
biggest = array[0];
smallest = array[0];
for(i = 1 ; i <= 8 ; i++)
{
if(array[i] > biggest)
{
biggest = array[i];
}
if(array[i] < smallest)
{
smallest = array[i];
}
}
printf("Biggest is %d , smallest is %d\n" , biggest , smallest);
return 0;
}

