Ausgabe vom Server wird nicht richtig abgeholt - #56079 (Allgemeines zu Perl)

esskar

2005-07-08 16:39

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

wenn weißt du doch aber nicht, ob der string eine fehlermeldung enthält oder nicht! oder doch?

wie wärs mit einem modul ala

Code: (dl )

package Sucker;

sub new {
...
}

sub suck(...) {
   my $self = shift;

   #
   # auswertungen
   #
  
   unless(error) return 1;
   else {
      $self->{lasterror} = $message;      
      return 0;
   }  
}

sub getlasterror {
   return shift->{lasterror};
}

1;

um rauszubekommen, welche funktion/package die suck funktion aufgerufen hat, kannst du caller benutzen

perldoc -f caller