Re: [問題] 如何從檔案裡取數字並相加
※ 引述《saka12 (saka)》之銘言：
: 大家好:
: 我手邊有一個檔案 input.txt 如下
: the 77 survey: 77 out of 100 people will not pick the number 1 as the first choice.
: A stitch in time saves 9 but only if you have exactly 9.
: 52 trombones were in 5 marching bands in the big parade of 52 and 52 people attended.
: 要取出每行的數字,去除重複的數字,並相加
: 77+100+1+9+52+5= 274
: 我已經把每行的數字取到陣列中,可是我不知道刪掉重複的數字
: 有想過用hash,可我怎麼寫都寫不出來,請大家給我一點提示
: 謝謝
非常直白的寫法
$string="your stirng";
@nums = ($string =~ /\d+/g);
%unique = map { $_, 1} @nums;
$sum += $_ for keys %unique;
print $sum;
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.109.22.80
推
02/09 12:58, , 1F
02/09 12:58, 1F
推
02/09 12:59, , 2F
02/09 12:59, 2F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 3 篇)：
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
