Perl_程序的结果不是我想要的

以下程序的结果是：

11

为什么?？它应该是一些文件名，比如

---

我该怎么办？

您看到的是

s//

运算符的返回值，而不是它更改的值。如果您有一个新的Perl，请向操作符添加一个/r标志，使其返回更改后的值。如果您没有新的Perl，请在操作符后添加类似于

和$

的内容，使映射表达式返回更改的值。

您看到的是

s//

操作符的返回值，而不是它更改的值。如果您有一个新的Perl，请向操作符添加一个/r标志，使其返回更改后的值。如果没有新的Perl，请在操作符后面添加类似

和$

的内容，使映射表达式返回更改后的值

test.pl

test1.pl

#!/usr/bin/perl -w
opendir Hdir,".";
my @filelist=readdir Hdir;
my @tmplist=grep {
    $tmp = (stat($_))[7];
    $tmp > 1000;
} @filelist;
my @reslist = map { s/(\S+)/    $1\n/g } @tmplist;
print "@reslist\n";