Select Code to Download

$find = "find $args->{'path'}/ -name '$args->{'foo'}.*' -newer ~/start
+.txt ! -newer ~/end.txt | xargs grep -vh 'H\\|T' | awk -F, '{ if( \$1
+ !~ /\\// &    & \$1 >= $args->{'start'} && \$1 < $args->{'end'}){";
 
...
if($stderr){ print $stderr;}

@edr = split /\n/, $edr;

# io3 mloop, cin: 0, cout: 1, cerr: 0
# io3 fast, cin: 0, cout: 1, cerr: 0
...
# leaving _io3()
# _waitpid(22920) => pid: 22920, rc: 
Use of uninitialized value $edr in split at /home/bo/scripts/test.pl l
+ine 338.

# io3 mloop, cin: 0, cout: 1, cerr: 1
# io3 fast, cin: 0, cout: 1, cerr: 1
# stdout, bytes read: 15 at offset 0
...
# stderr, bytes read: 0
# leaving _io3()
# _waitpid(22922) => pid: 22922, rc: