求助；復(fù)制文件夾中所有小于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);

復(fù)制代碼

好像這樣就可以了?

訂正：-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__

復(fù)制代碼

hkldd

感謝兩位的回復(fù)！我試了一下沒有成功，不知是什么原因，望指點(diǎn)下！謝謝！
附測試文件test，想把其中的1.txt、2.txt、5.txt小于10K的文檔復(fù)制到新文件夾中

dav_

哈哈, 我上面留的是錯的, 真抱歉
3樓的我也不明白為什么不能復(fù)制，可能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;

復(fù)制代碼

hkldd

dav_大俠； 我試了一下，還是不行，我是要把小于10K的1.txt、2.txt、5.txt三個文檔，完整的移到新文件夾中，不是合并，你的代碼把它們?nèi)齻�文檔合并了，還要修改一下，謝謝！

dav_

回復(fù) 6# hkldd

額, 你要把dirname換成你文件夾的名稱, 應(yīng)該不能打中文
move($_, 'dirname') for @files;  這句

hkldd

dav_大俠；
   想麻煩你用上面的測試文件(4樓test.rar)，講解一下過程好嗎，我試了還是不行，謝謝！

補(bǔ)充一下，我的環(huán)境是xp + perl5.16

stanley_tam

將$target_folder改成你要放置復(fù)制的文件的目錄路徑。把腳本放到你存放所有txt文件的目錄，然后執(zhí)行，應(yīng)該就可以了
回復(fù) 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. }
   

復(fù)制代碼