Posso qualsiasi organismo, spiega il dato sotto le righe di codice che ho difficoltà a comprendere che,


my $ ErrorLog \u003d "/ var / log / controler.log";

& initLanguage ($ lingua);
& launchCbox ();
sub launchCbox (

scr $ \u003d Term:: ScreenColor-> new;
$ scr-> clrscr ();
my ($ mode) \u003d @ _;
my $ errore \u003d 0;
my $ cbox_x \u003d $ dog_x + 3;

my $ args;
il mio box_args% \u003d% ($ args [3]);
$ args .\u003d "-d" se $ box_args ( "debug");
$ args .\u003d "-l" se $ (box_args "log");
$ args .\u003d "-L". box_args $ ( "lingua") (if $ box_args "lingua");

if ($ modo ne "restart") ($ scr-> a ($ y_pos, 3) -> mette ($ x. ".". $ txth-> gettext ( "5016"));)
else ($ y_pos \u003d $ dog_y_pos 3; $ scr-> a ($ dog_y_pos +3,3) -> mette ($ cbox_x "..". $ txth-> gettext ( "5016". "" x ($ status_bar_pos - (lunghezza ($ txth-> gettext ( "5016")) 7 ))));)

if (! $ XWindow) ( `perl . / cbox.pl 2>> / var / log / $ args cbox.log> / dev/tty9 `;)
else ( `perl . / cbox.pl 2>> / var / log / $ args cbox.log> / dev/pts/2 `;)
$ errore? & printNOK: &printOK;

)

Cordiali saluti,
Raheel.