求助；复制文件夹中所有小于10K的txt到新文件夹

hkldd

   在文件夹中有几百个txt文档，用手工挑选出某些容量的文档累到手软，特求助各位大侠，谢谢！

dav_

1. #!/usr/bin/perl
   
2. use File::Copy;
   
3. my @files = map {
   
4.         if(-s $_ < 10){ $_; }
   
5.         else { (); }
   
6. } glob '*.txt';
   
7. move($_, 'dirname') for(@files);

复制代码

好像这样就可以了?

訂正：-s返回是位元組, 不是KB...  if(-s $_ < 10) 換為 if(-s $_ < 10 * 1024) 才正確.

stanley_tam

跟楼上类似{:3_193:}

1. #!perl
   
2. use strict;
   
3. use File::Copy qw{copy};
   
4. 
   
5. my $target_folder = '/tmp';
   
6. my @files_lt_10k = grep {-s $_ < 1024 * 10} glob '*.txt';
   
7. copy $_ => $target_folder for @files_lt_10k;
   
8. 
   
9. __END__

复制代码

hkldd

感谢两位的回复！我试了一下没有成功，不知是什么原因，望指点下！谢谢！
附测试文件test，想把其中的1.txt、2.txt、5.txt小于10K的文档复制到新文件夹中

dav_

哈哈, 我上面留的是错的, 真抱歉
3楼的我也不明白为什么不能复制，可能windows下不一样?
搜寻cpan没看到有 copy $file => $dirname 的用法, 可能我漏看了?

1. #!/usr/bin/perl
   
2. use File::Copy;
   
3. my @files = grep {-s $_ < 10 * 1024} glob '*.txt';
   
4. move($_, 'dirname') for @files;

复制代码

hkldd

dav_大侠； 我试了一下，还是不行，我是要把小于10K的1.txt、2.txt、5.txt三个文档，完整的移到新文件夹中，不是合并，你的代码把它们三个文档合并了，还要修改一下，谢谢！

dav_

回复 6# hkldd

额, 你要把dirname换成你文件夹的名称, 应该不能打中文
move($_, 'dirname') for @files;  这句

hkldd

dav_大侠；
   想麻烦你用上面的测试文件(4楼test.rar)，讲解一下过程好吗，我试了还是不行，谢谢！

补充一下，我的环境是xp + perl5.16

stanley_tam

将$target_folder改成你要放置复制的文件的目录路径。把脚本放到你存放所有txt文件的目录，然后执行，应该就可以了
回复 4# hkldd


   

wand65

1. use File::Copy;
   
2. use File::Find;
   
3. my $dir="d:/test/test";
   
4. my $tar="d:/new";
   
5. 
   
6. find(\&wanted,$dir);
   
7. sub wanted{
   
8. copy ("$File::Find::name","$tar")  if /\.txt$/&& -f &&-s $_<10240;
   
9. }
   

复制代码