亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 請(qǐng)教如下格式轉(zhuǎn)換用perl怎么實(shí)現(xiàn)？ [打印本頁]

作者: qq413187589 時(shí)間: 2013-07-31 11:45
標(biāo)題: 請(qǐng)教如下格式轉(zhuǎn)換用perl怎么實(shí)現(xiàn)？
=================================================
#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 時(shí)間: 2013-07-31 12:09
回復(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 時(shí)間: 2013-07-31 12:41
本帖最后由 cinanine 于 2013-07-31 11:12 編輯

#!/usr/bin/perl -w
use 5.010;
while (<DATA>) {
/^#/ || /^\s*$/ and next;
my ( $car, @cdr ) = /(0x\w+)/g;
say "{$car, " . @cdr . ', {' . join( ',', @cdr ) . '}},';
}
__DATA__
#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

復(fù)制代碼

歡迎光臨 Chinaunix (http://72891.cn/)