perl查询数据库并打印以及perl打印数组的问题（perl第一天）

[bluekangkang]

老板要我用perl做东西，无奈，只能硬着头皮一边学一边写，碰到2个问题
1.perl查询数据库并打印
my $sql_tasks= $dblink->prepare ( "select brand from switch");
$sql_tasks->execute();
while(my $ref = $sql_tasks->fetchrow_hashref()) {
print "$ref->n";
}
$dblink->disconnect();
代码大致如上，本来查询出的结果应该 brand 列都是 "dell"，但是在SHH上最后出来的结果是：
HASH(0x8442374)->nHASH(0x8442380)->nHASH(0x84423d4)->nHASH(0x84423ec)
->nHASH(0x8442368)->nHASH(0x844235c)->nHASH(0x84423e0)->nHASH(0x84424b8)
->nHASH(0x8442374)->nHASH(0x8442380)->nHASH(0x84423d4)->nHASH(0x84423ec)
->nHASH(0x8442368)->nHASH(0x844235c)->nHASH(0x84423e0)->nHASH(0x84424b8)
->nHASH(0x8442374)->nHASH(0x8442380)->nHASH(0x84423d4)->nHASH(0x84423ec)
->nHASH(0x8442368)->n
请问如何让才能实现正确的取得查询结果并打印？

2.因为第一天用perl，现在用print()打印数组，比如("1","2","3"),在SHH出来的结果是 "123"，
完全没有个数组的样子了，请问正确的应该如何打印才能让数组有个数组的样子？

[TR@SOE]

这个perl的语法怎么和PHP那么象？

[bluekangkang]

不知楼上是说些的perl语法不对还是？？？

现在换了种写法，一次取出所有结果作为数组返回

my $sql_tasks= $dblink->prepare ( "select brand from switch");
$sql_tasks->execute();
my @ref=$sql_tasks->fetchall_arrayref();
$dblink->disconnect();
print @ref;
exit;

结果还是这样差不多的： ARRAY(0x844235c)
迷茫中！！！！焦急

[TR@SOE]

我的迷惑是，这里是PHP版啊……

[bluekangkang]

我也是做PHP，结果被老板拉来写Perl，所以觉得PHP里面应该有很多懂Perl的

[lanxk]

楼主是不是在深切怀念php中的var_dump函数啊
在perl中也有一个类似的函数

首先，安装 Data::Dump
其次，在文件开头 use Data::Dump qw(dump);
然后，你就可以在perl中使用dump这个函数了，比如 dump(@ref)
看看和var_dump有些什么区别吧