perl修改文件名 新手求教

1100150234

如图所示，我想根据文件名字里的lt，ml，wc，wcl把文件分为四类，然后根据文件名里的信息把文件名字改为像cmax_125.spef和cmin_125.spef等格式，然后放在lt，ml，wc，wcl四个文件里，该怎么弄啊，搞了一个晚上还是不行，望大神赐教

sunzhiguolu

回复 1# 1100150234
你是希望根据文本中的这四种信息 (lt,ml,wc,wcl), 按照这四种名称将其相关的行放入与其对应的文件中吗?
即 包含 lt 的行放入 以 lt 命名的文件中, 是这样吗?

   

1100150234

回复 2# sunzhiguolu 对的，并且把名字改短，改成cmax_125.spef这样的格式


   

sunzhiguolu

回复 3# 1100150234
试下,

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hStat;
   
6. map {m/_([a-z]+)_/; push (@{$hStat{$1}}, $_)} <DATA>;
   
7. 
   
8. foreach (keys %hStat){
   
9.     open (my $fhW, '>', "$_.spef");
   
10.     print $fhW @{$hStat{$_}};
    
11.     close ($fhW);
    
12. }
    
13. 
    
14. __DATA__
    
15. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_lt_cmin.spef
    
16. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_ml_cmin.spef
    
17. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_wc_cmin.spef
    
18. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_wcl_cmin.spef
    
19. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_lt_cmin.spef
    
20. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_ml_cmin.spef
    
21. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_wc_cmin.spef
    
22. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_wcl_cmin.spef
    
23. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_lt_cmin.spef
    
24. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_ml_cmin.spef
    
25. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_wc_cmin.spef
    
26. saed32nm_1p9m_Cmax.tluplus_125.oc8051_top.output.tunc_wcl_cmin.spef
    
27. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_lt_cmin.spef
    
28. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_ml_cmin.spef
    
29. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_wc_cmin.spef
    
30. saed32nm_1p9m_Cmax.tluplus_-40.oc8051_top.output.tunc_wcl_cmin.spef
    

复制代码