Re: [PerlChina] CSV的SQL语句中一张表不能出现两次

为何不用SQLite？

/*

E-Mail: i@lxl.cn

QQ: 28888888

Mobile: 13501281365 / 18611751162

*/

On 17 Nov, 2010, at 13:18, "ZHANG Jiaqiang A" <Jiaqiang.a.Zhang@alcatel-sbell.com.cn> wrote:

多谢 cnhack TNT。我到cpan上面给DBD CSV开了个ticket确认一下。

 

另外，我之所以用csv就是觉得比较方便，原始内容在xml里面，用perl解析出couple和people的内容后直接放在CSV文件里，就可以用SQL访问其中的数据了。也不用安装任何数据库软件。

 

不知道除此之外，有没有更简易高效的类似解决方案。

 

内存数据库是不是都需要安装相应的软件才可以？是否有推荐的，免费的 ？

 

 

---

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of cnhack TNT
Sent: 2010年11月17日 10:45
To: perlchina@googlegroups.com
Subject: Re: [PerlChina] CSV的SQL语句中一张表不能出现两次

通过表内自连是可以的:

SELECT c.husband, 
       p1.age, 
       c.wife, 
       p2.age 
FROM   couple c, 
       people p1, 
       people p2 
WHERE  c.husband = p1.name 
       AND c.wife = p2.name; 

但是 DBD::CSV 对自连似乎支持不好，如果你复制一份 people.csv 为 people2.csv, 然后改SQL语句为：

SELECT c.husband, 
       p1.age, 
       c.wife, 
       p2.age 
FROM   couple c, 
       people p1, 
       people2 p2 
WHERE  c.husband = p1.name 
       AND c.wife = p2.name 

也是可以的。

2010/11/17 ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>

我想一条语句把老公和老婆的年龄一起读出来，我的想像中，SQL的输出应该如下：

 

c.husband  |h.age      |c.wife     |w.age      |

================================================
James      |30         |Mary       |22         |
Roger      |24         |Lily       |26         |
================================================

 

下面是可用的测试代码：（附件里面有测试文件，放到和脚本一起的目录应该就可以用)

 

#!/usr/bin/perl -w

 

use strict;

 

use DBI;

 

my $dbh = DBI->connect ("dbi:CSV:", "", "", {
            f_ext    => ".csv",
            csv_null => 1,
            FetchHashKeyName => 'NAME_lc',
        });

my $query = "select c.husband,h.age,c.wife,w.age from couple c, people h, people w where c.husband = h.name and c.wife = w.name";
#my $query = "select c.husband,h.age from couple c, people h where c.husband = h.name ";
my $sth   = $dbh->prepare ($query);
$sth->execute ();

 

while (my $row = $sth->fetchrow_hashref) {
    foreach my $col ( keys %$row ) {
        print $col,"=",$row->{$col},"\t" if defined $row->{$col};
    }
    print "done\n\n";
}
$sth->finish ();

---

From: perlchina@googlegroups.com [mailto:perlchina@googlegroups.com] On Behalf Of cnhack TNT
Sent: 2010年11月17日 9:41
To: perlchina@googlegroups.com
Subject: Re: [PerlChina] CSV的SQL语句中一张表不能出现两次

为啥要 “people h, people w” ？

2010/11/17 ZHANG Jiaqiang A <Jiaqiang.a.Zhang@alcatel-sbell.com.cn>

大家好，

 

有一张表，我需要多次关联，设了不同的别名，但是执行SQL的时候报错，大家有用过DBD-CSV的高手，帮我看看这是DBD CSV的限制还是SQL写的不对

 

SQL语句:

select c.husband,h.age,c.wife,w.age from couple c, people h, people w where c.husband = h.name and c.wife = w.name;

 

报错信息：

DBD::CSV::st execute failed: Error 2012 while reading file D:\Perl\people.csv: E
OF - End of data in parsing input stream at C:/strawberry/perl/site/lib/SQL/Stat
ement.pm line 813
 [for Statement "select c.husband,h.age,c.wife,w.age from couple c, people h, pe
ople w where c.husband = h.name and c.wife = w.name"] at csv.pl line 99.

 

以下SQL语句都可以正常执行:

 

select * from couple;

husband    |wife       |
========================
James      |Mary       |
Roger      |Lily       |
========================
Return 2 columns and 2 lines

 

select * from people;

 

name       |age        |
========================
Mary       |22         |
Lily       |26         |
Roger      |24         |
James      |30         |
========================
Return 2 columns and 4 lines

 

select c.husband,h.age from couple c, people h  where c.husband = h.name;

c.husband  |h.age      |
========================
James      |30         |
Roger      |24         |
========================
Return 2 columns and 2 lines

 

select c.wife,w.age from couple c, people w where c.wife = w.name;

 

c.wife     |w.age      |
========================
Mary       |22         |
Lily       |26         |
========================
Return 2 columns and 2 lines

 

祝好

家强

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。

--
您收到此邮件是因为您订阅了 Google 网上论坛的“PerlChina Mongers 讨论组”论坛。
要向此网上论坛发帖，请发送电子邮件至 perlchina@googlegroups.com。
要取消订阅此网上论坛，请发送电子邮件至 perlchina+unsubscribe@googlegroups.com。
若有更多问题，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问此网上论坛。