编写一个程序，读入一个c程序，按照字母表的顺序分组打印变量名字.字符串和注释中的单词不考虑

用perl还是挺简单的
open($file,'a.c');
my $annot=0;
my %struc={-int=>0,-double=>0,-char=>0,....};
my @var;
while(<$file>){
if($annot){
if(/.*?\*\/(.*)/){$_=$1;}
}
if(/(.*)?\/\//){$_=$1;}
if(/struct\s+\(w+)/){$struc{$1}=1;}
if(/^\s*(\w+)\s+(\w+)\s*;/){if(exists($struc{$1}){push @var,$2;}}
}
print sort(@var);
只是简单处理了下，像int a,b,c,d这样的类型还是要特殊处理下

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/r3eervv3y.html