I wish to read a page and print a part of it.
I want t read first 300 characters of <div id="bodyContent"> written inside the html page.
Code I am using :
Expand|Select|Wrap|Line Numbers
- #!/usr/bin/perl
- use DBI;
- use CGI;
- use LWP::Simple;
- use LWP::UserAgent;
- use DateTime::Format::Strptime;
- use JSON;
- use HTML::Template;
- use HTML::Parser;
- use HTML::Entities;
- $q = new CGI;
- print "Content-type: text/html\n\n";
- my $url = '------site url comes here ----';
- use LWP::Simple;
- my $content = get $url;
- die "Couldn't get $url" unless defined $content;
- #$description = &convert_to_page(substr($content,0,650));
- print $content;
- 1;