perl - 简单的 perl 添加程序出错了吗？

Question

嗨，我是一个新手 perl 学习者这个简单的 perl 程序

$inputline= <STDIN>;
print "first input";
print( $inputline); 
$inputline=<STDIN>;
print "second input";
print($inputline);
$sum= $inputline+$inputline;
print"sum 1stinput and 2ndinput";
print($sum);

输出

perl count.pl
3
4
first input3
second input4
sum 1stinput and 2ndinput : 8

为什么输出是 8 而不是 7？

Answer 1

因为当它是 4 时，你将 $inputline 添加到它自己。

如果你想对两个输入求和，你要么必须用两个变量来做，要么在变量改变之前做加法。例如:

my $input1 = <>;
my $input2 = <>;
my $sum = $input1 + $input2;
print "Sum: $sum";

或者

my $input = <>;
my $sum = $input;
$input = <>;
$sum += $input;
print "Sum: $sum";

你可以做一些更简单的事情，例如:

perl -nlwe '$sum += $_; print "Sum: $sum";'

这基本上等同于:

use strict;
use warnings; # always use these

my $sum;
while (<>) {  # your input
    $sum += $_;
    print "Sum: $sum\n";
}

使用 Ctrl-C 或 Ctrl-D 跳出循环(Windows 中为 Ctrl-Z)。