perl6遍历目录求助

w123456_cu

===========================================
perl6遍历目录每个文件夹，在每个文件夹内，执行合并，并保存在该文件夹内。
===========================================

1、遍历目录中的每个文件夹（比如5个文件夹）
        ls

        1Chengdu University Of Technology/
        2Sichuan Agricultural University/
        3Southwestern Petroleum University/       
        4Chengdu University of Traditional Chinese Medicine/
        5Sichuan Normal University/



2、每个文件夹里都是txt文件，形如

        1-500.txt
        501-1000.txt
        1001-1500.txt
        ...

      要求是按顺序合并

1.         sub MAIN(*@files) {
   
2.                      for @files -> $file {
   
3.                  .say for $file.IO.lines.[ 1 .. *-1];  #首行不保留
   
4.                         }
   
5.         }
   

复制代码

3、合并后保存在当前文件夹里，用所在的文件夹名来命名，比如 Chengdu University Of Technology .txt

104359176

不记得 perl6 中的 File::Find 模块有没有加入函数的功能，如果没有，就自己写一个吧。

用遍历文件夹中的所有文件，判断文件夹是否相同，如果相同，就合并。

模块肯定有遍历的功能，不过要放在一个文件夹中。

大米白面

1. for dir() -> $dir {
   
2.     next unless $dir.d;
   
3. 
   
4.     my $path = $dir.path;
   
5.     my $wf = open($dir.Str ~ '.txt', :w);
   
6. 
   
7.     for $dir.dir()».basename.sort:{ $^a.split('-')[0] <=> $^b.split('-')[0] }
   
8.         -> $file-name {
   
9.         $wf.print("$path/$file-name".IO.slurp);
   
10.     }
    
11. 
    
12.     $wf.close;
    
13. }

复制代码

如果文件名设置得更合理的话，排序就会更轻松。

hztj2005

留个记号，学习下。

w123456_cu

谢谢大米白面，