|
刚开始学习perl,尝试例子程序.代码如下:
#!/usr/bin/perl
@number=<STDIN>;
$maximum=&max(@number);
sub max{
my($max_so_far)=shift@_;
foreach(@_){
if($_>$max_so_far){
$max_so_far=$_;
}
}
$max_so_far;
}
print "the maximum number is $maximum!\n"
执行程序之后.你可以输入一些数字,然后取得这些数字中最大的哪个数是多少.输入用的是<STDIN>.想如果数字更多的话这样一个一个的输入很是麻烦,可不可以把想要比较的一些数字写入一个文件中,然后让程序自己读呢?先谢谢各位!
初学,多指点! |
|