빅데이터 하둡 프로그래밍 교육과정 ]reduce.pl.

빅데이터 하둡 프로그래밍 교육과정 ] reduce.pl.

빅데이터 하둡 프로그래밍 교육과정 ]reduce.pl.

실무개발자를위한 실무교육 전문교육센터학원

www.oraclejava.co.kr에 오시면 보다 다양한 강좌를 보실 수 있습니다.

reduce.pl.

#!/usr/bin/perl

my $sum = 0;

my $prev_key = "";

while (my $line = <>) {

   chomp($line);

   my @tokens = split(/\t/, $line);

   my $key = $tokens[0];

   my $value = $tokens[1];

   if ($key eq $prev_key) {

       $sum += $value;

   }

   else {

       if ($prev_key ne "") {

           print $prev_key . "\t" . $sum . "\n";

       }

       $sum = $value;

       $prev_key = $key;

   }

}

print $prev_key . "\t" . $sum . "\n";