請(qǐng)教如下格式轉(zhuǎn)換用perl怎么實(shí)現(xiàn)？

qq413187589

=================================================
#AVDD Set AVDD 5.2V
REGW 0xB0,0x0D,0x0D,0x0D

#AVDD ratio
REGW 0xB6,0x44,0x44,0x44

#AVEE  -5.2V
REGW 0xB1,0x0D,

#AVEE ratio
REGW 0xB7,0x34,0x34,0x34

#VCL  -2.5V
REGW 0xB2,0x00,0x00

#VCL ratio
REGW 0xB8,0x24,0x24,0x24

=================================================

以上格式的文件，轉(zhuǎn)化會(huì)如下格式（“==== ”為分隔符，文件中沒有）

=================================================
{0xB0, 3, {0x0D,0x0D,0x0D}},

{0xB6, 3, {0x44,0x44,0x44}},

{0xB1, 1, {0x0D}},

{0xB7, 3, {0x34,0x34,0x34}},

{0xB2, 2, {0x00,0x00}},

{0xB8, 3, {0x24,0x24,0x24}},

=================================================

jason680

回復(fù) 1# qq413187589

# perl regw.pl
{0xB0, 3,{0x0D,0x0D,0x0D}},

{0xB1, 1,{0x0D}},

# cat regw.pl
#!/usr/bin/perl
use strict;
use warnings;

my $sCnt = 0;
while(<DATA>){
  chomp;
  $sCnt++;
  next if(m/^\s*#/);
  if(m/^\s*$/){
    print "\n";
    next;
  }
  
  if(m/^\s*REGW/){
    my(undef, $sKey, @aData) = split /[\s,]+/;
    print "{$sKey, ", scalar @aData, ",{", join(",", @aData), "}},\n";
    next;
  }
  print "$sCnt: Error: Unkow format '$_'\n";
}

__DATA__
#AVDD Set AVDD 5.2V
REGW 0xB0,0x0D,0x0D,0x0D

#AVEE  -5.2V
REGW 0xB1,0x0D,

   

cinanine

1. #!/usr/bin/perl -w
   
2. use 5.010;
   
3. while (<DATA>) {
   
4.     /^#/ || /^\s*$/ and next;
   
5.     my ( $car, @cdr ) = /(0x\w+)/g;
   
6.     say "{$car, " . @cdr . ', {' . join( ',', @cdr ) . '}},';
   
7. }
   
8. 
   
9. __DATA__
   
10. #AVDD Set AVDD 5.2V
    
11. REGW 0xB0,0x0D,0x0D,0x0D
    
12. 
    
13. #AVDD ratio
    
14. REGW 0xB6,0x44,0x44,0x44
    
15. 
    
16. #AVEE  -5.2V
    
17. REGW 0xB1,0x0D,
    
18. 
    
19. #AVEE ratio
    
20. REGW 0xB7,0x34,0x34,0x34
    
21. 
    
22. #VCL  -2.5V
    
23. REGW 0xB2,0x00,0x00
    
24. 
    
25. #VCL ratio
    
26. REGW 0xB8,0x24,0x24,0x24

復(fù)制代碼