[펄] 해시를 이용하여 특정조건에 부합하는 것들의 합을 구하기

#!/usr/bin/env perl
 
#
# CentOS 5.10, perl v5.8.8 에서는 rpmforge-extras repo에서 DBD 드라이버를 설치해야 했음
# $ sudo yum --enablerepo=rpmforge-extras install perl-DBD-SQLite
#
 
use strict;
use warnings;
use DBI;
 
sub fill_aws_tbl {
    my ($dbh, $txtfile) = @_;
    my $sth = $dbh->prepare( "SELECT name FROM sqlite_master"
                           . " WHERE type = 'table' AND name = 'aws_tbl'");
    $sth->execute();
    # fetch하기 전에는 항상 $sth->rows() == 0 이 나와서 판별이 안됨
    while (my @row = $sth->fetchrow_array) {}
    if ($sth->rows() == 0) {
        $dbh->do("CREATE TABLE aws_tbl (point integer, ymd text, temp integer)");
        $sth = $dbh->prepare("INSERT INTO aws_tbl VALUES(?, ?, ?)");
        open my $fh, '<', $txtfile;
        while (<$fh>) {
            next if $. == 1;   # 첫줄은 건너뜀
            my @arr = split;
            $sth->execute($arr[0], $arr[1], $arr[2]);
        }
    }
    $sth->finish();
}
 
sub analyze_aws {
    my ($dbfile, $txtfile) = @_;
    my $dbh = DBI->connect(
        "dbi:SQLite:dbname=$dbfile",
        "",
        "",
        { RaiseError => 1 },
    ) or die $DBI::errstr;
    #printf("AutoCommit == %d\n", $dbh->{AutoCommit});
 
    # aws_tbl 테이블이 존재하지 않으면 테이블을 만들고 데이터를 읽어들임
    # 이미 테이블이 존재하면 그냥 리턴
    fill_aws_tbl($dbh, $txtfile);
 
    my $sth = $dbh->prepare( "SELECT point, substr(ymd,1,4) 'year', sum(temp-18) 'sum'"
                           . "  FROM aws_tbl"
                           . " WHERE temp >= 18"
                           . " GROUP BY 1, 2"
                           . " ORDER BY 2, 1" );
    $sth->execute();
    while (my @row = $sth->fetchrow_array) {
        print "$row[0] $row[1] $row[2]\n";
    }
 
    $sth->finish();
    $dbh->disconnect();
}
 
analyze_aws("aws.db", "aws.txt");

$ ./aws.pl
90 1991 3
91 1991 8
90 1992 24
91 1992 14

#!/usr/bin/env perl
 
use strict;
use warnings;
use 5.010;
 
my($i,$point,$year,@sum,%sum,@arr);
 
for ($i=1991; $i<=1992;$i++) {
 
open my $fh, '<', "aws.txt";
while (<$fh>) {
    # [1] 데이터파일 첫줄은 "포인트 년월일 기온" 헤더이므로 건너뜀
    next if $. == 1;
    @arr=split;
        $point = $arr[0];
        $year = substr $arr[1], 0, 4;
            # [2] 비교문이 아닌 대입문으로 되어 있었음
            if ($year == $i){
                if ($arr[2] >= 18.0){
            $sum{$point}{$year}{d} += ($arr[2] - 18);
            }
    }
}
 
foreach(sort {$a<=>$b} keys(%sum)) {
    # [3] $year 를 $i 로 수정함
    say join("\t",$_, $i, $sum{$_}{$i}{d});
   }
}