Re: READDIR and DBI

[marto]

Something like:

my $path = '/home/marto/code/';
# open dir
opendir(my $dh, $path) || die "Can't opendir $path $!";
# grep, testing for files
my @files= grep { -f "$path/$_" } readdir($dh);
closedir $dh;

# connect to sqlite db
my $dbh = DBI->connect('dbi:SQLite:dbname=filelist.sqlite','','');
# prepare insert 
my $sth = $dbh->prepare('insert into files(filename) values(?)');
# bind params
$sth->bind_param_array(1, \@files);
# execute
$sth->execute_array({ ArrayTupleStatus => \my @tuple}) or die $sth->er
+rstr;

[Anonymous Monk]

what sort of magic is that ?

$sth->execute_array({ ArrayTupleStatus => \my @tuple}) or die $sth->er

never see it before! what does it do?

[pryrt]

what sort of magic is that ?

$sth->execute_array({ ArrayTupleStatus => \my @tuple}) or die $sth->errstr;

It depends on which portion of that line seems like "magic" to you.

• LanX answered with the execute_array description.
• ArrayTupleStatus is described in the DBI bind_param_array and execute_array documentation.
• \my @tuple syntax is shown in the examples of that DBI documentation. The concept of creating an array and immediately getting a reference to that array is described in perlref: Assigning-to-References, and is essentially shorthand for calling my @tuple; in one line and then using \@tuple in the execute_array() call to pass the reference to the function. (This is my best guess as to what you would consider the "magic" portion of that line of code.)
• or die $sth->errstr is the typical way to raise an error with DBI, unless you use RaiseError

[LanX]

LMGTFY:

https://metacpan.org/pod/DBI#execute_array

Execute the prepared statement once for each parameter tuple (group of values) provided ... by prior calls to "bind_param_array" , ...

[justin423]

You and me both....

But it works...