Help for this page
if ($shpath) { #print SH "chmod 700 $shpath/shell_$ts.sh\n"; ... qq[plink -batch -pw "${passwd}" ${user}\@${server} -m + "${sh}" >> "${output}" 2>${outerr}\n]; } else { ...
#if ($sqlline =~ /^=/) { # Convert the output to record v +iew if prefixed by = # $sqlline =~ s/^=//; # trim off the = if ($sqlline =~ s/^=//) { # trim off '=' and convert recor +d view if prefixed by = $rsql = 1; }
#$server =~ s/\s+.*//; #$user =~ s/\s+.*//; ... #$dbpasswd =~ s/\s+.*//; #$shpath =~ s/\s+.*// if $shpath; map{$_ && s/\s.*//} $server,$user,$passwd,$dbconn,$dbuser,$dbpassw +d,$shpath;
www.com | www.net | www.org
There is too much technical debt in my codebase The stability of the system Perl suits me better I have to support users of some ancient version I'm stuck with ActiveState/TinyPerl/microperl/Strawberry ... Letting the early adopters trip over the bugs is fine Some other reason
Results (33 votes). Check out past polls.