使用SQL加载器和perl导入csv错误

大家好，我有个问题，希望你们能帮我。我试着把所有相关的信息都包括进去。我正在构建一个perl脚本，它最终将循环不同的sqlloader控制文件，并将它们各自的csv数据导入到oracle sql数据库表中。在循环之前，我正在测试多个控件负载。 问题是，即使脚本连接到数据库并上传所有csv数据，我也会收到一个错误，我看不到任何问题。所有行都已记录，而日志实际上没有帮助：

 ================================================================================
 [root@sanasr06 scripts]# perl db_upload.pl
 connection made! Starting database upload...
 Error: Can't open import control_general to SQL DB : at db_upload.pl line 44
 ================================================================================

第44行是系统连接：

系统（“sqlldr$userid\@$sid/$passwd control=@control\u pools log=$log silent=all”）或$logger->logdie（“错误：无法打开将控制数据导入SQL DB:$！”

我将包括控制文件输出、perl脚本和控制文件。（提到的跳过文件用于csv标题：）

==================================================================================

上面的文件当然是简短的，但包含所有相关信息。 下面是perl脚本

#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Log::Log4perl;
#this script loads multiple saved csv files into the database using the control files

################ Initialization #############################################
my $homepath = "/despliegue/san/project";

my $log_conf = "$homepath/logs/log.conf";
Log::Log4perl->init($log_conf)or die("Error: Can't open log.config Does it exist? $!");
my $logger = Log::Log4perl->get_logger();

################ database connection variables####
my ($serial, $model);
my $host="me.notyou33.safety";
my $port="1426";
my $userid="user";
my $passwd="pass";
my $sid="sid";
my $log="$homepath/logs/sql_import.log";

#Control file location
my @control_pools= "$homepath/sql_ctrl/pools.ctl";
my @control_general = "$homepath/sql_ctrl/general.ctl";
my @control_ports= "$homepath/sql_ctrl/ports.ctl";
my @control_replication = "$homepath/sql_ctrl/replication.ctl";

#######################Database connection and data upload #################
my $dbh = DBI->connect( "dbi:Oracle:host=$host;sid=$sid;port=$port", "$userid", "$passwd", 
{ RaiseError => 1}) or $logger->logdie ("Database connection not made: $DBI::errstr");

print " connection made! Starting database upload...\n";

system ("sqlldr $userid\@$sid/$passwd control=@control_general log=$log silent=all") or $logger->logdie("Error: Can't open import control_general to SQL DB :$!");

print "one done moving to next one\n";

system ("sqlldr $userid\@$sid/$passwd control=@control_pools log=$log silent=all ") or $logger->logdie("Error: Can't open import control data to SQL DB :$!");

system ("sqlldr $userid\@$sid/$passwd control=@control_ports log=$log  ") or $logger->logdie("Error: Can't open import control data to SQL DB :$!");

print "three done moving to last one\n";

system ("sqlldr $userid\@$sid/$passwd control=@control_replication log=$log silent=feedback ") or    $logger->logdie("Error: Can't open import control data to SQL DB :$!");

print "................Done\n";
############################################################################
$dbh->disconnect;

================================================================================== 控制文件：

OPTIONS (SKIP=1) 
LOAD DATA
CHARACTERSET UTF8
INFILE      '/despliegue/san/project/csv/Pools.csv'
BADFILE     '/despliegue/san/project/logs/sql_error.bad'
DISCARDFILE '/despliegue/san/project/logs/sql_discard.dsc'
TRUNCATE INTO TABLE I_GENERAL 
FIELDS TERMINATED BY ','
OPTIONALLY ENCLOSED BY "\"" 
 TRAILING NULLCOLS
( 
OBJECTID FILLER,
DESCRIPTION FILLER,
SERIALNUMBER,
PRODUCT_NAME,
CONTROLLER_VERSION,
NUMBER_OF_CONTROLLERS,
CAPACITY_GB,
PRODUCT_CODE,
)

---

有

Logdie

应该是

Logdie

，AFAIU

有

Logdie

应该是

Logdie

，AFAIU

system（）

返回

wait

调用的返回值，其中包括您执行的程序的返回值。如果一切正常，这将是

0

。这与Perl中几乎所有其他函数不同，在Perl中，您希望它们返回一些在布尔上下文中计算为True的值。因此，使用or运算符进行的常用错误处理无法正常工作。您可能想尝试类似的方法：

system ("sqlldr $userid\@$sid/$passwd control=@control_pools log=$log silent=all") == 0
    or $logger->logdie("Error: Can't open import control data to SQL DB :$?");

