Ein paar Fragen zur Objektorientierung (gelöst) (Raku / Perl 6)

[thread]16081[/thread]

Ein paar Fragen zur Objektorientierung [gelöst]

Tags: perl6 OOP Ähnliche Threads

Leser: 49

Articles: hide open all | hide show old branches

+5 replies
Sven_123

2011-03-17 11:24
User since
2010-06-01
120 Artikel
BenutzerIn
Zum Einstieg wollte ich einen kleinen Würfel erschaffen:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10

class wuerfel{ has $.augen is rw; method anschubsen{ $.augen = (20.rand+0.5).round; } } my $drachentoeter = wuerfel.new; $drachentoeter.anschubsen; say $drachentoeter.augen;
So wie es da steht, funktioniert auch alles, allerdings hab ich, ausgehend von der Version im Perl6-Tutorial, etwas basteln müssen und ich kann nicht ganz nachvollziehen, warum.
Ursprünglich hatte ich es mit einem bloßen has $.augen; versucht, und das twigil . in Anschubsen weggelassen, also $augen = (20.rand+0.5).round; (genaugenommen wollte ich auch 20.rand.ceil benutzen, aber ceil ist anscheinend noch nicht richtig implementiert).
Lässt man das is rw weg, beschwert sich rakudo, dass man einen readonly-value beschreiben möchte. Ist das gewollt? Denn eigentlich beschreibt ihn ja anschubsen, also eine Methode der Klasse... Ich dachte is rw bräuchte ich nur, wenn ich außerhalb der Klasse $drachentoeter.augen = 1; schreiben möchte.
Ohne den . wird $augen einfach als neue Variable erkannt ("Symbol '$augen' not predeclared in anschubsen..."). Ist es also generell so, dass Twigils mitgeführt werden müssen? Bei @*ARGS ist es z.B. ja auch so, nur war das Beispiel im Tutorial hier ohne.

Zum Schluss die hauptsächliche, eher generelle Frage, die ich habe:
Was genau passiert beim Aufrufen des Konstruktors? Ich hab kaum Erfahrung mit Objektorientierung, so, wie ich mir das zur Zeit vorstell wird im Endeffekt nur in $drachentoeter ein Zeiger gespeichert, der auf einen Platz irgendwo im Speicher (im heap vermutlich, aber bei perl hat man damit ja eh nichts zu tun) zeigt, der so groß ist, dass eine wuerfel-Instanz drin gespeichert werden kann. Der Minimale Konstruktor, den ich grad mit kurzem Ausprobieren, ausgehend von dem "Using Perl 6"-Buch gefunden hab wäre:
Code (perl): (dl )

method new{return self.bless(*)}
Eigentlich kann ich nur mit bless und dem * nichts anfangen. Ich schätze, dass bless die Speicherzuweisung übernimmt, aber wozu ist der Stern da?
Was ich eigentlich machen will, ist, gleich, wenn ich ein Objekt instantiiere (heißt das so?*g) eine Methode auszuführen. Ich weiß nur nicht so richtig, wie ich das schreiben soll, mit return endet ja mein new, aber vor dem return hab ich noch gar keine Instanz in der ich die Methode ausführen könnte, oder? (Zumindest funktioniert es so nicht...)
Last edited: 2011-03-17 12:13:12 +0100 (CET)
- +2 replies
- moritz
  
  2011-03-17 12:37
  User since
  2007-05-11
  923 Artikel
  HausmeisterIn
  2011-03-17T10:24:05 Sven_123
  allerdings hab ich, ausgehend von der Version im Perl6-Tutorial, etwas basteln müssen und ich kann nicht ganz nachvollziehen, warum.
  
  Welches Tutorial?
  
  Quote
  Ursprünglich hatte ich es mit einem bloßen has $.augen; versucht, und das twigil . in Anschubsen weggelassen, also $augen = (20.rand+0.5).round;
  
  Ich hab das mal hier erklaert:
  
  Quote
  Attributes are declared with the has key word, and have a "twigil", that is a special character after the sigil. For private attributes that's a bang !, for public attributes it's the dot .. Public attributes are just private attributes with a public accessor. So if you want to modify the attribute, you need to use the ! sigil to access the actual attribute, and not the accessor (unless the accessor is marked is rw).
  
  Du muesstest also $!augen = ... schreiben.
  
  Quote
  Was genau passiert beim Aufrufen des Konstruktors?
  
  http://perlgeek.de/blog-en/perl-6/object-construct...
  
  An deiner Stelle wuerde ich einfach schreiben:
  
  Code: (dl )
  
  1 2 3
  
  class Wuerfel { has $.augen = (1..20).pick; }
  
  Quote
  Ist es also generell so, dass Twigils mitgeführt werden müssen?
  
  Ja.
  
  Perl 6 - Perls Zukunft
  - Sven_123
    
    2011-03-17 12:45
    
    User since
    2010-06-01
    120 Artikel
    BenutzerIn
    
    Vielen Dank, mal wieder. Ich werd die links durchlesen, mit dem Tutorial meinte ich dieses hier.
