
imillard
Deleted
Jan 22, 2001, 12:35 PM
Post #3 of 4
(4128 views)
|
I am using Perl 5. #! /usr/bin/perl use LWP::UserAgent; use HTTP::Request; use HTTP::Response; %prefs = ( jama => { source => "Journal of the American Medical Association", urls => ["http://jama.ama-assn.org/pi/index.html"], include => ["^http://jama.ama-assn.org/issues/v28[4-9]n\\\d+/toc\\.htm", "^http://jama.ama-assn.org/issues/v28[4-9]n\\\d+/ffull", "^http://jama.ama-assn.org/issues/v28[4-9]n\\\d+/abs"], TitleSub => sub { my ($c, $url) = @_; return $1 if ( $c =~ /<meta name="DOCTITLE" content="(.*?)">/si ); }, xreg => ["\\.pdf","/v284n[1-9]/","/v284n10/","/rfull/"], depth => 3, index => 0,}, ); Here is an example of some code.
|