Help for this page

Select Code to Download


  1. or download this
    Bareword "a" not allowed while "strict subs" in use at sortHashForInse
+rt line 5.
Bareword "b" not allowed while "strict subs" in use at sortHashForInse
+rt line 5.
...
Bareword "e" not allowed while "strict subs" in use at sortHashForInse
+rt line 5.
Bareword "l" not allowed while "strict subs" in use at sortHashForInse
+rt line 6.
Bareword "p" not allowed while "strict subs" in use at sortHashForInse
+rt line 6.
  2. or download this
    use strict;

...
my $statement = 'insert into this (' . (join ",", @cols) . ') values (
+' . (join ",", @vals) . ')';

print "$statement\n\n";