return-Funktion neu schreiben / überladen (Allgemeines zu Perl)

Gast Gast

2006-02-22 10:28

Hallo,

ich möchte die return-Anweisung etwas erweitern.
z.B. soll sie nicht nur einen wert zurückliefern sondern auch noch etwas in eine Logdatei schreiben. Kann mir da jemand helfen?
Das soll dann so aussehen:

sub neue_return_funktion{
schriebe_logteitei('lognachricht');
# hier irgendwie aus der aufrufenden funktion heraus springen.
# wen ich hier nur return schreibe, springt man aus der funktion
# 'neue_return_funktion' heraus, aber nicht aus der aufrufenden
# Funktion.
}

danke für Hilfe
MR

esskar

2006-02-22 23:48

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

das bekommst du nicht hin. man könnte sich zwar folgendes vorstellen:

Code: (dl )

sub return {
  print "Hallo\n";
  CORE::return @_;
}

aber in diesem Fall würde das CORE::return aus der Funktion return springen und nicht aus einer Funktion, die return aufruft.

betterworld

2006-02-23 00:28

User since
2003-08-21
2614 Artikel
ModeratorIn

user image

Brauchst Du das zum Debuggen? Dann lies mal "perldoc perldebug"

Lieblingsmodule: CPAN:

IPC::System::Simple, CPAN:

Path::Class

ptk

2006-02-23 01:29

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Guck dir mal Module wie Hook::WrapSub an. Dort kannst du zusätzlichen Code vor und nach jedem Subroutinen-Aufruf ausführen lassen.

morph

2006-02-23 05:04

User since
2007-12-06
79 Artikel
BenutzerIn

Hi,

würde das nicht auch ausreichen?

Code: (dl )

sub logit {
   # öffne, schreibe und schließe Logdatei
}

sub other_function {
   # code
   &logit($return_value);
   return($return_value);
}
$var = &other_function($foo,$bar);

-uw

renee

2006-02-23 06:41

User since
2003-08-04
14371 Artikel
ModeratorIn

So was kann man natuerlich auch benutzen, besser sind da aber Module wie CPAN:

Log::Log4perl

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

morph

2006-02-23 06:52

User since
2007-12-06
79 Artikel
BenutzerIn

[quote=renee,23.02.2006, 05:41] CPAN:

Log::Log4perl[/quote]
Das sieht in der Tat interessant aus.

-uw\n\n

renee

2006-02-23 07:33

User since
2003-08-04
14371 Artikel
ModeratorIn

Dazu gibt's auch nen Artikel: http://www.linux-magazin.de/Artikel/ausgabe/2003/01/perl/perl.html

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

morph

2006-02-23 07:41

User since
2007-12-06
79 Artikel
BenutzerIn

Super Sache, vielen dank für den Link. Das Modul findet sich sogar im Debian Sarge Repository, das ist in der Tat angenehm.:)

Code: (dl )

package_name: liblog-log4perl-perl

-uw

smallish

2006-02-23 12:26

User since
2005-10-13
28 Artikel
BenutzerIn
[default_avatar]

ich habe noch eine ganz "böse" (mit einem sehr bösen goto &methode) und caller verwirrende methode gefunden wie man es machen könnte:

Code: (dl )

use strict;
use warnings;

my $log = "ich bin der log!";

print "vor funktion\n";
funktion($log);
print "nach funktion\n";

sub return_me  {
  my ($log) = @_;
  print "$log\n";
  return;
}

sub funktion {
  print "in funktion!\n";
  goto &return_me;
  print "ich werde nicht ausgedruckt!";
}

NACHTRAG: funktioniert nicht mit übergabe von parametern, also
eigentlich wertlos... Sorry!\n\n