用perl 写个加法程序

[cliffbaby]

浙大 ACM 的 1001 。
输入
1 2
输出
3


用perl怎么解决这题？
http://acm.zju.edu.cn/onlinejudge/showProblem.do?problemCode=1001

[maskhywind]

#! /usr/bin/perl
$num=<STDIN>;
chop (@num);
@num= split (/\s/, $num);
$sum=$num[0]+$num[1];
print "$sum";

[jiaojianbo88]

4楼，如果人家输入3个以上数字怎么办，呵呵

[一只牛_007]

[Quote=引用 4 楼 maskhywind 的回复:]

#! /usr/bin/perl
$num=<STDIN>;
chop (@num);
@num= split (/\s/, $num);
$sum=$num[0]+$num[1];
print "$sum";
[/Quote]
正解。如果一定要只有两个数，那么就做个判断
if (@num==2)
{
}
else
{
}

[一只牛_007]

更正：是chomp不是chop。

[jiaojianbo88]

my $inputnum1=<STDIN>;
my $inputnum2=<STDIN>;
my $sum=$inputnum1+$inputnum2;
print "$sum\n";
你要的是这个吗？

[cliffbaby]

[Quote=引用 1 楼 jiaojianbo88 的回复:]
my $inputnum1=<STDIN>;
my $inputnum2=<STDIN>;
my $sum=$inputnum1+$inputnum2;
print "$sum\n";
你要的是这个吗？
[/Quote]
题目里的 1 和 2 是 用空格分开的。不是一个数字一样。你这个我提交了不可以

[jiaojianbo88]

my $inputnum=<STDIN>;
my @inputnum=split(" ",$inputnum);
my $sum;
foreach my $table(@inputnum){
$sum += $table;

}
print "$sum";