Advertisement
Guest User

Untitled

a guest
Jun 24th, 2017
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.37 KB | None | 0 0
  1. while(<H>) {
  2.     if(/\W(CURL(E|KH|INFO_|PAUSE|_VERSION|SHE_|SHOPT|_LOCK|_FORMADD|IOCMD|_FNMATCHFUNC|_SEEKFUNC|_CHUNK|FILETYPE|PROXY|AUTH_|CLOSEPOLICY_|FTPAUTH_|FTP_|FTPMETHOD_|FTPSSL_|_HTTP_|PROTO_|M_|_NETRC_|SSH_AUTH_|_SSLVERSION_|USESSL_|OPT_|_RTSPREQ_)[A-Z_0-9v]*)/) {
  3.         print "$1\n";
  4.     }
  5.     elsif(/CINIT\(([A-Z0-9_]*)/) {
  6.         print "CURLOPT_$1\n";
  7.     }
  8. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement