Perlでリクに答えるスクリプトを作るスレ

Perlでリクに答えるスクリプトを作るスレ at TECH

225:デフォルトの名無しさん
05/06/03 01:02:52
>>222
うちで試した限りでは抽出できたがどっかまずいとこあるかもしれん

#
# test.pl infile outfile
#
open(IN,$ARGV[0]) or die("can't open $ARGV[0].\n");
open(OUT,'>'.$ARGV[1]) or die("can't open $ARGV[1].\n");
while(<IN>){
nextunless(/^\s*((\w+\s+)*[\w\*]+)\s+(\w+)$([^$]+)\)/); # 末尾に；つければ定義部のみ拾えるだろう
my $type = $1;
my $func = $3;
my $expr = join(' ',$4 =~ /([\w\*]+)\s+\w+[\,\s\)]/g);
$expr = 'void'if(!$expr);
print OUT "$type $func$$expr$;\n";
}
close(IN);
close(OUT);

次ページ

続きを表示

1を表示