Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (8 sloc) 178 Bytes
my $file = '../gl_const.h';
die "Unable to open '$file'" if (!open(FILE,$file));
foreach my $line (<FILE>)
{
next if $line !~ m|i\(([^\)]+)\)|;
print "$1\n";
}
close(FILE);