Anfänger OO-Frage - #112484 (Allgemeines zu Perl)

Gast Gast

2008-07-23 14:13

Hallo Zusammen

Habe mich jetzt das erste mal mit PERL beschäftigt und bin etwas verwirrt. Wenn ich folgendes Program laufen lasse, kommt immer die Meldung

Code: (dl )

Can't locate object method "id" via package "http_link" at test.pl line 41.

Hier mein Programm:

Code (perl): (dl )

while (my $ref = $sth->fetchrow_hashref()) {
                push(@collection, http_link->new($ref->{'products_id'}, $ref->{'LiferantenLink'} ));
        }       
        
        print $collection[3]->getid;    

package http_link;
        my ($id, $link);
        sub new { 
                my $Objekt = shift; 
                $id = shift;
                $link = shift;
                my $Referenz = {};       
                bless($Referenz,$Objekt);    
                return($Referenz);
        }
        sub getid{
                my $Objekt = shift;
                return ($Objekt->id);      #Hier kommt der Error
        }

Ich kenne OO zwar aus C++ und JAVA, aber hier scheine ich irgendwas falsch zu verstehen. Währe um jede Hilfe sehr dankbar.