STDERR umleiten, aber wie flock einsetzen?

[Struppi]

ich habe mich durch die Doku gelesen.

use strict;
use warnings;

my $warn = [];
my $die  = [];

$SIG{WARN} = sub { push @$warn, @; };
$SIG{DIE}  = sub { push @$die, @; };

warn "WARNUNG\n";
die  "STERBEN\n";

print @$warn;
print @$die;

print "WENN DIESE ZEILE AUSGEGEBEN WIRD, HAT ALLES FUNKTIONIERT\n";

>   
> Leider funktioniert das nicht wie gewünscht. Das Skript endet bei  
> der Ausgabe von "STERBEN".  
>   
  
Naja, du musst die Arrays aus ausgeben, bzw. dein Ansatz "stirbt" andauernd in einer Endlosschleife die Perl unterbricht.  
  
Du musst bei die irgendetwas ausgeben, da danach das Programm zuende ist.  
  
Struppi.

-- 
[Javascript ist toll](http://javascript.jstruebig.de/)