问个稍微麻烦的问题，请高手解答

macgradywk

假如我有这样一个文件：
force name1[4] = 0;
force name2[2] = 0;
force name1[3] = 0;
force name4[1] = 0;
force name5[2] = 0;
force name2[5] = 0;
force name6[4] = 0;
force name2[4] = 0;
force name1[5] = 0;
force name3[4] = 1;
force name3[2] = 0;
.
.
.
我想要把它变成
force name1[5:0] = 000000;
force . . .

就是把之前的文件同名的合并起来一起force，怎么做？

pitonas

{:2_172:}小伙伴们, 这个低调奢华有内涵。

1. #!/usr/bin/perl
   
2. my %force;
   
3. my $fn = 'force name';
   
4. while (<DATA>) {
   
5.     my ( $name, $index, $value ) = /name(\d+)\[(\d+)\]\s+=\s+(\d+)/;
   
6.     $force{$name}{$index} = $value;
   
7. }
   
8. for my $k ( sort { $a <=> $b } keys %force ) {
   
9.     my $max = 0;
   
10.     $_ > $max and $max = $_ for keys %{ $force{$k} };
    
11.     print "${fn}${k}[$max:0] = ";
    
12.     print map { $force{$k}{$_} // 0 } 0 .. $max;
    
13.     print ";\n";
    
14. }
    
15. 
    
16. __DATA__
    
17. force name1[4] = 0;
    
18. force name2[2] = 0;
    
19. force name1[3] = 0;
    
20. force name4[1] = 0;
    
21. force name5[2] = 0;
    
22. force name2[5] = 0;
    
23. force name6[4] = 0;
    
24. force name2[4] = 0;
    
25. force name1[5] = 0;
    
26. force name3[4] = 1;
    
27. force name3[2] = 0;
    

复制代码

灿烂小猪

sed -i 's/\(\[[0-9][0-9]*\)\(.*\)$/\1:0\200000/' urfile

灿烂小猪

错了，这是perl版，我写了个sed的程式。

macgradywk

这是个二维的哈希？回复 2# pitonas


   

macgradywk

我需要的就是perl回复 4# 灿烂小猪


   

macgradywk

[$_ > $max and $max = $_ for keys %{ $force{$k} };这句是什么意思，小弟新手求教b]回复 2# pitonas


   

pitonas

{:2_172:}

1. for ( keys %{ $force{$k} } ) {
   
2.     $max = $_ if $_ > $max;
   
3. }

复制代码

回复 7# macgradywk