Question

perl使用postgresql的copy问题

my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr;
my $rv=$dbh->do("copy data_yhm FROM '/home/kettle/yhm/aaa.data' DELIMITER '|'");
--------------使用copy是会报错，必须使用超级用户。但是我没有超级数据库用户的权限。
DBD::Pg::db do failed: ERROR: must be superuser to COPY to or from a file
HINT: Anyone can COPY to stdout or from stdin. psql's \copy command also works for anyone. at testPG_COPY.pl line 13.

my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr;
my $rv=$dbh->do("\\copy data_yhm FROM '/home/kettle/yhm/aaa.data' DELIMITER '|'");
------------使用\\copy则报下面语法错误
DBD::Pg::db do failed: ERROR: syntax error at or near "\"
LINE 1: \copy data_yhm FROM '/home/kettle/yhm/aaa.data' DELIMITER '|...
^ at testPG_COPY.pl line 13.

我想用perl来导文件到数据库，遇到这个问题，请问应该如何解决和，或者有其它导文件方式？谢谢

Answer 1

my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) or die $DBI::errstr;
my $sql=qq(copy data_yhm FROM '/home/kettle/yhm/aaa.data' DELIMITER '|');
my $sqle=$dbh->prepare($sql) 李李or die "120-Syntax error:$!\n";
$sqle->execute();
$dbh->commit;

按照这个代码试试,对于权拆橡限问题,你只哪御迟要把aaa.data,cp到其他路径,就可以了

追问

你用的是管理员账号吗？copy一直会报must be superuser to COPY to or from a file

追答

你在perl里面要定义好,你的db用户,已经你的db用户,有没有权限读取aaa.data文件

追问

文件权限没问题，可以读的。数据库是非管理员账号。我查阅了下资料，copy需要管理员账号来使用，并且是文件和数据库在同一个主机，\copy是普通数据库账号都可以用，是远程主机上的文件。但是在perl中使用\copy却会报语法错误

追答

1. 什么意思?copy是直接可以使用的,没有什么普通和特殊用户,提到用户,只是涉及到表上面.

2. 如果data_yhm 这张表不允许copy, 你直接给表grant all on data_yhm to user,这个user 就是你perl中用到链接数据库的用户.

3. 如果你的文件和数据库不在同一台机器上,那你就要想办法把它们弄到一起,这样copy才可以直接用.