Question

I am new to Perl and need some help.

In Mysql I have a table with a todo-List filled up.

At the beginning of my script, I want to add these values to “my %todo”

But I can’t figure out how to do this…

Any idea?

Answer 1

I don’t understand why you ask for “load array” and specify a hash %todo, but if you want to read a table into memory once, you should look at the $dbh->selectall_arrayref() method.

Added: See if this get you started:

    my $dsn = '...';
    my $user = '...';
    my $password = '...';
    my $dbh = DBI->connect( $dsn, $user, $password, { RaiseError => 1, AutoCommit => 0 } );
    my $sql = 'SELECT ... FROM Todo';
    my %todo = ();
  if (0) {
    my $sth = $dbh->prepare( $sql );
    $sth->execute();
    while (my $aref = $sth->fetchrow_arrayref()) {
      $todo{ $aref->[ 0 ] } = $aref->[ 1 ];
    }
    $sth->finish();
  } else {
    my $aref = $dbh->selectall_arrayref($sql);
    for (@$aref) {
      $todo{ $_->[ 0 ] } = $_->[ 1 ];
    }
  }
    for (keys( %todo )) {
      print $_, "\n", $todo{ $_ }, "\n\n";
    }
    my $rc = $dbh->disconnect();