Perlコーディング初心 ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
218:nobodyさん 08/03/24 22:49:38 レスあっただろ 219:nobodyさん 08/03/24 22:52:29 >>138 #!/usr/bin/perl -w use strict; # use Scalar::Util qw(looks_like_number); sub looks_like_number { $_[0] =~ /([0-9]+)/ ? $1 : 0 } my @arrangeData = ( 　　"name1\t1\t", "name2\t2\t", "name3\t\t", "name4\t4\t", 　　"name1\t10\t", "name2\t20\t", "name3\t\t", "name4\t40\t", ); my %hash; for (@arrangeData) { 　　my($name, $num) = split /\t/; 　　$hash{$name} += looks_like_number($num) ? $num : 0; } print "key:[$_] value:[$hash{$_}]\n" for sort keys %hash; 220:nobodyさん 08/03/24 23:29:25 >>219 その @arrangeData を >>217 のコードに食わせても 　name1 : 11 　name2 : 22 　name3 : 0 　name4 : 44 になるんよね。"name3\tぱ\t" にしたりしても。 データのフォーマットが本人の説明と違うように思う。 という指摘が前回もあったような。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4956日前に更新/211 KB
担当:undef