Skip navigation.

L4bm0s' s Blog

Better never to begin than never to make an end..

perl数组简单应用

利用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;
}

赢了总算装上Linux了

Write a comment

Comment
(BBcode and HTML is turned off for anonymous user comments.)

Please type this security code : cf12ef

Smilies