Funktionsaufruf innerhalb der die-Methode (Allgemeines zu Perl)

[thread]13730[/thread]

Funktionsaufruf innerhalb der die-Methode

Leser: 24

Articles: hide open all | hide show old branches

+8 replies
Gast Frank85

2009-07-13 13:23
Hallo zusammen,
ich öffne eine Datei mit:
Code (perl): (dl )

open("...") || die $log->writeError("test");
Das Problem ist, dass er mir dann folgende Fehlermeldung ausgibt.
Can't call method "writeError" on an undefined value at ... Line ...

Eine Zeile darüber Funktioniert der gleiche Funktionsaufruf allerdings.
Es liegt also an der "die" - Funktion.
Die Variable ist also initialisiert.

Hat jemand da ne Idee?

Grüße
- Linuxer
  
  2009-07-13 13:25
  
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  
  $log ist zu dem Zeitpunkt "undef", wie die Meldung besagt.
  
  Ohne ausreichend Code ist das nicht zu lösen.
  Vielleicht versuchst Du bei open("...") ein Handle namens $log zu füllen???
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
- +6 replies
- pq
  
  2009-07-13 13:28
  
  User since
  2003-08-04
  12209 Artikel
  Admin1
  
  wenn perl dir sagt, die variable ist undef, dann ist sie undef. es sei denn, perl hat einen bug. um das aber rauszufinden, musst du schon code posten, den man ausprobieren kann und der den fehler *reproduziert*. wir können ja schliesslich nicht hellsehen.
  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
  - +5 replies
  - Gast Frank85
    
    2009-07-13 15:11
    Also die komplette Zeile sieht so aus:
    
    Code (perl): (dl )
    
    1 2 3
    
    my $log = LogKlasse->new("logdatei.txt"); # Funktioniert ohne Fehler $log->writeError("test123"); # Funktioniert ohne Fehler open(FILE, ">$outputfile") || die $log->writeError("test456"); #Und hier ist $log undef?!?
    
    Warum und wie kann ich es umgehen. Ohne $log funktioniert die Zeile übrigens.
    
    Grüße
    - +4 replies
    - pq
      
      2009-07-13 15:20
      
      User since
      2003-08-04
      12209 Artikel
      Admin1
      
      tja, auch das hilft nicht.
      du wirst mir zustimmen, dass eine variable nicht einfach so undef werden sollte. LogKlasse sieht schon vom namen her aus, als wär das was selbstgebasteltes. also musst du den fehler dort suchen (in writeError) oder eben den relevanten code posten.
      
      hier ein proof of concept:
      
      Code: (dl )
      
      1 2 3 4 5 6 7 8 9 10 11
      
      perl -wle' sub X::foo { undef $_[0]; print "X::foo()" } my $x = bless {}, "X"; $x->foo; $x->foo; ' X::foo() Can't call method "foo" on an undefined value at -e line 7.
      
      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
      - Gast Frank85
        
        2009-07-13 15:49
        
        Code (perl): (dl )
        
        1 2 3 4 5 6
        
        package LogKlasse; sub new {...} sub writeError{ print {$fh} $_[1],"\n"; } 1;
        
        $fh ist der Filehandler der beim Erstellen, der Klasse, erzeugt wird.
        
        Mehr macht die Funktion leider nicht und wie gesagt, eine Zeile vorher funktioniert die Funktion writeError ohne Probleme.
        
        Grüße
        
        moritz
        
        2009-07-13 15:53
        
        User since
        2007-05-11
        923 Artikel
        HausmeisterIn
        
        Das loescht zumindest nicht $log.
        
        So, nachdem uns die einzelnen Stuecke erfolglos gezeigt hast, kannst du auch mal ein lauffaehiges Programm zusammenstueckeln, das den gleichen Fehler zeigt. Dann koennen wir dir auch ernsthaft beim Debuggen helfen.
        Perl 6 - Perls Zukunft
        
        Taulmarill
        
        2009-07-13 16:45
        
        User since
        2004-02-19
        1750 Artikel
        BenutzerIn
        
        Also, folgendes Testprogramm läuft bei mir ohne Probleme:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
        
        use strict; use warnings; package LogKlasse; my $fh = *STDERR; sub new { bless {}, shift } sub writeErr { print {$fh} $_[1], "\n"; } package main; my $log = new LogKlasse; $log->writeErr("Fehler Nr.1"); open( FILE, "<notarealfile.txt" ) || die $log->writeErr("Fehler Nr.2"); close FILE;
        
        Damit dürfte der Fehler nicht in dem Stück Code liegen, das du gepostet hast. Bitte so weit ergänzen, dass der Fehler produziert wird.
        $_=unpack"B*",~pack"H*",$_ and y&1|0& |#&&print"$_\n"for@.=qw BFA2F7C39139F45F78 0A28104594444504400 0A2F107D54447DE7800 0A2110453444450500 73CF1045138445F4800 0 F3EF2044E3D17DE 8A08A0451412411 F3CF207DF41C79E 820A20451412414 83E93C4513D17D2B

View all threads created 2009-07-13 13:23.