Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
52
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.28 KB | None | 0 0
  1. my $h = "include/curl/curl.h";
  2. open H_IN, "-|", "cpp", $h;
  3. while ( <H_IN> ) {
  4.         if ( /enum\s+(\S+\s+)?{/ .. /}/ ) {
  5.                 s/^\s+//;
  6.                 next unless /^CURL/;
  7.                 chomp;
  8.                 s/[,\s].*//;
  9.                 print $_ . "\n";
  10.         }
  11. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement