[問題] 如何取出字串中的數字並加以運算

[saka12 (saka)]

大家好,我式perl的新手

請問如果從<STDIN>輸入任意數字或字母,
在不使用"陣列"跟"正規表示法"的前提下,
怎麼只取數字,並運行基本的運算


例如:

使用者輸入:  1 12 3 a 24 e 5
螢幕顯示: 1+12+3+24+5=45


我本來用substr來取單一字元,可是這樣12會被拆成1跟2,
我卡這裡很久了,實在想不出來,所以請大家幫幫忙

謝謝D

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 24.130.53.186
推 imce:那就用for配substr把空格換成+再用eval算吧
推 drm343:hash 也不能用？
→ saka12:我有想過用hash,不過感覺行不通,因為隨機的輸入的數值
推 snowfly:split(/\s+/,$input);
→ dryman:用正規和陣列明明瞬間就做好了...
→ imce:應該是課還沒上到陣列，只上到運算符號而已吧。
推 CindyLinz:$input=~s/(?<=\d)\D+(?=\d)/+/g; $ans = eval $input;