( xbit | 2006. 02. 18., szo – 14:32 )

ez igy nem megoldhato, ha atirod a filet futas kozben, de nem olvasod ujra es ugy futtatod a subot, attol meg a program elinditasanak pillanataban leforditott kod fut futni.

mindenkeppen do kell, egy egyszeru pl:

use sigtrap 'handler', \&my_handler, 'USR1';
use strict;
use warnings;
no warnings qw( redefine );

sub load{
my $x;
eval { $x = do conf }; // conf a config file neve, hibaellenorzes
print $@ if $@;
$x;
}

my $a = load;

sub my_handler
{
print "SIGUSR1!!!!\n";
$a = load;
}

while(1) {
print "$a\n";
sleep 5;
}

van egy conf nevu file is, ami tartalmazza azt a perl kifejezest, amit szeretnek a valtozonak adni.