作者salagadoola (南瓜)
看板perl
标题Re: [问题] 加总的函式
时间Sun Sep 16 02:53:23 2007
※ 引述《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