作者abliou (把青春freeze)
看板Perl
标题Re: [问题] 如何取出字串中的数字并加以运算
时间Sun Jan 29 15:19:30 2012
※ 引述《saka12 (saka)》之铭言：
: 大家好,我式perl的新手
: 请问如果从<STDIN>输入任意数字或字母,
: 在不使用"阵列"跟"正规表示法"的前提下,
: 怎麽只取数字,并运行基本的运算
: 例如:
: 使用者输入: 1 12 3 a 24 e 5
: 萤幕显示: 1+12+3+24+5=45
: 我本来用substr来取单一字元,可是这样12会被拆成1跟2,
: 我卡这里很久了,实在想不出来,所以请大家帮帮忙
: 谢谢D
$in=<stdin> ;
chomp($in);
sub{ print join("+",@_ )."=". ${[map{$sum+=$_}@_]}[-1] }
->(grep{/\d+/}split/\s/,$in);
--
如果青春注定要向前跑
他妈的...那我的出口在那?
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 111.81.116.254