依次取文件

林間笑客

@array = weaf1.txt weaf2.txt weaf3.txt  .......     非常多，總數(shù)不確定，            
foreach my $files (@array) {
open FH,"< $files " or die"open file error!";                 
可以每次按 weaf1.txt  weaf2.txt   來循環(huán)么？ 就是說按weaf緊接的數(shù)字的順序來取 ....應(yīng)該怎么寫

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. }

復(fù)制代碼

林間笑客

回復(fù) 2# hmlijg


    如何sort?

林間笑客

回復(fù) 3# q1208c


    這樣的要是有兩位數(shù)就不行了

q1208c

回復(fù) 5# 林間笑客

glob 使用的是 shell 通配符, 有多少位數(shù)都沒問題. 你自己 試一下就知道了.
   

ly5066113

回復(fù) 6# q1208c


weaf11.txt 會排在 weaf2.txt 的前面的，樓主估計想要按數(shù)字大小排序。

substr函數(shù)

林間笑客 發(fā)表于 2014-07-17 14:17
回復(fù) 2# hmlijg

     如何sort?

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

ly5066113

回復(fù) 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. }

復(fù)制代碼

hmlijg

看下手冊吧，sort是perl的一個函數(shù)， 建議買本小駱駝看看回復(fù) 4# 林間笑客