Hash Schlüssel tauschen (Allgemeines zu Perl)

[thread]18856[/thread]

Hash Schlüssel tauschen

Tags: perl5 hash Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+2 replies

MarkusH

2014-01-18 12:01

User since
2012-04-08
162 articles
BenutzerIn
[default_avatar]

Hallo,

ich habe eine Exceltabelle mit rund 5000 Datensätzen die ich in als HoH darstelle. Eine Spalte ist dabei der Schlüssel, und die anderen Tabellenspalten (einer Zeile) werden als Schlüssel-Wert-Paare gespeichert.
Beispiel:
Gegeben sei eine Tabelle

Code: (dl )

name    |comment    |para1  |para2
----------------------------------
abca    |a_b__ca    |1      |2
abcb    |a_b__cb    |7      |2
abcc    |a_b__cc    |4      |2
abcd    |a_b__cd    |9      |2

Diese Tabelle wird in folgenden Hash gewandelt:

Code (perl): (dl )

my %hash = (
            abca => {comment => 'a_b__ca', para1 => 1, para2 => 2},
            abcb => {comment => 'a_b__cb', para1 => 7, para2 => 2},
            abcc => {comment => 'a_b__cc', para1 => 4, para2 => 2},
            abcd => {comment => 'a_b__cd', para1 => 9, para2 => 2},
        );

Gibt es eine "elegante" Möglichkeit, den Hash wie folgt umzuformen?

Code (perl): (dl )

my %hash2 = (
            a_b__ca => {comment => 'abca', para1 => 1, para2 => 2},
            a_b__cb => {comment => 'abcb', para1 => 7, para2 => 2},
            a_b__cc => {comment => 'abcc', para1 => 4, para2 => 2},
            a_b__cd => {comment => 'abcd', para1 => 9, para2 => 2},
        );

Natürlich könnte ich die Exceldatei auch neu einlesen.

$q =~ /(bb|[^b]{2})/

styx-cc

2014-01-18 12:34

User since
2006-05-20
533 articles
BenutzerIn

user image

Hi!

Code (perl): (dl )

#!/usr/bin/perl 
use strict;
use Data::Dumper;

my %hash = (
            abca => {comment => 'a_b__ca', para1 => 1, para2 => 2},
            abcb => {comment => 'a_b__cb', para1 => 7, para2 => 2},
            abcc => {comment => 'a_b__cc', para1 => 4, para2 => 2},
            abcd => {comment => 'a_b__cd', para1 => 9, para2 => 2},
        );
        
my %hash2;      
for (keys %hash) {
  my $tmp = $hash{$_};
  $hash2{ $tmp->{'comment'} } = $tmp;
  $hash2{ $tmp->{'comment'} }->{'comment'} = $_;
  #delete $hash{$_};
}

print Dumper %hash;
print "-" x50;

print Dumper %hash2;

Ob das elegant ist vermag ich nicht zu beurteilen.

Gruß

Pörl.

View all threads created 2014-01-18 12:01.