crypto/openssl/util/extract-section.pl

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