perl读MYSQL返回一列或几列的处理

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

1^# bitterness 发表于 2008-12-24 16:08

perl读MYSQL返回一列或几列的处理

#while (@rec=$sth2->fetchrow_array()){
#print join "\t",@rec,"\n";
#}
可以正常打印出各行
请问，我想得到某一列或几列的数据，如何写

xiaoyu9805119

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

2^# xiaoyu9805119 发表于 2008-12-24 16:14

@rec是数组，你随意取其中索引值就是列了

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

3^# bitterness 发表于 2008-12-24 16:39

是这样的，我想把某些列做为发送邮件的内容，要如何做

xiaoyu9805119

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

4^# xiaoyu9805119 发表于 2008-12-24 17:09

$rec[0]就是第一列，$rec[1]就是第二列内容。。。

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

5^# bitterness 发表于 2008-12-24 17:11

在while外面不能直接引用，我试了
没办法，我用了笨方法，先写进一个文件，然后再mail出来了

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

6^# ynchnluiti 发表于 2008-12-24 17:12

QUOTE:

原帖由 bitterness 于 2008-12-24 16:39 发表
是这样的，我想把某些列做为发送邮件的内容，要如何做

根据@rec拼出邮件body

类似：

[Copy to clipboard] [ - ]

CODE:

$col=3;
while ( @rec=$sth2->fetchrow_array() ) {
   $body .= "$rec[$col]\t";
}
open(SENDMAIL, "|/usr/lib/sendmail -oi -t -odq")
                  or die "Can't fork for sendmail: $!\n";
                  print SENDMAIL <<"EOF";
From: User Originating Mail <root\@localhost>
To: Final Destination <postmaster\@localhost>
Subject: here is the subject
$body
EOF
close(SENDMAIL)    or warn "sendmail didn't close nicely";

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

7^# bitterness 发表于 2008-12-24 17:32

不错，谢谢，
之前，我的问题在于，就是while之外，引用就是空的了，
如$rec[1]是空的

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

8^# ynchnluiti 发表于 2008-12-24 17:52

QUOTE:

原帖由 bitterness 于 2008-12-24 17:32 发表
不错，谢谢，
之前，我的问题在于，就是while之外，引用就是空的了，
如$rec[1]是空的

那是循环赋值的，在循环外只有一个记录的字段值了吧。

bitterness

UID: 4792
帖子: 191
积分: 439
在线时间: 2 天 1 小时

9^# bitterness 发表于 2008-12-25 09:20

是的呀，我不知道要如何处理
我用的很笨的方法，在WHILE里把内容写进到FILE了

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

10^# ly5066113 发表于 2008-12-25 09:45

数据库的记录都是一行一行的，在循环外，你想$rec[1]得到什么值？
某一列的所有值？

perl读MYSQL返回 一列或几列的处理

perl读MYSQL返回 一列或几列的处理

perl读MYSQL返回一列或几列的处理

perl读MYSQL返回一列或几列的处理