Module: Objekte voneinander trennen? (Allgemeines zu Perl)

[thread]14698[/thread]

Module: Objekte voneinander trennen?

Leser: 19

Articles: hide open all | hide show old branches

+9 replies
Froschpopo

2010-02-19 15:29
User since
2003-08-15
2653 Artikel
BenutzerIn
Hallo :)

Ich hoffe der Titel trifft es einigermaßen.

habe folgendes Testmodul:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

package MyModules::Test; use strict; use warnings; sub new { my $class = shift; my $self = {}; bless($self, $class); return $self; } sub farbe { my ($self, $farbe) = @_; $self->{FARBE} = $farbe if(defined $farbe); return $self->{FARBE}; } 1;
Aufruf:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14

#!/usr/bin/perl use strict; use warnings; use MyModules::Test; my $obj = MyModules::Test->new; my $farbe_1 = $obj->farbe('rot'); my $farbe_2 = $obj->farbe('blau'); print $farbe_2->farbe; print $farbe_1->farbe; $farbe_2->delete;
Es wundert mich nicht, dass er immer erzählt, dass er Methode "farbe" nicht finden kann. Wie macht man das, dass es funktioniert?

Ich möchte die Objekte in einer Variablen speichern können um später damit noch weitere Dinge tun zu können (z.B. delete() usw.).

Ich hoffe ihr versteht mich :D
Es geht hier weniger um farben, sondern ich will vielmehr diese Vorgehensweise verstehen können.
Last edited: 2010-02-19 15:36:37 +0100 (CET)
- +2 replies
- murphy
  
  2010-02-19 15:35
  User since
  2004-07-19
  1776 Artikel
  HausmeisterIn
  2010-02-19T14:29:42 Froschpopo
  [...]
  habe folgendes Testmodul:
  
  Code (perl): (dl )
  
  1 2
  
  package MyModules::Test; [...]
  
  Aufruf:
  
  Code (perl): (dl )
  
  1 2 3
  
  [...] my $obj = MyModules::SQL->new; [...]
  
  Das, was da instantiiert wird, ist vielleicht gar keine Instanz von MyModules::Test und besitzt deshalb nicht die gewünschten Methoden?
  
  Um Genaueres sagen zu können, müsste man erstmal wissen, wo MyModules::SQL definiert wird, ob und wie es geladen wird und ob es eine Subklasse von MyModules::Test ist.
  When C++ is your hammer, every problem looks like your thumb.
  - Froschpopo
    
    2010-02-19 15:38
    
    User since
    2003-08-15
    2653 Artikel
    BenutzerIn
    
    Ups, das war nur ein Flüchtigkeitsfehler. Ich musste das Modul stark abspecken um es verständnis präsentieren zu können.
    
    Das Problem ist, dass $farbe_1 und $farbe_2 keine Basis haben. Schau dir mal genau die farbe()-Funktion an. Dann siehst du, dass es keinen Rückgabewert gibt der die Funktion irgendwie "bindet".
