extract-section.pl

来自「mediastreamer2是开源的网络传输媒体流的库」· PL 代码 · 共 13 行

#!/usr/bin/perl

while(<STDIN>) {
	if (/=for\s+comment\s+openssl_manual_section:(\S+)/)
		{
		print "$1\n";
		exit 0;
		}
}

print "$ARGV[0]\n";