Perl-Hash/Array-Implementierung für Hadoop

Question

Ich bin neu in Perl und versuche herauszufinden, die beste Möglichkeit, dies zu implementieren, aber im Moment unsicher in der Syntax.

Mein Skript von jetzt liest eine Datei aus HDFS, die Schlüssel, Wert-Paare aus einer Reihe von Möglichkeiten enthält.

Zum Beispiel, sagen wir mal, dass ich Schlüssel, die reichen von A, B, C, D, E

Die Datei lese ich bin von Newline wird getrennt aussehen haben:

A,50 
C,30 

In meinem Skript möchte ich die Datei lesen und Variablen den entsprechenden Werten zuweisen, und wenn keine Variablen existieren, möchte ich sie einem Nullwert zuweisen.

Also, bis zum Ende des Skripts, möchte ich eine Ausgabe haben, die diese druckt wie:

A=50,B=0,C=30,D=0,E=0 

Mit meinem begrenzten Wissen in Perl, ich habe mich gefragt, wie man die beste Schleife einzurichten zu sammeln die Informationen wie das wäre? Ich habe Funktionalität, die die Datei liest, aber nichts, um die Metriken in eine Art von Array oder Hash-Gruppierung zu sammeln.

Answer 1

use strict; 
use warnings; 

my @keys = qw(A B C D E);  
open my $fh, '<', $filename_from_hdfs 
    or die "$!"; 

my %mapping; 
while (my $line = readline($fh)) { 
    chomp($line); 
    my ($key, $value) = split /,/, $line; 

    $mapping{$key} = $value; 
} 

# zero out keys with no value 
$mapping{$_} //= 0 foreach @keys; 

print join(',', map { "$_=$mapping{$_}" } sort keys %mapping), "\n"; 

Answer 2

my %result; 
#assign zero to all keys 
for my $key ('A' .. 'E') 
{ 
$result{$key} = 0; 
} 
#open file, read each line one by one 
#Split each read line from file in ($key, $value). 
result{$key} = $value; 

#After finishing reading the file, traverse %result and output key, values