Perl有关问题。获取某目录下内容并存储在一变量中…

Perl问题。获取某目录下内容并存储在一变量中……
#!/usr/bin/perl
opendir(myd, "c:\\ ");
while   ($m=readdir(myd))
{$m.=$m   ;}
print   $m   ;


为什么执行后没有任何输出内容？？错在哪里？

[解决办法]
你的$m每次都在 $m = readdir(myd) 被覆盖了。该下即可：

opendir(myd, "c:\\ ");

while ( $e = readdir(myd) )
{
$m .= $e;
}

print $m ;