- +2 replies
- hlubenow
  
  2011-04-02 15:39
  User since
  2009-02-22
  875 Artikel
  BenutzerIn
  2011-03-17T10:24:05 Sven_123
  Zum Einstieg wollte ich einen kleinen Würfel erschaffen:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10
  
  class wuerfel{ has $.augen is rw; method anschubsen{ $.augen = (20.rand+0.5).round; } } my $drachentoeter = wuerfel.new; $drachentoeter.anschubsen; say $drachentoeter.augen;
  
  Ugh, sieht für meine Begriffe immer noch sehr wenig intuitiv aus.
  Im Verhältnis zu Python (2.x) meine ich:
  
  Code (python): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
  
  #!/usr/bin/env python # coding: iso-8859-1 import random class Wuerfel: def __init__(self): self.augen = None def anschubsen(self): self.augen = random.randrange(20) + 1 drachentoeter = Wuerfel() drachentoeter.anschubsen() print drachentoeter.augen
  
  Das einzige, was man dabei wissen muß, ist, daß bei Instantiierung eines Objekts ("drachentoeter = Wuerfel()") automatisch die Funktion "__init__" in der Klasse aufgerufen wird, wobei "def" das Schlüsselwort für Funktionen ist (wie "sub" in Perl, bzw. hier offenbar "method").
  Der Rest ergibt sich mehr oder weniger.
  
  "$!augen = ...": Sowas versteht doch kein Mensch, jedenfalls nicht auf Anhieb, und nötig ist es offensichtlich auch nicht.
  
  Nachdem es nun schon so lange Python gibt, sollte man eigentlich erwarten dürfen, daß die Dinge endlich auch in Perl 6 einfacher werden. Werden sie aber offenbar leider nicht. Schade.
  
  Gruß
  Last edited: 2011-04-02 15:43:56 +0200 (CEST)
  - hlubenow
    
    2012-02-27 17:51
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    Es ist ja schon eine Weile her, daß ich das Posting, auf das ich mir hier selbst antworte, geschrieben hatte.
    Inzwischen habe ich gelernt, daß die Sache in Perl 5 auch nicht viel schwieriger als in Python 2.x ist:
    
    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
    
    #!/usr/bin/perl use warnings; use strict; package Wuerfel; sub new { my $classname = shift; my $self = {augen => undef}; return bless($self, $classname); } sub anschubsen { my $self = shift; $self->{augen} = int(rand(20)) + 1; } package main; my $drachentoeter = Wuerfel->new(); $drachentoeter->anschubsen(); print "$drachentoeter->{augen}\n";
    
    Das nur so zur "Ehrenrettung". ;) (Aber eigentlich ging es ja hier um Perl 6.)
    Last edited: 2012-02-29 17:04:21 +0100 (CET)

View all threads created 2011-03-17 11:24.