3,882
社区成员




#perl xx.pl xx.h
#xx.pl
if(open FILE, $ARGV[0])
{
my $Line;
my $Flag = 0;
while($Line = <FILE>)
{
if($Line =~ /public:/)
{
$Flag = 1;
next;
}
elsif($Line =~ /(private:|protected:)/)
{
$Flag = 0;
next;
}
if($Flag == 1)
{
print $Line;
}
}
}