求個程序

yuama

提取第一張網(wǎng)表里的pin信息，輸出第二張圖的文件
I--Input
O-Output
B--Inout
輸出可以都提取，也可以有選擇的提取，比如只提取SMIC_NR2,謝謝大牛

dahe_1984

白色的部分是你要的還是*PIN這行是你要的？

哪行是你要的？

yuama

回復(fù) 2# dahe_1984


    第一張圖的藍(lán)色行
就是從第一張圖的文件內(nèi)容，輸出第二張圖文件內(nèi)容
工作需要，手寫太累，謝謝您

dahe_1984

* PININFO A:I Y:O HG:B HV:B 轉(zhuǎn)換成什么？

yuama

回復(fù) 4# dahe_1984


("HV" "Inout" "Power")
("HG" "Inout" "Ground")
("A" "Input")
("Y" "Output")
請看
*.PININFO A:I Y:O HG:B HV:B

B 代表“Inout"
I 代表“Input"
O代表"Output"
然后出處它們各自冒號前的字符即可
但是B冒號前有“Power"和"Ground"的區(qū)別
謝謝

dahe_1984

$ perl yuama.pl
A I
Y O
HG B Inout
HV B Inout

he@he-THINK ~/manson/Image
$ cat yuama.pl
#!perl

my $str = '*.PININFO A:I Y:O HG:B HV:B';

my @array = split /\s+/, $str;

my %hash = (
B  => 'Inout',
I  => 'Input',
O  => 'Output',
HV => 'Power',
HG => 'Ground',
);

foreach (@array) {
my @tmp;
my $rc;

   next if /PININFO/;

   @tmp = split /:/, $_;
   $rc = "$tmp[0]" . ' ' . "$tmp[1]";
   if($tmp[1] eq 'B') {
        $rc = $rc . ' ' . "$hash{$tmp[1]}";
   } else {

   }

   print "$rc\n";
}

是這么算么？

dahe_1984

$ perl yuama.pl
("A" "Input")
("Y" "Output")
("HG" "Inout" "Ground")
("HV" "Inout" "Power")

he@he-THINK ~/manson/Image
$ cat yuama.pl
#!perl

my $str = '*.PININFO A:I Y:O HG:B HV:B';

my @array = split /\s+/, $str;

my %hash = (
B  => 'Inout',
I  => 'Input',
O  => 'Output',
HV => 'Power',
HG => 'Ground',
);

foreach (@array) {
my @tmp;
my $rc;

   next if /PININFO/;

   @tmp = split /:/, $_;
   $rc = "\"$tmp[0]\"" . ' ' . "\"$hash{$tmp[1]}\"";
   if($tmp[1] eq 'B') {
        $rc = $rc . ' ' . "\"$hash{$tmp[0]}\"";
   } else {

   }

   print "($rc)\n";
}

yuama

回復(fù) 7# dahe_1984


    謝謝了先，贊一個好快

yuama

回復(fù) 7# dahe_1984


    有好多行的，不光只有一行，只是簡單句了個例子
另外每一段要提取的都是以.SUBCKT開始的，也不是從圖片提取，是從文件提的
.SUBCKT 后面跟著:I, :B, :O字符前的字符串，然后是一行一行的下面這些東西
*.PININFO ADC1_CHSEL[0]:I ADC1_CLK:I ADC1_CONV:I ADC1_ON:I ADC1_SAMP:I
*.PININFO ADC1_TSVREFE:I ADC2_CHSEL[4]:I ADC2_CHSEL[3]:I ADC2_CHSEL[2]:I
*.PININFO ADC2_CHSEL[1]:I ADC2_CHSEL[0]:I ADC2_CLK:I ADC2_CONV:I ADC2_ON:I
*.PININFO ADC2_SAMP:I CORE_PLL_CON[5]:I CORE_PLL_CON[4]:I CORE_PLL_CON[3]:I
*.PININFO CORE_PLL_CON[2]:I CORE_PLL_CON[1]:I CORE_PLL_CON[0]:I
*.PININFO CORE_POR_OFF_H:I CSS_EN:I HSEBYP:I HSEON:I HSION:I HSI_CAL[7]:I
*.PININFO HSI_CAL[6]:I HSI_CAL[5]:I HSI_CAL[4]:I HSI_CAL[3]:I HSI_CAL[2]:I
*.PININFO HSI_CAL[1]:I HSI_CAL[0]:I LP_MODE:I LSEBYP_H:I LSEON_H:I LSION_H:I
*.PININFO PLLMUL[4]:I PLLMUL[3]:I PLLMUL[2]:I PLLMUL[1]:I PLLMUL[0]:I PLLON:I
*.PININFO PLLSRC:I PLLXTPRE:I PLS_H[2]:I PLS_H[1]:I PLS_H[0]:I PVD_EN_H:I
*.PININFO TEST_MODE_H:I TEST_S0_H:I TEST_S1_H:I TEST_S2_H:I TI_HSI_H:I
*.PININFO TI_POR_H:I TO_SPOR_H:I VC[4]:I VC[3]:I VC[2]:I VC[1]:I VC[0]:I
*.PININFO ADC1_DATA[11]:O ADC1_DATA[10]:O ADC1_DATA[9]:O ADC1_DATA[8]:O
*.PININFO ADC1_DATA[7]:O ADC1_DATA[6]:O ADC1_DATA[5]:O ADC1_DATA[4]:O
*.PININFO ADC1_DATA[3]:O ADC1_DATA[2]:O ADC1_DATA[1]:O ADC1_DATA[0]:O
*.PININFO ADC2_DATA[11]:O ADC2_DATA[10]:O ADC2_DATA[9]:O ADC2_DATA[8]:O
要是能把文件傳給你就好了，可惜我unix服務(wù)器上的東西沒權(quán)限弄出來

dahe_1984

你自己在加點東西吧， 每次都只說一點點，