Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]9207[/thread]

new_hash = old_hash ....desaster: Hash bekommt Elemente übertragen,...



<< >> 4 Einträge, 1 Seite
xeroxed_yeti
 2007-07-19 12:30
#78647 #78647
User since
2007-07-19
12 Artikel
BenutzerIn
[default_avatar]
Hi zusammen,

mein Kopf qualmt und ich finde einfach nicht die Lösung! Ich hoffe ihr könnt mir helfen. Um auch euren Kopf zum rauchen zu bringen habe ich das Script minimiert, aber es beihaltet noch immer mein Problem. Ihr könnt das komplette Script kopieren, es ist lauffähig.

In dem unten aufgeführten Script habe ich einen Hash '%nodes'. Dessen Werte werden an 2 weiter Hashes, '%nodeRelation1' und '%nodeRelation2', übergeben.
Nachdem der erste Hash prozzessiert wurde stimmt die Ausgabe für '%nodeRelation1'.
Code: (dl )
1
2
3
4
5
6
7
8
existing nodeRelation1: GO:001 - red1
existing nodeRelation1: GO:002 - red2
existing nodeRelation1: GO:003 - red3

nodeRelation1: GO:001   1 red1
nodeRelation1: GO:002   1 red2
nodeRelation1: GO:003   1 red3
nodeRelation1: GO:004   0

nun startet der Teil wo '%nodeRelation2' bearbeitet wird. Auch dessen Werte lasse ich mir ausgeben.
Code: (dl )
1
2
3
4
5
6
7
existing nodeRelation2: GO:001 - blue1
existing nodeRelation2: GO:004 - blue2

nodeRelation2: GO:001   2 red1 blue1
nodeRelation2: GO:002   1 red2
nodeRelation2: GO:003   1 red3
nodeRelation2: GO:004   1 blue2


...was mich stutizg mach ist Tatsache, dass auf einmal Werte aus dem Hash '%nodeRelation1' im Hash '%nodeRelation2' auftauchen. Ich hätte viel mehr mit diser Ausgabe gerechnet:

existing nodeRelation2: GO:001 - blue1
existing nodeRelation2: GO:004 - blue2

nodeRelation2: GO:001 1 blue1
nodeRelation2: GO:002 0
nodeRelation2: GO:003 0
nodeRelation2: GO:004 1 blue2


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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

#/usr/bin/perl -w

use strict;
use warnings;

print  `clear`;
my %nodes = (
    'GO:001' => [0],
    'GO:002' => [0],
    'GO:003' => [0],
    'GO:004' => [0]
    );
    
my @valuesNode1 = (
    ['red1','GO:001'],
    ['red2','GO:002'],
    ['red3','GO:003']
    );
my @valuesNode2 = (
    ['blue1','GO:001'],
    ['blue2','GO:004']
    );


