perl - 为什么 perl 在我的数据库有值(value)的时候把空的放在我的数据库上？

Question

我正在做一个项目，我想将一些数据插入数据库。我创建了数据库和表，但遇到了一些问题。

我决定写一个测试程序，下面是我的程序代码:

#!/us/bin/perl                                                                                                                                
use strict;
use warnings;
use Data::Dumper;
use DBI;

my $localtime = localtime(time);
print $localtime,"\n",;
my $char_data;
open(my $fh, "<", "/root/testfile/1453800452_5.117.219.107.bin");

while (<$fh>){
    $char_data .= $_;
}
print $char_data,"\n",;
my @Record = unpack('C*',$char_data);
my @IMEI = splice @Record,0,17;

my $IMEI = pack('C*',@IMEI);
  #print$IMEI,"\n";                                                                                                                             
my $dbh = DBI->connect("DBI:Pg:dbname=test;host=localhost","postgres", "", {PrintError=>0,RaiseError=>1});
my $sth=$dbh->prepare(qq/insert into testtime(time,data,imei) values(?,?,?)/);
$sth->execute($localtime,$char_data,$IMEI);

这是我的数据库:

time -----> timestamp without time zone

data------->text

imei-------->varchar           

这是我打开的文件的内容:

^@^O356307043839678^@^@^@^@^@^@^AM^H^K^@^@^AR}DB^H^@^^\2458\340^UJ(\300^D\356^@^@^H^@^@^@^@^@^@^@^@^@^@^AR}CW0^@^^\2458\340^UJ(\300^D\357^ @^@^\H^@^@^@^@^@^@^@^@^@^@^AR}Bl\224^@^^\2458\340^UJ(\300^D\356^@^@^@ ^@^@^@^@^@^@^@^@^@^AR}A\201\344^@^^\2458\340^UJ(\300^D\357^@^@ ^@^ @\^@^@^@^@^@^@^@^@^AR}@\227>^@^^\2458\340^UJ(\300^D\351^@^@^H^@^@ ^@^@^@^@^@^@^@^@^AR}?\254\254^@^^\2458\340^UJ(\300^D\347^@^@^H^@^ @^@^@^@^@^@^@^\@^@^AR}>\302^P^@^^\2458\340^UJ(\300^@^@^@^@^@^@^@^@^@^@^@^@^@ ^@^@^AR}=\327j^@^^\2458\340^UJ(\300^@^@^@^@^@^@^@^@^@^@^@^@^@^ @^@^AR<\354\330^@^\^\2458\340^UJ(\300^@^@^@^@^@^@^@^@^@^@^@^@^@^@^@^AR<^B2^@^^\2458\340^UJ(\300^D\213^@(^K^@^@^@^@^@^@^@^@^@^@^AR};^W\226^@^^\2458\340^UJ(\300^D\\215^@(^L^@^@^@^@^@^@^@^@^K^@^@~A

我的问题是每次运行程序时，只有本地时间被插入数据库，imei 和数据都将保持为空。

谁能帮我解决这个问题？

Answer 1

PostgreSQL 不允许数据类型为 text 的列包含空字符，以及您尝试存储在 data 和 中的字符串imei 列以空字符开头

你应该使用bytea的数据类型来代替

此外，当您读取二进制文件时，您应该使用 :raw 的 IO 模式，而不是连接多行，您应该将记录分隔符 $/ 设置为undef 像这样

my $char_data = do {
    open my $fh, '<:raw', '/root/testfile/1453800452_5.117.219.107.bin' or die $!;
    local $/;
    <$fh>;
};

与其使用 unpack 将字符串拆分为数组，然后使用 pack 将其重新转换为字符串，不如使用 substr 像这样选择字符串的一部分

my $IMEI = substr $char_data, 0, 17

---

当您使用非标准数据类型时，您需要做的不仅仅是将字符串传递给 execute 方法。下面是一个示例程序，向您展示如何将数据类型与新准备的语句中的占位符相关联。只需为每个语句句柄执行一次。此后，DBI 将知道如何翻译传递给 execute

的每个参数

我只为第二个和第三个占位符调用了 bind_param。 PostgreSQL 对 time 数据类型的简单字符串值很满意

我已经使用Data::Dumper 来显示$imei 变量在写入数据库之前的内容，以及记录中的所有值从数据库中检索后。可以看到，两者如期匹配

use strict;
use warnings 'all';
use feature 'say';

use DBI;
use DBD::Pg qw/ PG_BYTEA /;
use Data::Dumper;
$Data::Dumper::Useqq = 1;
$Data::Dumper::Terse = 1;

my $char_data = do {
    open my $fh, '<:raw', '1453800452_5.117.219.107.bin';
    local $/;
    <$fh>;
};

my $imei = substr $char_data, 0, 17;
say Dumper $imei;

my $dbh = DBI->connect(
    "DBI:Pg:dbname=test;host=localhost",
    'postgres', '',
    {
        PrintError => 0,
        RaiseError => 1,
    }
);

$dbh->do('DROP TABLE test');

$dbh->do(<<'END_SQL');
CREATE TABLE test (
    "time"  timestamp without time zone,
    "data"  bytea,
    "imei"  bytea
)
END_SQL

my $insert = $dbh->prepare('INSERT INTO test (time, data, imei) VALUES (?, ?, ?)');
$insert->bind_param(2, undef, { pg_type => PG_BYTEA });
$insert->bind_param(3, undef, { pg_type => PG_BYTEA });

$insert->execute(scalar localtime, $char_data, $imei);

my @row = $dbh->selectrow_array('SELECT * FROM test');

say Dumper \@row;

输出

"\0\017356307043839678"

[
  "2016-01-31 17:20:08",
  "\0\017356307043839678\0\0\0\0\0\0\1M\b\13\0\0\1R}DB\b\0\36\\2458\\340\25J(\\300\4\\356\0\0\b\0\0\0\0\0\0\0\0\0\0\1R}CW0\0\36\\2458\\340\25J(\\300\4\\357\0\0\34 H\0\0\0\0\0\0\0\0\0\0\1R}Bl\\224\0\36\\2458\\340\25J(\\300\4\\356\0\0 \0\0\0\0\0\0\0\0\0\0\1R}A\\201\\344\0\36\\2458\\340\25J(\\300\4\\357\0\0 \0\0\\ \0\0\0\0\0\0\0\0\1R}\@\\227>\0\36\\2458\\340\25J(\\300\4\\351\0\0\b\0\0\0\0\0\0\0\0\0\0\1R}?\\254\\254\0\36\\2458\\340\25J(\\300\4\\347\0\0\b\0\0\0\0\0\0\0\0\34 \@\0\1R}>\\302\20\0\36\\2458\\340\25J(\\300\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\1R}=\\327j\0\36\\2458\\340\25J(\\300\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\1R}<\\354\\330\0\34 \0342458\\340\25J(\\300\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\1R}<\0022\0\36\\2458\\340\25J(\\300\4\\213\0(\13\0\0\0\0\0\0\0\0\0\0\1R};\27\\226\0\36\\2458\\340\25J(\\300\4\\ \\215\0(\f\0\0\0\0\0\0\0\0\13\0\0~A\n",
  "\0\017356307043839678"
]