- +4 replies
- pq
  
  2010-02-19 15:43
  User since
  2003-08-04
  12208 Artikel
  Admin1
  2010-02-19T14:29:42 Froschpopo
  Aufruf:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7
  
  my $obj = MyModules::Test->new; my $farbe_1 = $obj->farbe('rot'); my $farbe_2 = $obj->farbe('blau'); print $farbe_2->farbe; print $farbe_1->farbe;
  
  [...]
  Ich möchte die Objekte in einer Variablen speichern können um später damit noch weitere Dinge tun zu können (z.B. delete() usw.).
  
  warum speicherst du eine farbe, die du gerade eben gesetzt hast, in einer neuen variable, bzw. warum rufst du danach eine objekt-methode auf einem farbstring auf?
  ersetzt in den letzten beiden zeilen einfach $farbe_x durch $obj.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +3 replies
  - Froschpopo
    
    2010-02-19 15:52
    User since
    2003-08-15
    2653 Artikel
    BenutzerIn
    
    Ich weiss, dass ich es durch $obj hätte aufrufen können. Aber genau das will ich eben nicht!
    
    Das ganze soll später mal eine Art ORM für SQL-Abfragen werden.
    Beispiel:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9
    
    my $obj = MyModules::Test->new; my $user_1 = $obj->select("SELECT * FROM user WHERE id = '3'"); my $user_2 = $obj->select("SELECT * FROM user WHERE id = '4'"); print $user_1->get; print $user_2->get; $user_2->delete; $user_1->sonstwas;
    
    Ich möchte die "Objekte" in einer Variablen haben um später verschiedene Sachen damit anstellen zu können.
    
    Hier mal ein Beispiel von DBI wo es sowas auch gibt:
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    my $sth_1 = $dbh->prepare("..."); my $sth_2 = $dbh->prepare("..."); ... $sth_2->execute(); $sth_1->execute(); $sth_2->finish;
    
    Dort kann ich die verschiedenen Funktionen getrennt voneinander abarbeiten.
    Last edited: 2010-02-19 15:54:38 +0100 (CET)
    - pq
      
      2010-02-19 15:55
      
      User since
      2003-08-04
      12208 Artikel
      Admin1
      
      du willst DBIx::Class neu schreiben? viel spass ;-)
      in dem fall musst du das datenbank-handle im objekt mitspeichern, bzw. ein schema-objekt. sonst hast du ja die info über die datenbank verloren.
      Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
      lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
    - pktm
      
      2010-02-19 17:02
      
      User since
      2003-08-07
      2921 Artikel
      BenutzerIn
      
      Na, bei dem Beispiel jetzt geht es, weil du 2 verschiedene Methoden hast. Eine für Aktionen (select()), die das Objekt wieder zurück liefern:
      
      Code: (dl )
      
      1 2 3 4
      
      sub select { my $self = shift; return $self; # hier kommt das Objekt wieder zurück }
      
      und eine für das Auslesen der Werte:
      
      Code: (dl )
      
      1 2 3 4
      
      sub get { my $self = shift; return $self->{wert_in_objekt}; # hier kommt nur ein wert, kein Objekt }
      
      Du willst aber, dass *ein und dieselbe Methode* rät, was du zurück haben willst. Ich weiß nicht ob das geht.
      Die Methode müsste dafür wissen, was sie tun soll. Woran soll die Methode erkennen, ob der Wert zurück kommen soll, oder das Objekt?
      
      Ich meine, ich hätte dazu mal irgendwo was im Umfeld von caller() gesehen.
      http://www.intergastro-service.de (mein erstes CMS :) )
- pktm
  
  2010-02-19 15:49
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Was soll denn deine Methode farbe() machen?
  
  Im Moment scheint es mir so, dass du gerne nach dem Aufruf von farbe() das komplette Objekt (das auch farbe() kann) erhalten möchtest. Das steht aber in Konflikt mit dem bisherigen Verhalten, die Farbe als String zurück zu liefern (also einen konkreten Wert im Objekt).
  http://www.intergastro-service.de (mein erstes CMS :) )
- esskar
  
  2010-02-19 16:20
  User since
  2003-08-04
  7321 Artikel
  ModeratorIn
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  package MyModules::Test; use base qw(Class::Accessor); use strict; use warnings; __PACKAGE__->mk_accessors(qw(farbe)); sub create { my $self = shift; my $args = shift || {}; $self->new($args); } 1;
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13
  
  #!/usr/bin/perl use strict; use warnings; use MyModules::Test; my $obj = MyModules::Test->new; my $farbe_1 = $obj->create({farbe => 'rot'}); my $farbe_2 = $obj->create({farbe => 'blau'}); print $farbe_2->farbe; print $farbe_1->farbe;
  
  so vielleicht? nicht getestet!

View all threads created 2010-02-19 15:29.