#!/usr/bin/perl -wT #use strict; use LWP::UserAgent; use HTTP::Request; my $URL = 'https://web.plattsburgh.edu/php-bin/catalog/crs.php?q=CSC'; my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30); my $header = HTTP::Request->new(GET => $URL); my $request = HTTP::Request->new('GET', $URL, $header); my $response = $agent->request($request); # Check the outcome of the response if ($response->is_success){ print "URL:$URL\nHeaders:\n"; print $response->headers_as_string; print "\nContent:\n"; print $response->as_string; }elsif ($response->is_error){ print "Error:$URL\n"; print $response->error_as_HTML; } exit; #-- #!/usr/bin/perl -wT use strict; use CGI qw(:standard); #use CGI::Carp qw(warningsToBrowser fatalsToBrowser); # To prevent security problems comment out CGI::Carp once this software ready. use LWP::Simple 'get'; #print header; my $URL = 'https://web.plattsburgh.edu/php-bin/catalog/crs.php?q=csc'; #'http://www.plattsburgh.edu/php-bin/catalog/crs.php?q=csc'; my $content = get('https://web.plattsburgh.edu/academics/programs.php'); die "Couldn't get $URL" unless defined $content; print $content; exit; if ($content =~ /CSC Courses(.*)Search the College Course Catalog/s) { my $title = "CSC Course Descriptions"; print start_html( -title => $title, -style => {-src => '../../styles.css'}); print h1($title); print "\n"; print '
(.*?)
#$1$2