Help for this page

Select Code to Download


  1. or download this
    my %names;
$names{$linename.$counter} = "use pricedb;" ;
  2. or download this
    #my $line1 = "use pricedb;";

...
for my $counter (1 .. 10) {
    my $rowsaffected = $dbh ->do($lines[$counter]);
#...
  3. or download this
    
for my $line (@lines) {
    my $rowsaffected = $dbh ->do($line);
#...