Anfänger OO-Frage (Seite 2) (Allgemeines zu Perl)

[thread]12226[/thread]

Anfänger OO-Frage (Seite 2)

Tags: OOP Ähnliche Threads

Leser: 1

LanX-

2008-07-23 18:56

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

mal sauber und selbsterklärend länglich hingeschrieben

Code (perl): (dl )

package http_link;
sub new {
        my $classname = shift;
        my $hash_ref = {};            # neues Hash anlegen
        $hash_ref->{id} = shift;   # init
        $hash_ref->{link} = shift;
        
        bless $hash_ref,$classname; # Objekt mit Klasse verknüpfen
        return $hash_ref;
}
        
sub get_id{
        my $self = shift;
        return  $self->{id} ;
}

PS: ungetestet!

me and my writeups

Gast Gast

2008-07-23 19:00

Gast+2008-07-23 15:05:19--

Code (perl): (dl )

 my $Referenz = bless {
      id => 61,
   }, $Objekt;
   return Referenz;# $self wäre üblicher. von da her tippfehler.

mfg Dirk

vielen Dank, jetzt funktionierts

Gast Gast

2008-07-23 19:22

ok, nun hab ich nur noch ein problem, versprochen ;-)

Code (perl): (dl )

sub sethost{
        my $Objekt = shift;
        my $hash_ref = {}; 
        $hash_ref->{host} = shift;
        bless $hash_ref,$Objekt;
}

gibt ein

Code: (dl )

Attempt to bless into a reference at test.pl line 5.

LanX-

2008-07-23 19:32

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

new() ist eine Klassenmethode und unterscheidet sich fundamental von den anderen Instanzmethoden.

klasse->new() übergibt als 1. Argument den Namen der Objektklasse
$obj->methode() übergibt als 1. Argument die Referenz zur Objektinstanz

me and my writeups

LanX-

2008-07-23 19:35

User since
2008-07-15
1000 Artikel
BenutzerIn

user image

ich vermute du willst folgendes

Code (perl): (dl )

sub set_host{
        my $self = shift;
        $self->{host} = shift;
}

me and my writeups

Gast Gast

2008-07-23 21:37

LanX-+2008-07-23 17:35:08--
ich vermute du willst folgendes
Code (perl): (dl )
1
2
3
4
sub set_host{
        my $self = shift;
        $self->{host} = shift;
}