一个问题

wmxli123

perl中

我想实现把一个目录下的文件名字赋值给变量怎么实现呢？
chdir("$dst_dir"; //改变当前目录到放文件的目录

@filelist=system("ls";
foreach $file(@$filelist)
{
  print "i am a girl\n";
  print "$file\n";
}

为什么不可以呢，
我在线等着您的答案。

cc007

"ls " ->;'ls'

iwanthome

@filelist = glob( "*" );
foreach (@filelist)
{
  print "$_\n";
}