Thread Mehrere IxHash übergeben (2 answers)
Opened by Kean at 2012-06-08 11:14

Kean
 2012-06-08 11:14
#158840 #158840
User since
2004-08-18
463 Artikel
BenutzerIn

user image
Ich würde gerne in einer Funktion mehrere IxHash erzeugen und am Ende übergeben.
Seltsamerweise wird bei der Übergabe alles in den ersten IxHash geschrieben.
Mache ich etwas falsch???

Bei ähnlichen Funktionen mit normalen Variablen funktioniert diese Technik.

Hier ein minimal Beispiel:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

use strict;
use warnings;
use Tie::IxHash;

my %hash1;
tie(%hash1, "Tie::IxHash");

my %hash2;
tie(%hash2, "Tie::IxHash");

(%hash1,%hash2) = createHash();

print "%hash1:\n";
while (my ($feld, $bezeichnung) = each %hash1)
        {
        print $feld."->".$bezeichnung."\n";
        }
        
print "%hash2:\n";      
while (my ($feld, $bezeichnung) = each %hash2)
        {
        print $feld."->".$bezeichnung."\n";
        }


exit;

sub createHash
{
my %hash1;
tie(%hash1, "Tie::IxHash");

my %hash2;
tie(%hash2, "Tie::IxHash");

$hash1{'Feld1'}='Wert1';
$hash2{'Feld2'}='Wert2';

return (%hash1,%hash2);

}


Und die Ausgabe dazu:

Code: (dl )
1
2
3
4
5
C:\Users\Tester\Desktop\pa-licmailer_aktuell>test.pl
%hash1:
Feld1->Wert1
Feld2->Wert2
%hash2:

View full thread Mehrere IxHash übergeben