perl--DBI 模块中提取数据的fetch方法汇总（三）

最新推荐文章于 2023-01-06 22:02:08 发布
最新推荐文章于 2023-01-06 22:02:08 发布
阅读量5.7k 收藏 8
点赞数
分类专栏： perl

perl下十种fetch数据的区别以及返回数据结构：



1.fetchrow_array 提取下一行数据并将字段保存在数组中返回：

[codesyntax lang="perl"]

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd") or die DBI->errstr;

$sql="select * from 115_users limit 10";

$sth=$dbh->prepare($sql);

$rv=$sth->execute;

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

dump(@row_ary);

print "password: " .$row_ary[2]."\n";

}

##输出内容:

(

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

)

password: Y9MoErtE+iZG5PkYHMJobhij58E

(

2,

"auto-gre-2\@ttlsa.com",

"UqHxPoLmKY7ClyCZaXPdHepjUOo",

"auto-gre-2",

)

password: UqHxPoLmKY7ClyCZaXPdHepjUOo

 



2.fetchrow_arrayref 提取下一行数据并返回一个包含字段值的引用数组

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd") or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$sth=$dbh->prepare($sql);

$rv=$sth->execute;

while($ary_ref=$sth->fetchrow_arrayref){

dump($ary_ref);

print "email: ".$$ary_ref[1]."\n";

}

##输出内容:

[

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

]

email: auto-gre-1@ttlsa.com

[

2,

"auto-gre-2\@ttlsa.com",

"UqHxPoLmKY7ClyCZaXPdHepjUOo",

"auto-gre-2",

]

email: auto-gre-2@ttlsa.com

 


3.fetchrow_hashref 提取下一行数据并返回一个包含字段名和字段值对的哈希引用

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd") or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$sth=$dbh->prepare($sql);

$rv=$sth->execute;

while ($hash_ref=$sth->fetchrow_hashref) {

dump($hash_ref);

print "password: " . $$hash_ref{'passwd'} . "\n";

}

##输出内容:

{

email => "auto-gre-1\@ttlsa.com",

passwd => "Y9MoErtE+iZG5PkYHMJobhij58E",

user_id => 1,

user_name => "auto-gre-1",

}

password: Y9MoErtE+iZG5PkYHMJobhij58E

{

email => "auto-gre-2\@ttlsa.com",

passwd => "UqHxPoLmKY7ClyCZaXPdHepjUOo",

user_id => 2,

user_name => "auto-gre-2",

}

password: UqHxPoLmKY7ClyCZaXPdHepjUOo

 

4.fetchall_arrayref 取出所有行内容并返回包含每行字段值的引用数组

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd") or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$sth=$dbh->prepare($sql);

$rv=$sth->execute;

$ary_ref=$sth->fetchall_arrayref;

dump($ary_ref);

print "@$ary_ref\n";

foreach (@$ary_ref) {

print "$_->[2]\n";

}

[/codesyntax]

输出内容:

[

[

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

],

[

2,

"auto-gre-2\@ttlsa.com",

"UqHxPoLmKY7ClyCZaXPdHepjUOo",

"auto-gre-2",

],

]

ARRAY(0x9e7f5d8) ARRAY(0x9e7f578)

password: Y9MoErtE+iZG5PkYHMJobhij58E

password: UqHxPoLmKY7ClyCZaXPdHepjUOo

 

5.fetchall_hashref($key_field) 取出所有内容并返回每行字段名和字段值对的哈希引用


#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd") or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$sth=$dbh->prepare($sql);

$rv=$sth->execute;

$hash_ref=$sth->fetchall_hashref(user_id);

dump($hash_ref);

print '-' x 20 ."\n";

print $hash_ref->{'10'}->{'email'}."\n\n\n";

while (($user_id,$value)=each %$hash_ref){

print "\$user_id: $user_id\n";

while (($key,$value1)=each %$value) {

print "$key ==> $value1\n";

}

}


##输出内容:

