【求助】如何在正在讀寫的文件中判斷匹配，然后產生代碼

freedos520

我要自動產生一段的算法的C代碼，自我感覺實現(xiàn)起來比較復雜，請教論壇的高手！
perl腳本如下：
#!/usr/bin/perl

open my $inF, "+>", "wrd_wist.c";    #“+>” 為先寫，后讀

printf ( $inF "program main()\n");
printf ( $inF "\n");

printf ( $inF "input aor, \n");           #要匹配的語句，注意有逗號
printf ( $inF "input test bor, \n");      #要匹配的語句
printf ( $inF "input test cor, \n");      #要匹配的語句


if ($inF =~ /input\s+test\s+bor,/) {      #正在讀寫的文件句柄能否作為匹配變量？該怎么做？
printf ($inF "\n");
printf ($inF "output aor_t; \n");
printf ($inF "\n");
}
else
{
printf ($inF "\n");
printf ($inF "Fail found!\n");
printf ($inF "\n");
}


if ($inF =~ /input\s+test\s+bor,/) {      
printf ($inF "\n");
printf ($inF "AAA_level aaa_testnode_($uppercase)   ( mux_i( test_src ), mux_o( test_$lowercase ), div( $lowercase ) ) \n");
#這里的uppercase和lowercase均指的是input test bor這個匹配的變量的最后一個單詞bor，我不知道該怎么表達這個匹配上的字符串的最后一個變量。
printf ($inF "\n");
}
else
{
printf ($inF "\n");
printf ($inF "Fail found!\n");
printf ($inF "\n");
}

printf($inF "\n");
printf ($inF "endprogram\n");
close($inF)

#此perl可拷貝后，直接運行，產生wrd_wist.c文件。
#代碼中的注釋是我想做的事情。
#我想用if () {}語句來匹配前面三行printf在test.c中寫入的句子。
#請教各位，我應該怎么匹配前面的printf 輸入的那些語句？匹配上之后，則將產生一段代碼。

rubyish

則:~

1. my @inf = "program main()\n";
   
2. push @inf, "\n";
   
3. push @inf, "input aor, \n";
   
4. push @inf, "input test bor, \n";
   
5. push @inf, "input test cor, \n";
   
6. 
   
7. my $inf = join '', @inf[ 2 .. 4 ];
   
8. 
   
9. if ( $inf =~ /input\s+test\s+(bor),/ ) {
   
10.     my ( $uppercase, $lowercase ) = ( uc $1, lc $1 );
    
11.     push @inf, "\n";
    
12.     push @inf, "output aor_t; \n";
    
13.     push @inf, "\n";
    
14.     push @inf, "\n";
    
15.     push @inf,
    
16.       "AAA_level aaa_testnode_($uppercase)   ( mux_i( test_src ),"
    
17.       . " mux_o( test_$lowercase ), div( $lowercase ) ) \n";
    
18.     push @inf, "\n";
    
19. }
    
20. else {
    
21.     push @inf, "\n";
    
22.     push @inf, "Fail found!\n";
    
23.     push @inf, "\n";
    
24. }
    
25. 
    
26. push @inf, "\n";
    
27. push @inf, "endprogram\n";
    
28. 
    
29. open my $INF, ">", "wrd_wist.c";
    
30. print $INF @inf;

復制代碼

freedos520

rubyish 發(fā)表于 2013-12-19 01:54
則:~

萬分感激！

多謝大神！

請教下面這句怎么理解啊？


push @inf, "input aor, \n";
push @inf, "input test bor, \n";
push @inf, "input test cor, \n";

my $inf = join '', @inf[ 2 .. 4 ];

rubyish

回復 3# freedos520

1. my @inf = qw/1 2 3 4 5 6/;
   
2. print join '-', @inf[2 .. 4];
   
3. # 3-4-5     # index2 ~ index4

復制代碼