Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8913[/thread]

eine Frage zu objektorientertem Perl (Seite 13)



<< |< 1 ... 10 11 12 13 14 15 >| >> 150 Einträge, 15 Seiten
ASDS
 2007-04-18 12:01
#75917 #75917
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
hm jetzt aber.. nur jetzt kommt wieder der fehler mit: Use of uninitialized value in string at Baum1.pm line 70... und das wäre wieder unser print also
Code: (dl )
    print "$knoten->{'zahl'}";

in der sub Ausgabe\n\n

<!--EDIT|ASDS|1176883947-->
ASDS
 2007-04-18 12:15
#75918 #75918
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
Muss ich denn hier
Code: (dl )
1
2
3
sub ausgabe {
   my $self = shift;
   my $knoten = undef;
auch sagen, dass

Code: (dl )
 my $knoten     = $ref_wurzel;
ist?
renee
 2007-04-18 12:17
#75919 #75919
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
das ist aus Deiner sub ausgabe, richtig??
Code: (dl )
1
2
3
4
5
6
7
8
9
  my $self = shift;
  my $knoten = undef;
 
    if (defined($knoten->{'linksweg'}))
    {
        ausgabe($self, $knoten->{'linksweg'});
    }

    print "$knoten->{'zahl'}";


$knoten ist undef, also kann es $knoten->{zahl} nicht geben!
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-04-18 12:19
#75920 #75920
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
[quote=ASDS,18.04.2007, 10:15]Muss ich denn hier
Code: (dl )
1
2
3
sub ausgabe {
   my $self = shift;
   my $knoten = undef;
auch sagen, dass

Code: (dl )
 my $knoten     = $ref_wurzel;
ist?[/quote]
der erste Knoten ist ja dein $self, also musst Du da alle $knoten durch $self ersetzen...
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/
ASDS
 2007-04-18 12:22
#75921 #75921
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub ausgabe {
   my $self = shift;
   #my $knoten = undef;
   
    if (defined($self->{'linksweg'})) 
    {
    ausgabe($self->{'linksweg'});
    }
    print "$self->{'zahl'}";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($self->{'rechtsweg'})) 
    {
    ausgabe($self->{'rechtsweg'});
    }
}
Sorry ich bin zu dumm dazu... der fehler bleibt mir....
ASDS
 2007-04-18 12:23
#75922 #75922
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
oder hätt ich schreiben sollen
Code: (dl )
my $knoten = self;

lol, wahrscheinlich, oder?

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
sub ausgabe {
   my $self = shift;
   my $knoten = $self;
   
    if (defined($knoten->{'linksweg'})) 
    {
    ausgabe($self, $knoten->{'linksweg'});
    }
    print "$knoten->{'zahl'}";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($knoten->{'rechtsweg'})) 
    {
    ausgabe($knoten->{'rechtsweg'});
    }
}
hm so mag ers auch nicht..\n\n

<!--EDIT|ASDS|1176884738-->
renee
 2007-04-18 12:23
#75923 #75923
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Wie rufst Du die Methode denn auf?
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/
ASDS
 2007-04-18 12:27
#75924 #75924
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
sub Ausgabe { $ebaum ->ausgabe(@HinzufuegenListe);}


Code: (dl )
1
2
3
4
5
my @liste1 = ();
my @liste2 = (4, 28, 9, 100, 12, 84, 10, 11);
my @HinzufuegenListe = ();
my @NeuListe = ();
my $ebaum = undef;
renee
 2007-04-18 12:37
#75925 #75925
User since
2003-08-04
14371 Artikel
ModeratorIn
[Homepage] [default_avatar]
Also das hier funktioniert bei mir soweit:
Code: (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
62
63
64
65
66
67
68
69
70
71
72
#!/usr/bin/perl

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

my @array = (3,5,1,76,2,5,9,4,1,23,72,12);
my $ref = newtree(\@array);
#print Dumper ( $ref );
ausgabe( $ref );

sub newtree {
    my $ref_liste1 = shift;
    # Wurzel des Baums erzeugen
    my $ref_wurzel = knot(shift @$ref_liste1);
    my $knoten     = $ref_wurzel;
 
    for my $zzahl (@$ref_liste1){
        while (1){
            if($zzahl < $knoten->{'zahl'}){
                if(defined($knoten->{'linksweg'})){
                    $knoten = $knoten->{'linksweg'};
                }
                else {
                    $knoten->{'linksweg'} = knot($zzahl);
                    $knoten = $knoten->{linksweg};
                    last; #Ende
                }            
            }
            #wenns Links nicht mehr weiter geht, geh rechts weiter
            else {
                if ($zzahl >= $knoten->{'zahl'}) {
                    if(defined($knoten->{'rechtsweg'})){
                        $knoten =$knoten->{'rechtsweg'};
                    }
                    else {
                        $knoten->{'rechtsweg'} = knot($zzahl);
                        $knoten = $knoten->{rechtsweg};
                        last;
                    }
                }
            }
        }
    }
    return $ref_wurzel;
}

sub knot {
    my $knoten = {
        'zahl'      => shift,
        'linksweg'  => undef,
        'rechtsweg' => undef 
    };
    return $knoten;
}

sub ausgabe {
  my $self = shift;
  my $knoten = $self;
 
    if (defined($knoten->{'linksweg'}))
    {
    ausgabe($knoten->{'linksweg'});
    }
    print " $knoten->{'zahl'} ";
    # print "$self->{'wurzel'}->{'zahl'}\n";

    if(defined($knoten->{'rechtsweg'}))
    {
    ausgabe($knoten->{'rechtsweg'});
    }
}
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/
ASDS
 2007-04-18 12:40
#75926 #75926
User since
2007-01-29
115 Artikel
BenutzerIn
[default_avatar]
use Data::Dumper;
und ohne dem würds auch funktionieren? den hab ich ja nicht.
<< |< 1 ... 10 11 12 13 14 15 >| >> 150 Einträge, 15 Seiten



View all threads created 2007-04-10 15:14.