这样文件如何处理~？

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Copy;
   
5. 
   
6. my $leng = 8;
   
7. foreach my $lFN (grep {-f and length >= $leng} glob ('*')){
   
8.     my $sFN = substr ($lFN, 0, $leng);
   
9.     my @aFlds = grep {-d} glob ("$sFN*");
   
10.     copy ($lFN, $_) for @aFlds;
    
11.     unlink ($lFN) if (@aFlds);
    
12. }

复制代码

sunzhiguolu

sditmaner

回复 8# zl624867243