Help for this page

Select Code to Download

Select or download this

my %rc_hash         = ();
my $MAX_PROCESSES    = 120;
...
foreach my $key (keys %rc_hash){
      print "$key => $rc_hash{$key}\n";
}

Select or download this

my $dbh    = DBI->connect("DBI:mysql:database=mydb;host=$DB", "user", 
+"pass", {'RaiseError' => 1});
my $MAX_PROCESSES  = 120;
...
  $$dbhdl->do(INSERT INTO system_results ... .. );
}