首頁(yè) 猿問(wèn) perl中函數(shù)調(diào)用的問(wèn)題？

perl中函數(shù)調(diào)用的問(wèn)題？

ThinkPHP

慕神8447489 2019-03-04 10:06:23

我想寫(xiě)個(gè)簡(jiǎn)單的程序，做練習(xí)用，剛接觸這個(gè)。就是連續(xù)數(shù)字的和。傳入起始值和結(jié)束值(如傳入1，和10，就求1到10累加的值)。perl這種語(yǔ)言感覺(jué)太惡心了，怎么寫(xiě)都錯(cuò)，完全沒(méi)C C# Java那么清晰。sub myfunc(){($startIndex,$endIndex)=@_;my $sum = 0;for($i=$startIndex;$i<=$endIndex;$i++){$sum = $sum+$i;}return $sum;}my $startIndex = 1;my $endIndex = 10;$s = myfunc();print "$s";上面的怎么錯(cuò)了。寫(xiě)成myfunc(1,10)時(shí)錯(cuò)的更厲害，完全弄不清楚perl是怎么搞的。還有函數(shù)里聲明的變量默認(rèn)是my 還是local的。哪位大蝦幫我看看，把程序更正下！謝謝...........

查看完整描述

3 回答

尚方寶劍之說(shuō)

TA貢獻(xiàn)1788條經(jīng)驗(yàn) 獲得超4個(gè)贊

sub myfunc {
my ($start, $end) = @_;
my $sum = 0;
$sum+= $_ for $start .. ($end+1);
return $sum;
}

print myfunc 1, 10;

反對(duì) 回復(fù) 2019-03-27

烙印99

TA貢獻(xiàn)1829條經(jīng)驗(yàn) 獲得超13個(gè)贊

#!/usr/bin/perl -w
sub myfunc(){
(my $startIndex,my $endIndex)=@_;
my $sum = 0;
for($i=$startIndex;$i<=$endIndex;$i++){
$sum = $sum+$i;
}
return $sum;
}
$s = &myfunc(1,10);
print "$s\n";

反對(duì) 回復(fù) 2019-03-27

明月笑刀無(wú)情

TA貢獻(xiàn)1828條經(jīng)驗(yàn) 獲得超4個(gè)贊

#子過(guò)程和函數(shù)不一樣
sub myfunc
{
my ($startIndex,$endIndex)=@_;
my $sum = 0;
for($i=$startIndex;$i<=$endIndex;$i++){
$sum += $i;
}
return $sum;
}
my $startIndex = 1;
my $endIndex = 10;
$s = myfunc($startIndex ,$endIndex);

print "sum is $s\n";

寫(xiě)perl了?找本駱駝書(shū)看吧.
感覺(jué)太惡心?那是因?yàn)樗淖髡呤莻€(gè)語(yǔ)言學(xué)家-_-##