免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3686 | 回复: 3

【求助】如何在正在读写的文件中判断匹配,然后产生代码 [复制链接]

论坛徽章:
0
发表于 2013-12-18 16:11 |显示全部楼层
本帖最后由 freedos520 于 2013-12-23 19:44 编辑

我要自动产生一段的算法的C代码,自我感觉实现起来比较复杂,请教论坛的高手!
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 输入的那些语句?匹配上之后,则将产生一段代码。

风景

风景

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-12-19 01:54 |显示全部楼层
则:~
  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. my $inf = join '', @inf[ 2 .. 4 ];

  7. if ( $inf =~ /input\s+test\s+(bor),/ ) {
  8.     my ( $uppercase, $lowercase ) = ( uc $1, lc $1 );
  9.     push @inf, "\n";
  10.     push @inf, "output aor_t; \n";
  11.     push @inf, "\n";
  12.     push @inf, "\n";
  13.     push @inf,
  14.       "AAA_level aaa_testnode_($uppercase)   ( mux_i( test_src ),"
  15.       . " mux_o( test_$lowercase ), div( $lowercase ) ) \n";
  16.     push @inf, "\n";
  17. }
  18. else {
  19.     push @inf, "\n";
  20.     push @inf, "Fail found!\n";
  21.     push @inf, "\n";
  22. }

  23. push @inf, "\n";
  24. push @inf, "endprogram\n";

  25. open my $INF, ">", "wrd_wist.c";
  26. print $INF @inf;
复制代码

论坛徽章:
0
发表于 2013-12-19 11:31 |显示全部楼层
本帖最后由 freedos520 于 2013-12-19 14:11 编辑
rubyish 发表于 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 ];

论坛徽章:
7
戌狗
日期:2013-12-15 20:43:38技术图书徽章
日期:2014-03-05 01:33:12技术图书徽章
日期:2014-03-15 20:31:17未羊
日期:2014-03-25 23:48:20丑牛
日期:2014-04-07 22:37:44巳蛇
日期:2014-04-11 21:58:0915-16赛季CBA联赛之青岛
日期:2016-03-17 20:36:13
发表于 2013-12-23 01:17 |显示全部楼层
回复 3# freedos520
  1. my @inf = qw/1 2 3 4 5 6/;
  2. print join '-', @inf[2 .. 4];
  3. # 3-4-5     # index2 ~ index4
复制代码
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP