If your reviewing the screen shots and wondering "whats the 7 -1?" uhhh this will make more sense:
http://www.gamersthreshold.com/ex.png
Thats running in a more detailed mode. Anyway the 7 -1 and other things I just threw in to test shuffling parameters and such around.
I've developed a cross platform process management module for win32 and linux, tested on XP/Fedora4. Same ideas as a module like Proc::Background on cpan, but solves some problems I had with start_in directorys under windows and I implemented things I needed like manipulating processes which are...
Better yet, see how in the screen shot it's reporting as "No error reported!"? Well I wanna compare how many times and how often errors happen and execute based on the collected data (perhaps stop executing, log specific things, or just alot of ideas to aid in debugging the server environment)...
I'm capturing errors, logging, and restarting as needed.
Heres a small piece of my code... But may give u a better understanding of what I'm doing. (Wrapper script, loads other scripts with Eval)
our ($lasterr, $conterr)=(0,0);
do {
logs::do(0, "Loading script: ".$cmd_path);
eval {...
I'm trapping errors from a wrapper script like the following:
eval { load(); };
Then errors are read with the $@ variable
Now lets say we encounter a problem like the following...
$hsoc = new IO::Socket::INET (
LocalHost => $LocalHost,
LocalPort => $HostPort,
Proto =>...
I have some ideas for a custom encryption for the software I'm working on, and I'm trying to get some input if this would be efficient enough for a server environment possibly under a large work load at times (especially if some newb is attempting to flood it, allthough security procedures they...
Never mind, right after making that last post I remembered a few places where it may happen. At the end of the foreach loop, the following code was fuxin me up:
$lcmd .= $ccmd; # Collect all other data together
I changed it to:
$lcmd .= $ccmd if $ccmd; # Collect all other data...
Any ideas on a fix? I'm sure it's something easy that I'm missing, but ya :-/
The routine returns like the following:
return \@ret;
It's asigned like the following:
$lcmd = &$ecmd(@tarr) if $ecmd;
And at this point it seems to be working, but then on the next foreach loop scope:
@tarr =...
What I've been writing is a module to process a string and execute code accordingly for a set of scripts i'm working on (ex: read data from sockets, hence making communication easier.) But heres my problem...
Heres actual code:
sub trim {
my $str = shift;
$str =~ s/^\s+//;
$str =~...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.