{

1 => {

email => "auto-gre-1\@ttlsa.com",

passwd => "Y9MoErtE+iZG5PkYHMJobhij58E",

user_id => 1,

user_name => "auto-gre-1",

},

2 => {

email => "auto-gre-2\@ttlsa.com",

passwd => "UqHxPoLmKY7ClyCZaXPdHepjUOo",

user_id => 2,

user_name => "auto-gre-2",

},

}

--------------------

auto-gre-10@ttlsa.com

 

$user_id: 6

passwd ==> ZWCagapChduSFnB2nJcQ3vOCYI4

email ==> auto-gre-6@ttlsa.com

user_id ==> 6

user_name ==> auto-gre-6

$user_id: 3

passwd ==> 9YiNWIw1bjqEMrCOmbtwFBBqc3U

email ==> auto-gre-3@ttlsa.com

user_id ==> 3

user_name ==> auto-gre-3

 


融合prepare( ),execute( )和fetchrow_arrayref( )方法的操作:



6.selectrow_array($statement) 返回一行数据的数组

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd",{ PrintError=>0, RaiseError=>1 }) or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

@row_ary=$dbh->selectrow_array($sql);

dump(@row_ary);

my ($count,$max)=@row_ary=$dbh->selectrow_array("select count(*),max(user_id) from ttlsa_user_00");

print "number: $count; max: $max\n";


##输出内容:

(

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

)

number: 10; max: 10

 

7.selectrow_arrayref($statement) 返回一行数据的引用数组

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd",{ PrintError=>0, RaiseError=>1 }) or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$ary_ref=$dbh->selectrow_arrayref($sql);

dump($ary_ref);

$ary_ref=$dbh->selectrow_arrayref("select count(*),max(user_id) from ttlsa_user_00");

my ($count,$max)=@$ary_ref;

print "number: $count; max: $max\n";


##输出内容:

[

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

]

number: 10; max: 10

 

8.selectrow_hashref($statement) 返回一行数据的字段名与字段值的哈希引用

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd",{ PrintError=>0, RaiseError=>1 }) or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 10";

$hash_ary=$dbh->selectrow_hashref($sql);

dump($hash_ary);

$hash_ary=$dbh->selectrow_hashref("select count(*) as count ,max(user_id) as max from ttlsa_user_00");

print "number: $$hash_ary{'count'}; max: $$hash_ary{'max'}\n";

[/codesyntax]

##输出内容:

{

email => "auto-gre-1\@ttlsa.com",

passwd => "Y9MoErtE+iZG5PkYHMJobhij58E",

user_id => 1,

user_name => "auto-gre-1",

}

number: 10; max: 10

 

9.selectall_arrayref($statement) 取出所有行并返回包含所有字段值的引用数组

#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd",{ PrintError=>0, RaiseError=>1 }) or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 2";

$array_ary=$dbh->selectall_arrayref($sql);

dump($array_ary);

print "------------------------------\n";

foreach $row (@$array_ary){

dump($row);

print "------------------------------\n";

foreach $element (@$row) {

print "'$element',";

}

print "\n";

}


##输出内容:

[

[

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

],

[

2,

"auto-gre-2\@ttlsa.com",

"UqHxPoLmKY7ClyCZaXPdHepjUOo",

"auto-gre-2",

],

]

------------------------------

[

1,

"auto-gre-1\@ttlsa.com",

"Y9MoErtE+iZG5PkYHMJobhij58E",

"auto-gre-1",

]

------------------------------

'1','auto-gre-1@ttlsa.com','Y9MoErtE+iZG5PkYHMJobhij58E','auto-gre-1',

[

2,

"auto-gre-2\@ttlsa.com",

"UqHxPoLmKY7ClyCZaXPdHepjUOo",

"auto-gre-2",

]

------------------------------

'2','auto-gre-2@ttlsa.com','UqHxPoLmKY7ClyCZaXPdHepjUOo','auto-gre-2',

 

10.selectall_hashref($statement,$key_field) 取出所有行并返回每行字段名和字段值对的哈希引用


#!/usr/bin/perl

use DBI;

