怎么用perl从数据库导出相关联(left join..on..)的表格到txt文档中

#!/usr/bin/perl

use DBI;

$dbname="orcl";

$user="myoracle";

$passwd="myoracle";

$dbh="";

$dbh = DBI->connect("dbi:Oracle:$dbname",$user,$passwd) or die "can't connect to database " DBI-errstr;

#连接数据库

$sth=$dbh->prepare("select id, name, age from student");

$sth->execute;

open  TXT,">tabletxt" or die "cannot create tabletxt";

 

#执行sql语句

while (@recs=$sth->fetchrow_array) {

print TXT $recs[0]":"$recs[1]":"$recs[2]"\n";

#读取记录数据

}

$dbh->disconnect;

close TXT;

以上是一个简单的perl链接oracle数据库导出数据到txt文件的例子

1 运行SQL查询：可以使用MySQL命令行客户端，phpMyAdmin等工具来运行SQL查询，从而访问数据库。

2 使用ODBC：可以使用ODBC（Open Database Connectivity）来连接Linux上的数据库，这种方式可以让你在Linux上使用ODBC驱动程序，从而访问数据库。

3 使用Perl：可以使用Perl脚本来连接Linux上的数据库，这种方式可以使用Perl DBI模块，从而访问数据库。

4 使用Python：可以使用Python脚本来连接Linux上的数据库，这种方式可以使用Python DB-API接口，从而访问数据库。

利用LWP::Simple模块，提取网页源代码，赋值给一个字符串变量，然后再进行后续分析，比如部分文件的提取等等：

use LWP::Simple qw(get);

my $html = get( "" );

另外可以把网页源代码下载下载，直接存为一个文件：

use LWP::Simple qw(getstore);

getstore( ">

Step 1：安装FreeTDS模块

这是个Sybase的Client端软件，必须安装。可以从>

select

concat(left(starttime,2),':00:00') --取时间的前2位，就是小时， 如09:11:01就变成09:00:00

as d

from cellopthw_sector_hourly_0

where startdate = '$d' --条件为开始日期 由参数传入

group by hour(starttime)";--按开始时间的小时进行分组

以上就是关于怎么用perl从数据库导出相关联(left join..on..)的表格到txt文档中全部的内容，包括:怎么用perl从数据库导出相关联(left join..on..)的表格到txt文档中、linux上连数据库,除了jdbc、perl怎么引用sql报错信息存到表等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！