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

jason680

回复 1# hkldd

$ ls *.txt
122.txt  1.txt  212.txt  278.txt  2.txt

$ perl get_max.pl  *.txt
278.txt

$ cat get_max.pl
use strict;
use warnings;

die "Usage: $0 FILEs\n" if(@ARGV == 0);

my $sMax_file = shift;
foreach(@ARGV){
  no warnings 'numeric';
  $sMax_file = $_ if($sMax_file < $_);
}
# your code
print "$sMax_file\n";

   

sunzhiguolu

回复 11# jason680
大神您好, 有个问题向您请教, 如何让 no warnings 'numeric'; 超出作用域后恢复先前的值.
请您指点, 谢谢...

   

jason680

回复 12# sunzhiguolu

>> ... 如何让 no warnings 'numeric'; 超出作用域后恢复先前的值...

11楼 & Perl interpreter do it well

sunzhiguolu

回复 13# jason680
方才我又做了次实验的确是在 no warnings 'numeric'; 超出作用域后就恢复成先前的值了, 是我马虎了.
再次感谢您的指点.

   

sunzhiguolu

回复 11# jason680
大神您好, 还有一个问题向您请教, 假设目录结构如下图所示:

1.> *.txt 文件由于处于目录层级结构下 (关闭 no warnings 'numeric' 警告后), 进行文档名称比较时好像得不到正确的结果;
2.> 在 source 目录下的 *.txt 文件中有一个名为 1A3.txt 文件, 我的搜索条件该如何进行指定才能获取到文件名全部由数字组成的文件; (还是此问题不适合用 glob 操作符进行处理)
代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. chdir ('z:\\Demo');
   
7. my ($sSearchCondition, $sFile) = ("source\\*.txt", '');
   
8. {
   
9.     no warnings 'numeric';
   
10.     foreach (glob ($sSearchCondition)){
    
11.         $sFile = $_ if ($_ > $sFile);
    
12.     }
    
13. }
    
14. print "$sFile\n";
    

复制代码

jason680

回复 15# sunzhiguolu

$ perl -le 'print join("\t",glob("xdir/?.txt"))'
xdir/1.txt        xdir/2.txt


my ($sSearchCondition, $sFile) = ("source\\*.txt", '');
{
    no warnings 'numeric';
    foreach (glob ($sSearchCondition)){
        $sFile = $_ if ($_ > $sFile);
    }
}

solution 1:
  remove the path

solution 2:
  glob files without path

   

sunzhiguolu

回复 16# jason680
由于关闭了 no warnings  'numeric' 警告, 即使我的 source 目录中包含了一个名为 1A3.txt 也找到了数字最大的文件; 问题解决了, 谢谢您.
代码如下:

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use File::Basename qw /basename/;
   
6. 
   
7. chdir ('z:\\Demo');
   
8. my ($sSearchCondition, $sFile) = ("source\\*.txt");
   
9. my @aFiles = glob ($sSearchCondition);
   
10. $sFile = shift (@aFiles);
    
11. {
    
12.     no warnings 'numeric';
    
13.     foreach (@aFiles){
    
14.         $sFile = $_ if (basename ($_) > basename ($sFile));
    
15.     }
    
16. }
    
17. print "$sFile\n";
    

复制代码

如果我向目录 source 中增加了一个名为 299B.txt 文件后, 此时的结果好像由于关闭 no warnings 'numeric' 警告后把这个文件也找到了 像这种情况我该如何处理.

   

jason680

回复 17# sunzhiguolu


>>如果我向目录 source 中增加了一个名为 299B.txt 文件后, 此时的结果好像由于 no warnings 'numeric' 的存在而被找了出来? 像这种情况我该如何处理.
   
It's hard to know what you said ...

sunzhiguolu

回复 18# jason680
大神您好, 我的描述有问题, 我还是少说话上图片吧.

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use File::Basename qw /basename/;
   
6. 
   
7. chdir ('z:\\Demo');
   
8. my ($sSearchCondition, $sFile) = ("source\\*.txt");
   
9. my @aFiles = glob ($sSearchCondition);
   
10. $sFile = shift (@aFiles);
    
11. {
    
12.     no warnings 'numeric';
    
13.     foreach (@aFiles){
    
14.         $sFile = $_ if (basename ($_) > basename ($sFile));
    
15.     }
    
16. }
    
17. print "$sFile\n";
    

复制代码

输出结果:

1. 
   
2. source\299B.txt
   

复制代码

jason680

回复 19# sunzhiguolu

1. you are NOT the asker 楼主
  new question
  
2. say it clearly 问题说清楚
  what do you want & where is issue?
   
3. don't push too hard 勿急燥