已解決：Mojo web service opendir 失敗

hqyus

正在用Mojo創(chuàng)建一個表單，點擊submit以后調(diào)用一個post route, 然后在這個route里面用opendir讀取某個路徑下的文件名。
readdir讀不出任何信息，但是opendri (FH,$path) or die "$!"; 也沒有使程序退出，后面的程序還能繼續(xù)執(zhí)行。
用命令行測試opendir這一部分代碼，沒有任何問題。
請教大家問題出在哪里？謝謝。

我的環(huán)境是windows, strawberry perl.
用 morbo scriptname.pl 啟動程序。

下面是相關(guān)代碼：
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 的問題啊。你再仔細(xì)看看你的“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 的輸出不帶路徑，導(dǎo)致grep -f沒有任何輸出。