※ 引述《LiloHuang (相見不如懷念)》之銘言：
: ※ 引述《muchmoa (快給我簽證!!!!)》之銘言：
: : 請問perl的加總的函式可以用嗎？
: : 我想把一英文字串拆開，
: : 每個英文字代表一個數字，然後把他們都加起來，
: : 有這樣的功能嗎？謝謝
: #!/usr/bin/perl
: $sum += $_ for unpack("C*","abc"); # unpack "abc" to ASCII Code
: print $sum; # It should be 294
數字要自己指定的話，那是像這個意思嗎：
%h = ( a => 1, b => 2, c => 3 );
$sum += $h{$_} for split( //, "abc" );
print $sum, "\n"; # It should be 6
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.113.23.102