13 |
|
|
14 |
print MPS "M working...\n"; |
print MPS "M working...\n"; |
15 |
|
|
|
my %dbs = ( |
|
|
'http://www.epnet.com/TitleLists/html/ap_ft_h1.htm' => |
|
|
'Academic Search Premier', |
|
|
'http://www.epnet.com/TitleLists/html/bu_ft_h1.htm' => |
|
|
'Business Source Premier', |
|
|
'http://www.epnet.com/TitleLists/html/hc_h1.htm' => |
|
|
'Health Source: Nursing/Academic Edition', |
|
|
'http://www.epnet.com/images/html.gif' => |
|
|
'MasterFILE Premier', |
|
|
'http://www.epnet.com/TitleLists/html/bw_h1.htm' => |
|
|
'Regional Business News |
|
|
) |
|
|
|
|
16 |
my $url = 'http://www.epnet.com/TitleLists/html/ap_ft_h1.htm'; |
my $url = 'http://www.epnet.com/TitleLists/html/ap_ft_h1.htm'; |
17 |
my $base_url = 'http://web13.epnet.com/HJAFDetail.asp?tb=1&_ug=dbs+0+ln+en%2Dus+sid+956028C9%2DC274%2D45E9%2DB9C3%2DE2EEDB566264%40Sessionmgr6+46E0&_uh=btn+Y+fst+Zoologica++Scripta+idb+aphish+jdb+aphjnh+lst+Zygon%3A++Journal++of++Religion++%26++Science+md+B+op+scan+shn+1+B7D1&_us=db+0+dstb+ES+fh+0+hd+0+hs+0+or+Date+sm+ES+ss+SO+BC5A&vw=D&rn=&st='; |
my $base_url = 'http://web13.epnet.com/HJAFDetail.asp?tb=1&_ug=dbs+0+ln+en%2Dus+sid+956028C9%2DC274%2D45E9%2DB9C3%2DE2EEDB566264%40Sessionmgr6+46E0&_uh=btn+Y+fst+Zoologica++Scripta+idb+aphish+jdb+aphjnh+lst+Zygon%3A++Journal++of++Religion++%26++Science+md+B+op+scan+shn+1+B7D1&_us=db+0+dstb+ES+fh+0+hd+0+hs+0+or+Date+sm+ES+ss+SO+BC5A&vw=D&rn=&st='; |
18 |
|
|