1*ebfedea0SLionel Sambuc#!/usr/bin/perl 2*ebfedea0SLionel Sambuc 3*ebfedea0SLionel Sambucwhile(<STDIN>) { 4*ebfedea0SLionel Sambuc if (/=for\s+comment\s+openssl_manual_section:(\S+)/) 5*ebfedea0SLionel Sambuc { 6*ebfedea0SLionel Sambuc print "$1\n"; 7*ebfedea0SLionel Sambuc exit 0; 8*ebfedea0SLionel Sambuc } 9*ebfedea0SLionel Sambuc} 10*ebfedea0SLionel Sambuc 11*ebfedea0SLionel Sambucprint "$ARGV[0]\n"; 12*ebfedea0SLionel Sambuc 13