已解决：Mojo web service opendir 失败

hqyus

正在用Mojo创建一个表单，点击submit以后调用一个post route, 然后在这个route里面用opendir读取某个路径下的文件名。
readdir读不出任何信息，但是opendri (FH,$path) or die "$!"; 也没有使程序退出，后面的程序还能继续执行。
用命令行测试opendir这一部分代码，没有任何问题。
请教大家问题出在哪里？谢谢。

我的环境是windows, strawberry perl.
用 morbo scriptname.pl 启动程序。

下面是相关代码：
post '/value_test' => sub {
   my $self = shift;

   my $path = "C:\\Users\\che.CORP\\scripts\\support\\public\\seven_reports\\";

#store all file names in @dir
   opendir (DATADIR,$path) or die "Can't open directory!";
   my @dir = grep -f, readdir DATADIR;
#   print OUTPUT join "\n",@dir;
   close DATADIR;
...

多谢！

py

哈哈。你这不是Mojolicious 的问题啊。你再仔细看看你的“grep”是什么？
http://perldoc.perl.org/functions/grep.html

hqyus

找到解决办法了：
my $path = "C:/User/che.CORP/scripts/support/public/seven_reports";
opendir (DATADIR,$path) or die "Can't open directory!";
   my @dir = grep {-f "$path/$_"} readdir DATADIR;

readdir 的输出不带路径，导致grep -f没有任何输出。