论坛 › Perl › Perl入门小程序

jinquan26 发表于 2018-9-1 08:29:14

Perl入门小程序

#!/usr/bin/perl -w　　#output the largest number from a file
　　$max_number = &max(3,5,10,4,6) ;
　　sub max
　　{
　　my($max_sofar_number) = shift @_ ;
　　foreach (@_)
　　{
　　if($_ > $max_sofar_number)
　　{
　　$max_sofar_number = $_ ;
　　}
　　}
　　$max_sofar_number ;
　　}
　　print "The largest number is $max_number \n";

查看完整版本: Perl入门小程序