Perlコーディング初心者質問スレ Part 57

Perlコーディング初心者質問スレ Part 57 at PHP

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;

次ページ

続きを表示

1を表示