依次取文件

林间笑客

@array = weaf1.txt weaf2.txt weaf3.txt  .......     非常多，总数不确定，            
foreach my $files (@array) {
open FH,"< $files " or die"open file error!";                 
可以每次按 weaf1.txt  weaf2.txt   来循环么？ 就是说按weaf紧接的数字的顺序来取 ....应该怎么写

hmlijg

sort @array 试试?

q1208c

1. foreach my $file (globs "weaf*.txt") {
   
2.     open (FH, "<".$file) or die("$!");
   
3.     <your code here>
   
4.     close(FH);
   
5. }

复制代码

林间笑客

回复 2# hmlijg


    如何sort?

林间笑客

回复 3# q1208c


    这样的要是有两位数就不行了

q1208c

回复 5# 林间笑客

glob 使用的是 shell 通配符, 有多少位数都没问题. 你自己 试一下就知道了.
   

ly5066113

回复 6# q1208c


weaf11.txt 会排在 weaf2.txt 的前面的，楼主估计想要按数字大小排序。

substr函数

林间笑客 发表于 2014-07-17 14:17
回复 2# hmlijg

     如何sort?

perldoc
http://perldoc.perl.org/functions/sort.html

ly5066113

回复 1# 林间笑客


这样试试：

1. #! /usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. my @array = glob "weaf*.txt";
   
7. my %h;
   
8. 
   
9. foreach my $file (@array)
   
10. {
    
11.         my $idx = $file;
    
12.         $idx =~ s/[^0-9]//g;
    
13.         $h{$idx} = $file;
    
14. }
    
15. 
    
16. foreach my $k (sort {$a <=> $b} keys %h)
    
17. {
    
18.         open FH,"<$h{$k}" or die "open file error!";
    
19. }

复制代码

hmlijg

看下手册吧，sort是perl的一个函数， 建议买本小骆驼看看回复 4# 林间笑客