Warnungen des Programms überwachen und ins error.log des Apache schreiben - #131921 (Webframeworks, Sonstige Fragen zur Webprogrammierung mit Perl)

bianca

2010-02-06 14:39

User since
2009-09-13
6977 Artikel
BenutzerIn

user image

2010-02-06T13:15:04 renee
Zeig mal etwas Code...

test1.pl:

Code (perl): (dl )

#!/usr/bin/perl -w
$| = 1;
use strict;
use warnings;
my $error_vorher = (!-z '/home/meinpfad/logs/error.log' ? 'EINTRAG' : 'leer');
require 'test2.pl';
&fehlersub ('foo');
my $error_nachher = (!-z '/home/meinpfad/logs/error.log' ? 'EINTRAG' : 'leer');
print "Content-Type: text/plain\n\nHallo!<br>vorher: $error_vorher<br>nachher: $error_nachher";

test2.pl:

Code (perl): (dl )

use strict;
use warnings;
sub fehlersub {
        my $bar = shift;
        my $foo;
        $bar += $foo;
}
return 1;

Ergebnis beim ersten Aufruf:

Code: (dl )

1
2
3

Hallo!
vorher: leer
nachher: leer

Beim zweiten Aufruf erst:

Code: (dl )

1
2
3

Hallo!
vorher: EINTRAG
nachher: EINTRAG

Woran liegt das?
Ich hätte gern NACH Aufruf von &fehlersub bereits das !-z mit true beantwortet :)

Edit: Typo
Last edited: 2010-02-06 14:50:56 +0100 (CET)

10 print "Hallo"
20 goto 10