perl小程序

forever'

opendir(DIR,'/path');
my @arrFile = grep { !/^\./ } readdir DIR;
for my $file(@arrFile)
  {
    print $file,"\n";
  }
closedir(DIR);
请问怎么让结果输出到一个新的文件里，而不是显示在terminal里？

sjtusonic

opendir(DIR,'/path');
my @arrFile = grep { !/^\./ } readdir DIR;
for my $file(@arrFile)
  {
     ...
forever' 发表于 2015-4-14 13:53

                               
登录/注册后可看大图

    http://cn.perlmaven.com/writing-to-files-with-perl

http://www.perlfect.com/articles/perlfile.shtml

http://www.tutorialspoint.com/perl/perl_files.htm

http://perldoc.perl.org/functions/open.html

icfbicfb

open my $F1 ,'>'  'newfile'

print ${F1} $file

forever'

回复 3# icfbicfb

多谢版主，点个赞！

maomao198477

这基础的 都没看？

zhanglinlin0514

回复 1# forever'


   你这个语法用的有点乱啊。