exercism-perl5

Repository for my Perl 5 Exercism exercises
git clone git://git.samirparikh.com/exercism-perl5
Log | Files | Refs | README

ETL.pm (296B) - raw

      1 package ETL;
      2 use strict;
      3 use warnings;
      4 use Exporter qw<import>;
      5 our @EXPORT_OK = qw<transform>;
      6 
      7 sub transform {
      8   my ($data) = @_;
      9   my %new_score;
     10 
     11   foreach my $score ( keys %{ $data } ) {
     12       $new_score{ lc $_ } = $score foreach ( @{ $data->{ $score } } );
     13   }
     14 
     15   return \%new_score;
     16 }
     17 
     18 1;