请教大家一个输出的问题

很宅的男

大家好，我有一个文本，里面的格式如下所示：
KM M001 bi 01.txt-1 zh
KM M001 bi 01.txt-2 eng
KM M001 bi 01.txt-3 g
KM M001 bi 01.txt-4 e
KM M002 bi 01.txt-1 q x
KM M002 bi 01.txt-2 i
KM M002 bi 01.txt-3 q

KM M002 bi 01.txt-4 q
...

我想把这个文本拆成多个然后保存在一个多级目录下，比如KM/M001/bi/01.txt，每一个生成的txt都有4行，请问这个问题怎么处理啊？

quanpai

可以贴点你写的代码看看。

很宅的男

回复 2# quanpai

还没想好怎么写这个输出，所以还没写

kevin_furant

去看看File::Path这个模块估计你就知道怎么弄了！

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use File::Path qw(make_path);
   
5. use File::Spec;
   
6. 
   
7. while(<DATA>){
   
8.         my ($p1, $p2, $p3, $f) = split;
   
9.         my $dir = File::Spec->catdir($p1, $p2, $p3);
   
10.         make_path($dir);
    
11.         #write file is here.
    
12. }
    
13. 
    
14. 
    
15. __DATA__
    
16. KM M001 bi 01.txt-1 zh
    
17. KM M001 bi 01.txt-2 eng
    
18. KM M001 bi 01.txt-3 g
    
19. KM M001 bi 01.txt-4 e
    
20. KM M002 bi 01.txt-1 q x
    
21. KM M002 bi 01.txt-2 i
    
22. KM M002 bi 01.txt-3 q
    

复制代码