怎么将结果输出到多个文本

华小飞_Perl

写了一个，可以自定义生成目录，并且输出的全部文件在该目录中。

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. my $return = system( 'mkdir /media/SGI-HLF/files' );
   
7. unless ( $return == 0 ) {
   
8.         die "Can't mkdir: $?";
   
9. } else {
   
10.         print "The target dir is created successfully!\n";
    
11. }
    
12. chdir '/media/SGI-HLF/files' or die "Can't cd the dir: $!";
    
13. 
    
14. my $filename;
    
15. while (<>) {
    
16.         chomp;
    
17.         if (/^(JF.*?)\s+/m) {
    
18.                 $filename = $1;
    
19.                 next;
    
20.         }
    
21.         open OUTPUT, '>', $filename.'.txt' or die "Can't output the file: $!";
    
22.         s/^\s+//m;
    
23.         s/\]$//m;
    
24.         print OUTPUT $_, "\n";
    
25. }
    
26. close OUTPUT;

复制代码

其中的路径可以改一下。