哪位朋友帮忙忙，帮忙写一个文本文件入库的perl程序的例子，谢谢

niuxxf

UID: 14592
帖子: 67
积分: 154
在线时间: 6 小时

1^# niuxxf 发表于 2008-01-03 11:30

哪位朋友帮忙忙，帮忙写一个文本文件入库的perl程序的例子，谢谢

windows操作系统
d盘根目录，有一个文本文件，文件名为file1.txt，
文件内容如下
a b c d
b c d a

有这么4列字符，字符和字符之间是空格，我想把这些字符按照对应的列写到oracle数据库中

odbc名：testodbc
oracle用户名：test
oracle密码：cs
表名：tab_file
表结构如下
create table tab_file(
t1 varchar2(10),
t2 varchar2(10),
t3 varchar2(10),
t4 varchar2(10));

哪位朋友帮帮忙，帮忙写一段perl程序，实现上面的功能，谢谢

__lxmxn__

UID: 3845
帖子: 167
积分: 384
在线时间: 1 天 14 小时

2^# __lxmxn__ 发表于 2008-01-03 14:02

还没看出file1.txt和这个表结构是什么关系... o_O

niuxxf

UID: 14592
帖子: 67
积分: 154
在线时间: 6 小时

3^# niuxxf 发表于 2008-01-03 17:43

入到表中，应该是这样的
select * from tab_file;

t1 t2 t3 t4
a b c d
b c d a

谢谢！

fouter

UID: 17064
帖子: 25
积分: 57
在线时间: 1 小时

4^# fouter 发表于 2008-01-03 23:04

[Copy to clipboard] [ - ]

CODE:

my $dbh = DBI->connect("dbi:Oracle:testodbc",test,cs) or die "$!";
open (FILE,"<file1.txt") or die "$!";
while (<FILE>;) {
   my ($t1,$t2,$t3,$t4) = split //,$_;
   my $sql = $dbh ->prepare(qq{insert into tab_file(t1,t2,t3,t4) values (?,?,?,?)});
   $sql ->execute($t1,$t2,$t3,$t4);
}
close(FILE);
$dbh->disconnect;

niuxxf

UID: 14592
帖子: 67
积分: 154
在线时间: 6 小时

5^# niuxxf 发表于 2008-01-04 18:11

谢谢好心的哥们fouter ，不知道怎么搞的，我的环境可能有问题，程序还在报错中，不过，环境问题总会解决的，谢谢你的帮忙！

Vic_Yu

UID: 11771
帖子: 184
积分: 423
在线时间: 1 天 22 小时

6^# Vic_Yu 发表于 2008-01-07 10:07

QUOTE:

原帖由 fouter 于 2008-1-3 23:04 发表

my $dbh = DBI->connect("dbi:Oracle:testodbc",test,cs) or die "$!";
open (FILE,"

通过这个又学到一首，现在这个论坛是每天上班路上必经之地。希望此论坛2008年越办越好