[MonetDB-users] copy ... from stdin in perl script

Hi,

I have table t1(f1 integer)

I can copy to it by executing this file via mclient:

$ cat /tmp/f1.sql copy into t1 from stdin; 1 2 3

But I can't copy to it by this perl script:

$ cat /tmp/f1.pl #!/usr/bin/perl -w use DBI; my $dbh = DBI->connect('dbi:monetdb:database=db', 'dbadmin', "dbpwd"); $dbh->do("copy into t1 from stdin;\n1\n2\n3\n");

I got:

Missing argument in sprintf at /usr/lib64/perl5/DBD/monetdb/GetInfo.pm line 25. No query result at /usr/lib64/perl5/MonetDB/CLI/MapiLib.pm line 80. Use of uninitialized value in die at /usr/lib64/perl5/MonetDB/CLI/MapiLib.pm line 180. (in cleanup) Died at /usr/lib64/perl5/MonetDB/CLI/MapiLib.pm line 180.

Why can it be?