Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use diagnostics;
- print "llama \n";
- print "system (qq(perl 'whilep.pl')) \n";
- system (qq(perl "whilep.pl"));
- print "vuelve \n";
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- #!/usr/bin/perl
- use strict;
- use warnings;
- use diagnostics;
- use Proc::Daemon; #Para correr script como demonio
- Proc::Daemon::Init; #Para correr script como demonio
- our $config = do 'while.cfg';
- our $wor = $config->{'wor'};
- our $PRUEB = "$wor/while.tmp";
- open (PRUEB,">$PRUEB");
- print PRUEB "algo \n";
- close PRUEB;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
Mi problema es que no se genera el archivo while.tmp cuando lo ejecuto como demonio. Si comento las líneas use Proc::Daemon; Proc::Daemon::Init; sí funciona, pero no es lo que necesito.
Espero que alguien pueda ayudarme a ver el problema.
¡¡Desde ya muchas gracias!!
