看板 [ Perl ]
討論串[問題] 如何取出字串中的數字並加以運算
共 9 篇文章
首頁
上一頁
1
2
下一頁
尾頁

推噓3(3推 0噓 2→)留言5則,0人參與, 最新作者cutecpu (可愛中央處理器)時間13年前 (2012/01/30 11:27), 編輯資訊
0
0
0
內容預覽:
以下是土法煉鋼法,沒有用到陣列跟正規表示式唷:. #!/usr/bin/perl -w. $partialSum = $sum = 0;. $expr = <STDIN>;. for(split('',$expr)){. if($_ ge '0' and $_ le '9'){. $partialS
(還有75個字)

推噓4(4推 0噓 1→)留言5則,0人參與, 最新作者CindyLinz (Cindy Wang)時間13年前 (2012/01/29 18:41), 編輯資訊
0
0
0
內容預覽:
一個以字串處理為主的解法:. $expr = <STDIN>;. chomp $expr;. $expr =~ s/(?<=\d)\D+(?=\d)/+/g;. $ans = eval $expr;. print "$expr=$ans\n";. --. 發信站: 批踢踢實業坊(ptt.cc).

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者abliou (把青春freeze)時間13年前 (2012/01/29 15:19), 編輯資訊
0
0
0
內容預覽:
$in=<stdin> ;. chomp($in);. sub{ print join("+",@_ )."=". ${[map{$sum+=$_}@_]}[-1] }. ->(grep{/\d+/}split/\s/,$in);. --. 如果青春注定要向前跑. 他媽的...那我的出口在那?. -

推噓4(4推 0噓 3→)留言7則,0人參與, 最新作者saka12 (saka)時間13年前 (2012/01/29 06:43), 編輯資訊
0
0
0
內容預覽:
大家好,我式perl的新手. 請問如果從<STDIN>輸入任意數字或字母,. 在不使用"陣列"跟"正規表示法"的前提下,. 怎麼只取數字,並運行基本的運算. 例如:. 使用者輸入: 1 12 3 a 24 e 5. 螢幕顯示: 1+12+3+24+5=45. 我本來用substr來取單一字元,可是這
首頁
上一頁
1
2
下一頁
尾頁