下面代码哪个地方不对？多谢

zzfer

UID: 44491
帖子: 142
积分: 326
在线时间: 1 天 3 小时

1^# zzfer 发表于 2007-06-19 14:45

下面代码哪个地方不对？多谢

下面代码哪个地方不对？多谢
下面一段perl程序哪点不对？
悬赏分：5 - 离问题结束还有 14 天 2 小时
#!c:\perl\bin\perl -w
open(FILE,"config.txt")||die "can't open file";
@config=<FILE>;
print $config[0];
opendir(TEMP,'$config[0]')||die "Can't open ";
@dir=readdir(TEMP);
foreach $file (@dir)
{print "$file\n";}

config.txt内容为：D:\perl
功能:输出D:\perl目录下的文件名

anthony

UID: 5578
帖子: 196
积分: 450
在线时间: 2 天 4 小时

2^# anthony 发表于 2007-06-19 16:22

' 吧.

yagas

UID: 40864
帖子: 65
积分: 149
在线时间: 6 小时

3^# yagas 发表于 2007-06-19 18:03

这样子试试~-----------.
这样子试试~
--------------------------------------------------------------------------------------------

#!c:\perl\bin\perl -w
open(FILE,"config.txt")||die "can't open file";
@config=<FILE>;
print $config[0];
$d = chomp $config[0];
opendir(TEMP,'$config[0]')||die "Can't open ";
@dir=readdir(TEMP);
foreach $file (@dir)
{print "$file\n";}