my %nodeRelation1 = %nodes;
foreach my $ref (@valuesNode1) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation1{$id}) {    
        print "existing nodeRelation1: $id - $value\n";
        # first element = scoring schmea, will be increased by 1
        ${$nodeRelation1{$id}}[0]++;
        # gene will be added to array
        push (@{$nodeRelation1{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation1) {
    my @tmp = @{$nodeRelation1{$key}};
    print "nodeRelation1: $key\t@tmp\n";        
}
print "\n";

my %nodeRelation2 = %nodes;    
foreach my $ref (@valuesNode2) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation2{$id}) {
        print "existing nodeRelation2: $id - $value\n";
        # first element = scoring schmea, will be increased by 1
        ${$nodeRelation2{$id}}[0]++;
        # gene will be added to array
        push (@{$nodeRelation2{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation2) {
    my @tmp = @{$nodeRelation2{$key}};
    print "nodeRelation2: $key\t@tmp\n";
}
print "\n";
\n\n

<!--EDIT|xeroxed_yeti|1184836959-->
renee
 2007-07-19 12:57
#78648 #78648
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das hat damit zu tun, dass Du Referenzen "kopierst".

Es ist ganz schön zu sehen mit:
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
42
43
44
45
46
47
48
49
50
51
52
53
54

#/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

#print  `clear`;
my %nodes = (
    'GO:001' => [0],
    'GO:002' => [0],
    'GO:003' => [0],
    'GO:004' => [0]
    );
    
my @valuesNode1 = (
    ['red1','GO:001'],
    ['red2','GO:002'],
    ['red3','GO:003']
    );
my @valuesNode2 = (
    ['blue1','GO:001'],
    ['blue2','GO:004']
    );


my %nodeRelation1 = %nodes;
foreach my $ref (@valuesNode1) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation1{$id}) {    
        ${$nodeRelation1{$id}}[0]++;
        push (@{$nodeRelation1{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation1) {
    print "nodeRelation1: $key\t",$nodeRelation1{$key},"\n";#@tmp\n";        
}
print "\n";
  
my %nodeRelation2 = %nodes;  
foreach my $ref (@valuesNode2) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation2{$id}) {
        ${$nodeRelation2{$id}}[0]++;
        push (@{$nodeRelation2{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation2) {
    print "nodeRelation2: $key\t",$nodeRelation2{$key},"\n";#@tmp\n";
}
print "\n";


Ausgabe:
Code: (dl )
1
2
3
4
5
6
7
8
9
10
nodeRelation1: GO:001   ARRAY(0x234f18)
nodeRelation1: GO:002   ARRAY(0x234ffc)
nodeRelation1: GO:003   ARRAY(0x234e34)
nodeRelation1: GO:004   ARRAY(0x18bb230)


nodeRelation2: GO:001   ARRAY(0x234f18)
nodeRelation2: GO:002   ARRAY(0x234ffc)
nodeRelation2: GO:003   ARRAY(0x234e34)
nodeRelation2: GO:004   ARRAY(0x18bb230)


Wie man sieht, sidn die "Adressen" der Arrays für beide Hashes gleich...\n\n

<!--EDIT|renee|1184835596-->
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
renee
 2007-07-19 13:11
#78649 #78649
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Das kannst Du so lösen:
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

#/usr/bin/perl -w

use strict;
use warnings;
use Data::Dumper;

#print  `clear`;

my @valuesNode1 = (
    ['red1','GO:001'],
    ['red2','GO:002'],
    ['red3','GO:003']
    );
my @valuesNode2 = (
    ['blue1','GO:001'],
    ['blue2','GO:004']
    );


my %nodeRelation1 = _get_base();
foreach my $ref (@valuesNode1) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation1{$id}) {    
        ${$nodeRelation1{$id}}[0]++;
        push (@{$nodeRelation1{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation1) {
    print "nodeRelation1: $key\t",$nodeRelation1{$key},"\n";#@tmp\n";        
}
print "\n";
  
my %nodeRelation2 = _get_base();  
foreach my $ref (@valuesNode2) {
    my $value = $ref->[0];
    my $id = $ref->[1];
    if (exists $nodeRelation2{$id}) {
        ${$nodeRelation2{$id}}[0]++;
        push (@{$nodeRelation2{$id}}, $value);
    }        
}
print "\n";
foreach my $key (sort keys %nodeRelation2) {
    print "nodeRelation2: $key\t",$nodeRelation2{$key},"\n";#@tmp\n";
}
print "\n"; 

sub _get_base{
    my %nodes = (
    'GO:001' => [0],
    'GO:002' => [0],
    'GO:003' => [0],
    'GO:004' => [0]
    );
    
    return %nodes;
}
OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/
xeroxed_yeti
 2007-07-19 13:25
#78650 #78650
User since
2007-07-19
12 Artikel
BenutzerIn
[default_avatar]
Hi Renee,

danke für den Tipp mit PERL, habe es gleich oben geändert.

Aber noch dankbarer bin ich für den Hinweis mit den Referenzen, manchmal sieht man vor lauter Bäumen den Wald nicht.

Bin gestern den ganzen Tag verzweifelt!!!

Jetzt läuft mein Script problemlos!

Ciao
<< >> 4 Einträge, 1 Seite



View all threads created 2007-07-19 12:30.