我需要添加50位数字,所以我将它们作为"字符串"处理,并编写我自己的函数将它们加在一起.后来,为了它的地狱,我尝试了这个:
readFile(shift (@ARGV));
sub readFile
{
my $file = shift; #contains a bunch of 50-digit numbers
my $result = 0;
open (my $inFile, $file);
while (<$inFile>)
{
chomp;
$result += $_;
}
print $result;
}
Run Code Online (Sandbox Code Playgroud)
令我惊讶的是它奏效了.我不明白.在我曾经使用过的其他语言中,你必须使用某种特殊变量才能做到这一点.Perl会自动检测到您有一个非常大的数字并相应地处理它吗?如果是这样,如果提前知道他们将要处理非常大的数字,那么Perl模块是否比Perl处理它们更有效率?
提前致谢.
| 归档时间: |
|
| 查看次数: |
1083 次 |
| 最近记录: |