Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use strict;
- use warnings;
- use CGI qw(:standard);
- use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
- use Data::Dumper;
- my $cgi = new CGI;
- print STDERR Dumper( $cgi->path_info );
- exit(0);
- # ERROR OUTPUT from HTTP access and error logs
- ==> /var/log/httpd/access_log <==
- 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"
- ==> /var/log/httpd/error_log <==
- [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