use Data::Dump qw(dump);

 

$driver="DBI:mysql";

$host="localhost:3306";

$dbname="test";

$user="root";

$passwd="123456";

 

$dbh=DBI->connect("$driver:$dbname:$host","$user","$passwd",{ PrintError=>0, RaiseError=>1 }) or die DBI->errstr;

$sql="select * from ttlsa_user_00 limit 2";

$hash_ary=$dbh->selectall_hashref($sql,user_id);

dump($hash_ary);

print "------------------------------\n";

foreach $user_id (keys %$hash_ary) {

print "user_id: $user_id\n";

print "user_name: $hash_ary->{$user_id}->{user_name}\n";

}


##输出内容:

{

1 => {

email => "auto-gre-1\@ttlsa.com",

passwd => "Y9MoErtE+iZG5PkYHMJobhij58E",

user_id => 1,

user_name => "auto-gre-1",

},

2 => {

email => "auto-gre-2\@ttlsa.com",

passwd => "UqHxPoLmKY7ClyCZaXPdHepjUOo",

user_id => 2,

user_name => "auto-gre-2",

},

}

------------------------------

user_id: 1

user_name: auto-gre-1

user_id: 2

user_name: auto-gre-2

高锦-生信
关注
  • 0
    点赞
  • 踩
  • 8
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
perl-dbd-nuodb：用于NuoDB的Perl DBD模块
02-05
Perl DBD（Database Driver）模块是Perl编程语言中与数据库交互的核心组件，它遵循DBI（Database Independent Interface）标准，提供了数据库无关性的接口。在本案例中，`perl-dbd-nuodb` 是一个专门为NuoDB数据库...
perl-DBI-1.52-2.el5.i386.rpm
04-20
perl-DBI-1.52-2.el5.i386.rpm
perl mysql 获取数据_Perl读取mysql数据库
weixin_27676369的博客
01-27 551
perl中常见的文件打开关闭有open和IO模块等，而有时候涉及大量的 数据保存和打开的时候，就得借助 数据库 的使用，提供缓存的功能，并 使得保存的数据占用量最少，访问更快捷。下面就perl的 mysql 数据库访问 做一个简要的介绍。1. 数据库访问原理加载对应数据库驱动获得相应的连接准备需要的查询数据 删除数据 更新数据执行sql语句获得相应的结果2. perl DBI mysql实现Wha...
Perl与数据库DBI快速入门
weixin_33862041的博客
08-15 352
为什么80%的码农都做不了架构师？>>> ...
mysql 存储fetch_mysql – 使用fetchrow_hashref存储数据
weixin_28810315的博客
02-27 204
我试图从MySQL数据库中获取信息,然后我将在perl中操作：use strict;use DBI;my $dbh_m= DBI->connect("dbi:mysql:Populationdb","root","LisaUni")or die("Error: $DBI::errstr");my $Genotype = 'Genotype'.1;#The idea here is event...
如何用Perl对Excel的数据进行提取并分析
weixin_34346099的博客
07-28 198
巡检类工作经常会出具日报，最近在原有日报的基础上又新增了一个表的数据量统计日报，主要是针对数据库中使用较频繁，数据量又较大的31张表。该日报有两个sheet组成，第一个sheet是数据填写，第二个sheet则是基于第一个sheet的数据进行的文字描述和图表展示。 文字描述主要包括两部分：一、呈现该31张表中数据量最大的9张表。呈现结果类似于：emp（约14万），dept（约100万）。。。当然，...
使用 Perl - 常见的 DBI 方法
weixin_50950666的博客
01-06 227
使用 Perl - 常见的 DBI 方法
perl 学习
xfyjg的博客
08-05 108
windows 下 编译运行 perl 需要下载http://www.activestate.com/activeperl/这个。下载后直接安装即可。 [code="python"]#! /usr/bin/perl -w #use DBI; 连接 数据库使用的 # -w is error alert $str = 'Hello,world!'; $str1 = 'He'; $lin...
fetchrow_array()与fetchrow_arrayref()与fetchrow_hashref()的使用方法
Winnycatty的博客
04-27 1242
fetchrow_array 这个方法取下一行数据并且作为一个字段值数组返回它。范例： while(@row = $sth->fetchrow_array) { print qw($row[0]/t$row[1]/t$row[2]/n); } fetchrow_arrayref 这个方法取下一行数据并且作为一个对一个字段值数组的引用返回它。范例： while($row_ref = $st...
perl mysql fetch_perl下十种fetch数据的区别以及返回数据结构
weixin_39800990的博客
01-19 141
perl下十种fetch数据的区别以及返回数据结构1.fetchrow_array 提取下一行数据并将字段保存在数组中返回[codesyntax lang="perl"]#!/usr/bin/perl###################################### author: www.ttlsa.com ###### QQ群: 39514058 ###### E-mail: ser...
perl-dbd-firebird：用于Firebird的Perl DBI驱动程序
02-05
Perl DBD::Firebird是Perl编程语言中一个重要的模块，它是Perl DBI（数据库接口）的一部分，专门设计用于与Firebird数据库系统进行交互。DBI是Perl中广泛使用的数据库抽象层，它提供了一种标准的方式来访问不同的...
excel-writer-xlsx：用于创建Excel XLSX文件的Perl模块
02-05
在实际应用中，开发者可以根据项目需求，结合数据库操作或者其他数据处理库，将perl-excel-writer-xlsx模块与其他Perl工具整合，形成一套高效的数据处理解决方案。例如，配合DBI模块进行数据库查询，再用excel-...
perl-tools：各种perl工具
02-05
在"perl-tools-master"中，可能包含了一些常用的Perl模块，如`Text::Diff`用于比较文本文件，`Data::Dumper`用于调试时打印数据结构，或`Getopt::Long`用于处理命令行选项。 3. **Perl调试器**：Perl的调试工具，如...
perl mysql fetch_使用perl向mysql中插入数据
weixin_28726083的博客
02-08 127
代码如下表已经建立好-----------------------------------------------------------------------------#!/usr/bin/perluseDBI;my$dbh=DBI->connect("DBI:mysql:database=test;host=1...代码如下 表已经建立好-----------------------...
perl通过不调用sql文件的方式获取数据库数据的方法
wgz7747147820的博客
10-11 151
[oracle@slcm05adm04 cdb1]$ cat 1.pl #!/usr/bin/perl use strict; use config_wgz; my $config_file='config.cfg'; my $orahome = get_param_value($config_file,'orahome'); my $tns_admin=get_param_value($config_file,'tns_admin'); chomp $orahome; chomp $tns_admin;
PDO中包含三个预定义的类，它们分别是PDO、PDOStatement、PDOException
阳光的专栏
04-14 1938
http://redlink.blog.163.com/blog/static/11523550720116192045165/ PDO中包含三个预定义的类，它们分别是PDO、PDOStatement、PDOException PDO： PDO->setAttribute(); 全局属性设置，包括:列名格式和错误提示类型 PDO->query($sql); 常用于执行有返回的sql查找
perl mysql 数据推拉_MySQL_Perl操作mysql数据库的方法，Perl对Mysql的操作。 一、标准 - phpStudy...
weixin_31876475的博客
01-19 82
Perl对Mysql的操作。一、标准操作1、连接、关闭my $dbh = DBI->connect(”DBI:mysql:database=DBname;host=localhost”,”user”,”pwd”, {’RaiseError’ => 1});… …$dbh->disconnect();2、类似插入等无返回操作my $sqr = $dbh->prepare(”i...
ArubaInstant-Hercules-8.10.0.12-89862
最新发布
07-10
Aruba 318 Series Hardened Access Points Aruba 370 Series Outdoor Access Points Aruba 387 Series Outdoor Access Points Aruba 320 Series Campus Access Points Aruba 310 Series Campus Access Points
[应用开发及迁移][客户端编程接口]Perl-DBI指南.pdf
04-22
[应用开发及迁移][客户端编程接口]Perl-DBI指南

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值