2
0

extract-section.pl 146 B

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