您可以在

system（）

下的文档中阅读有关处理

system（）

返回值的更多信息，该返回值包含您执行的程序的返回值。如果一切正常，这将是

0

。这与Perl中几乎所有其他函数不同，在Perl中，您希望它们返回一些在布尔上下文中计算为True的值。因此，使用or运算符进行的常用错误处理无法正常工作。您可能想尝试类似的方法：

system ("sqlldr $userid\@$sid/$passwd control=@control_pools log=$log silent=all") == 0
    or $logger->logdie("Error: Can't open import control data to SQL DB :$?");

---

您可以在

下的文档中阅读有关处理

system（）

返回值的更多信息。问题是系统调用期望返回值0为“成功”。如果sqlldr作业跳过或丢弃记录，它将不会返回0（我看到它返回2，请检查文档以确保）。因此，除非您成功加载所有记录，否则您的perl脚本（如所写）将退出

perl

---

sqlldr

问题在于系统调用期望返回值0为“成功”。如果sqlldr作业跳过或丢弃记录，它将不会返回0（我看到它返回2，请检查文档以确保）。因此，除非您成功加载所有记录，否则您的perl脚本（如所写）将退出

perl

---

sqlldr

在我的例子中，我使用backticks（类似于系统）执行sqlldr，这有助于我获得变量中的任何反馈

my $sqlldr = "sqlldr userid=usr/pss\@TNS control=\'$controlfile\' log=\'$logfile\' silent=header,feedback";
$execution = `$sqlldr 2>&1`;

诀窍在于，在perl中返回的值不是0，您必须将该值右移8位以确保得到0。就我而言，我的做法如下：

# Get the returned code from the last execution
my $ret = $? >> 8;

if ($ret == 0) {
    $logger->info("Class DLA_Upload: All rows were successfully loaded");
}
elsif ($ret == 1) {
    die("Class DLA_Upload: Executing sqlldr returned the following error:\n$execution");
}
elsif ($ret == 2) {
    $logger->info("Class DLA_Upload: SQL*Loader was executed but some or all rows were rejected or discarded, please check $logfile for further information");
}
else {
    die("Class DLA_Upload: FATAL ERROR: sqlldr corrupted or not found");
}

---

这就很好地解释了

在我的例子中，我使用backticks（类似于system）执行sqlldr，这有助于获取变量中的任何反馈

my $sqlldr = "sqlldr userid=usr/pss\@TNS control=\'$controlfile\' log=\'$logfile\' silent=header,feedback";
$execution = `$sqlldr 2>&1`;

诀窍在于，在perl中返回的值不是0，您必须将该值右移8位以确保得到0。就我而言，我的做法如下：

# Get the returned code from the last execution
my $ret = $? >> 8;

if ($ret == 0) {
    $logger->info("Class DLA_Upload: All rows were successfully loaded");
}
elsif ($ret == 1) {
    die("Class DLA_Upload: Executing sqlldr returned the following error:\n$execution");
}
elsif ($ret == 2) {
    $logger->info("Class DLA_Upload: SQL*Loader was executed but some or all rows were rejected or discarded, please check $logfile for further information");
}
else {
    die("Class DLA_Upload: FATAL ERROR: sqlldr corrupted or not found");
}

---

这就很好地解释了

谢谢，但那是个打字错误。固定的！谢谢，但那是个打字错误。固定的！就这样！多谢塔利。我现在要读更多关于系统调用的内容！就这样！多谢塔利。我现在要读更多关于系统调用的内容！谢谢，这看起来也很有趣，我喜欢您生成错误的方式，类似于下面的返回代码示例。我现在正在调查！感谢@Comocho00，问题是sqlldr有一些退出代码（他们有文档记录），这取决于上传的方式，在我的情况下，非常重要的是要知道是否所有东西都上传了，或者我们有任何看起来有趣的拒绝。我喜欢你生成错误的方式，类似于下面的返回代码示例。我现在正在调查！谢谢@Comocho00，问题是sqlldr有一些退出代码（他们有文档记录），这取决于上传的方式，在我的情况下，知道是否所有东西都上传了或我们有任何拒绝是非常重要的。我想我是一个太多的noob了。我需要15个名誉，对不起@嗯，你好像有18；-）嘿，它起作用了，哈哈。当你提到它的时候，我确实试过了。再次感谢！我想我是个太傻的人了。我需要15个名誉，对不起@嗯，你好像有18；-）嘿，它起作用了，哈哈。当你提到它的时候，我确实试过了。再次感谢！