【求助】取一堆数字命名的文档中最大数的文档另存

hkldd

  假如一个文件夹中有一大堆用数字命名的txt文档，如何取其中命名序号最大的txt文档，例如以下文档；
1.txt、2.txt、3.txt、4.txt、5.txt、6.txt………212.txt、234.txt、255.txt、278.txt、在这些文档中278.txt的命名序号最大，想把这个文档提取另存，谢谢！

shijiang1130

sunzhiguolu

回复 1# hkldd

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use File::Basename qw /basename/;
   
6. 
   
7. my @aFiles = sort {basename ($b, '.txt') <=> basename ($a, '.txt')} glob ('urPath\\*.txt');
   
8. print $aFiles[0], "\n";
   

复制代码

hkldd

运行错误，提示如下；
Use of uninitialized value in print at _tmp.pl line 7.

sunzhiguolu

回复 4# hkldd
在单引号中表示反斜杠的时候需要进行转义, 我在上面的代码中可能存在问题已经修改过来了.

my @aFiles = sort {basename ($b, '.txt') <=> basename ($a, '.txt')} glob ('urPath\\*.txt');
print $aFiles[0], "\n";

如果还是出错的话, 请把代码贴出来. 谢谢...

   

sunzhiguolu

回复 4# hkldd

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. chdir ("urPath\\");
   
7. my $sFile = `ls -1 | sort -t"." -k1nr | head -1`;
   
8. print $sFile, "\n";
   

复制代码

MMMIX

回复 6# sunzhiguolu


    你这个脚本，用 Perl 的意义何在？

sunzhiguolu

回复 7# MMMIX
小伙伴 hkldd 说代码有问题, 只是希望为他多提供一个解决方案. 我也不知道到底问题出在哪里? 看错误信息是使用了未初始化的变量造成的, 但他提供的信息太少了. 所以才这样了...

   

hkldd

呵呵！各位大侠是我没有把问题说清楚，现附上需求文件，谢谢大家！

sunzhiguolu

回复 9# hkldd
我的方案只是临时解决方案, 自我感觉不是很好, 总感觉哪里不太对劲, 请诸位前辈及大神指点, 若楼主找到问题后还请告知在此先谢过了...
测试环境: Win 7 x64

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use File::Copy qw/copy/;
   
6. use File::Basename qw/basename/;
   
7. 
   
8. chdir ('D:\\2015\\');
   
9. my $sFile = (sort {basename ($b, '.txt') <=> basename ($a, '.txt')} glob ('12月数据\\*.txt'))[0];
   
10. my $sNewFile = join '\\', '最新数据', basename ($sFile);
    
11. if (copy ($sFile, $sNewFile)){
    
12.         print "Copy Successful!\n";
    
13. }
    

复制代码