Advertisement
Guest User

Untitled

a guest
Jun 26th, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 0.72 KB | None | 0 0
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use CGI qw(:standard);
  5. use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
  6. use Data::Dumper;
  7.  
  8.  
  9. my $cgi = new CGI;
  10. print STDERR Dumper( $cgi->path_info );
  11. exit(0);
  12.  
  13.  
  14. # ERROR OUTPUT from HTTP access and error logs
  15. ==> /var/log/httpd/access_log <==
  16. 10.44.46.181 - - [09/Nov/2010:12:17:10 +0000] "GET /sub/01YtfDWgjk/n29++06kWA HTTP/1.1" 200 333 "-" "curl/7.21.0 (i686-pc-linux-gnu) libcurl/7.21.0 OpenSSL/0.9.8o zlib/1.2.3.4 libidn/1.18"
  17.  
  18. ==> /var/log/httpd/error_log <==
  19. [Tue Nov 09 12:17:11 2010] [error] [client 10.44.46.181] [Tue Nov  9 12:17:11 2010] test.pl: Nested quantifiers in regex; marked by <-- HERE in m//sub/01YtfDWgjk/n29++ <-- HERE 06kWA$/ at (eval 5) line 7.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement