Unerwartetes Verhalten bei Operator überladen (gelöst) (Allgemeines zu Perl)

[thread]17686[/thread]

Unerwartetes Verhalten bei Operator überladen [gelöst]

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+11 replies
Muffi

2012-08-21 17:05
User since
2012-07-18
1465 Artikel
BenutzerIn
Also nicht, dass es so sonderlich wichtig wäre, aber irgendwie bin ich an der Stelle mit meiner Weisheit am Ende.
Und zwar bastel ich immer wenn wieder mal Zeit ist an meinem ORM weiter.

Momentan siehts so z.B. aus:
Code (perl): (dl )

$wartung->datum
datum ist eine generierte LVALUE sub, die ein auf Class::Date-Objekt zurücklässt, was widerum überladene Operatoren hat.

Was alles geht:
Code (perl): (dl )

1 2 3

$wartung->datum = $wartung->datum + '1D' $wartung->datum = date(time) $wartung->datum->add('1D')
[EDIT]
Sogar
Code (perl): (dl )

$wartung->datum--
zieht eine Sekunde ab... ich werd noch kirre.

Was nicht geht:
Code (perl): (dl )

$wartung->datum += '1D'
es kommt die Meldung: Argument "2015-09-30 00:00:00" isn't numeric in addition (+) at ...

Es scheint als würd Perl das Objekt vorher stringifizieren, aber warum?
Last edited: 2012-08-22 09:33:55 +0200 (CEST)
1 + 1 = 10
- +4 replies
- rosti
  
  2012-08-21 18:43
  
  User since
  2011-03-19
  3472 Artikel
  BenutzerIn
  
  Hast Du den Operator '+=' im pragma overload einer Methode zugewiesen?
  - +3 replies
  - Muffi
    
    2012-08-21 20:43
    
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Class::Date hat + überladen und fallback => 1, ich dachte dass das eigentlich reichen sollte. Zum Test hab ich in das package auch noch += auf die gleiche sub gelegt.
    Allerdings hab ich grad in perldoc im Zusammenhang von = immer wieder was von einem copy constructor gelesen, den ich noch nicht ganz verstehe. Morgen nochmal genauer durchlesen
    1 + 1 = 10
    - +2 replies
    - rosti
      
      2012-08-21 21:46
      
      User since
      2011-03-19
      3472 Artikel
      BenutzerIn
      
      Hab grad mal einen "Selftest" gemacht, es sollte eigentlich reichen, den '+' Operator zu überlagern, damit auch ein '+=' funktioniert; das geht, wenn die method das Objekt dann zurückgibt.
      
      Allerdings ist mir nicht ganz klar, was Du hier machst
      
      Code (perl): (dl )
      
      $obj->foo = $obj->foo;
      
      das macht mich neugierig, schreib mal bitte ein bischen mehr darüber.
      Viele Grüße,
      Rosti
      - Muffi
        
        2012-08-21 21:58
        
        User since
        2012-07-18
        1465 Artikel
        BenutzerIn
        
        in wiefern, was ich hier mache?
        1 + 1 = 10
- Gast gast
  
  2012-08-21 20:09
  
  Weißt du denn wie Operatoren überladen werden?
  Last edited: 2012-08-21 20:12:31 +0200 (CEST)
- +2 replies
- Gast Gast PB
  
  2012-08-22 11:29
  
  Hallo.
  
  Zitat aus perldoc overload Abschnitt Copy Constructor:
  
  Quote
  If 'fallback' is undefined or TRUE then a copy constructor can be autogenerated, but only for objects based on scalars. In other cases it needs to be defined explicitly. Where an object's data is stored as, for example, an array of scalars, the following might be appropriate:
  
  use overload '=' => sub { bless [ @{$_[0]} ] }, # ...
  
  und
  
  Quote
  If 'fallback' is TRUE and no copy constructor is defined then, for objects not based on scalars, Perl may silently fall back on simple assignment - that is, assignment of the object reference. In effect, this disables the copy constructor mechanism since no new copy of the object data is created. This is almost certainly not what you want. (It is, however, consistent: for example, Perl's fallback for the "++" operator is to increment the reference itself.)
  
  M.a.W. es fehlt höchstwahrscheinlich ein Copy-Konstruktor für Class::Date (basiert auf AREFs statt Scalar?).
  
  HTH
  - Muffi
    
    2012-08-22 12:03
    User since
    2012-07-18
    1465 Artikel
    BenutzerIn
    
    Code (perl): (dl )
    
    '=' => sub { print "DRIN\n"; $_[0]->clone },
    
    Aber der Effekt ändert sich nicht und auch das DRIN wird nicht ausgegeben.
    Was Perl kurz vor der Fehlermeldung tut ist '""' aufzurufen, wodurch dann der Fehler erzeugt wird. Wenn ich in der Stringify-methode eine Zahl zurückliefere ist der Fehler weg...
    
    [EDIT]
    Ich denke man kann sich eh die Grüblerei sparen, da egal welchen Test ich baue dieser funktioniert. Es muss irgendeine komische Kombination sein, die ich hab und die das Verhalten verursacht.
    Last edited: 2012-08-22 13:42:39 +0200 (CEST)
    1 + 1 = 10
- +3 replies
- Muffi
  
  2012-08-30 16:46
  User since
  2012-07-18
  1465 Artikel
  BenutzerIn
  Ich kanns endlich reproduzieren:
  
  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 24 25
  
  my %t; tie %t, 'TH'; $t{test} = date('2012-01-01'); print $t{test}-=5; # standard hashverhalten package TH; use Tie::Hash; sub TIEHASH { my $self = {}; my $class = shift; bless $self, $class; } sub STORE { $_[0]->{$_[1]} = $_[2]; } sub FETCH { return $_[0]->{$_[1]}; }
  
  Argument "2012-01-01 00:00:00" isn't numeric in subtraction (-)
  Last edited: 2012-08-30 16:48:25 +0200 (CEST)
  1 + 1 = 10
  - +2 replies
  - Gast wer
    
    2012-08-30 17:09
    funktioniert bei mir:
    
    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 24 25 26 27 28 29 30 31 32 33 34 35 36
    
    #!env perl use strict; use warnings; use Class::Date qw(date); print "Class::Date: ".$Class::Date::VERSION."\n"; print "Tie::Hash: ".$Tie::Hash::VERSION."\n"; print "OS: $^O\n"; print "PERL: ".(`env perl -v`)[1]."\n"; my %t; tie %t, 'TH'; $t{test} = date('2012-01-01'); print $t{test}." --> "; print $t{test}-=5; # standard hashverhalten package TH; use Tie::Hash; sub TIEHASH { my $self = {}; my $class = shift; bless $self, $class; } sub STORE { $_[0]->{$_[1]} = $_[2]; } sub FETCH { return $_[0]->{$_[1]}; }
    
    Code: (dl )
    
    1 2 3 4 5 6
    
    Class::Date: 1.1.10 Tie::Hash: 1.04 OS: linux PERL: This is perl 5, version 14, subversion 2 (v5.14.2) built for i486-linux-gnu-thread-multi-64int 2012-01-01 00:00:00 --> 2011-12-31 23:59:55
    
    Last edited: 2012-08-30 17:10:49 +0200 (CEST)
    - Muffi
      
      2012-08-30 20:44
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Achnö, ich bin jetzt nicht dauernd einem Perl 5.10-bug hinterhergejagt...
      Danke :) dann kann ich ja aufhören zu suchen
      
      [EDIT]
      Nachdem ich jetzt auch noch das use Tie::Hash; wegrationalisiert hab und das Datumsmodul gleiche Versionsnummerhat bleibt wirklich nur noch die Perlversion :-\
      Danke nochmal
      Last edited: 2012-08-31 11:42:28 +0200 (CEST)
      1 + 1 = 10

View all threads created 2012-08-21 17:05.