perl编写unload脚本

最新推荐文章于 2024-08-07 12:19:07 发布

scan724

最新推荐文章于 2024-08-07 12:19:07 发布

阅读量632

点赞数

分类专栏： Perl高级编程

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/42291431

版权

Perl高级编程专栏收录该内容

41 篇文章 30 订阅 ¥39.90 ¥99.00

订阅专栏

这是一个使用Perl编写的脚本，用于从Oracle数据库中卸载数据。脚本连接到数据库，获取表的列名，并构造SQL语句来导出数据。数据被写入TXT文件，同时在执行过程中提供了日志打印功能。

摘要由CSDN通过智能技术生成

<pre name="code" class="sql">#!/usr/bin/perl 
use strict;
use DBI;
my $dbName = 'dwh1';
my $dbUser = 'dwm';
my $dbUserPass = 'dwm';
my $dbh = DBI->connect("dbi:Oracle:$dbName", $dbUser, $dbUserPass) or die "can't connect to database ";
my $table_name= "$ARGV[0]"; 
my $hostSql = qq{select COLUMN_NAME from dba_tab_columns where table_name='$table_name'};
my $UNLOAD_SRC_DBCONN = DBI->connect("DBI:Oracle:".$dbName,$dbUser,$dbUserPass) or die("DB connect error!n");
my $DW_DATA_DT ="";
my $datafile="$table_name.TXT";
use HTTP::Date qw(time2iso str2time time2iso time2isoz);


my @lstRlst1;
my

了解本专栏