25 |
my $j_category="sd_Journal_Category.txt"; |
my $j_category="sd_Journal_Category.txt"; |
26 |
|
|
27 |
# URL to list of subscribed journals |
# URL to list of subscribed journals |
28 |
|
|
29 |
my $url = 'http://www.sciencedirect.com/science?_ob=JournalListURL&_type=subscribed&_stype=title&subjColl=all&_auth=y&_update=y&_frameSeg=M&_title=all&_acct=C000050661&_version=1&_urlVersion=0&_userid=1034703&md5=6d4b6e263318a1d7d2a3b523d861f920'; |
my $url = 'http://www.sciencedirect.com/science?_ob=JournalListURL&_type=subscribed&_stype=title&subjColl=all&_auth=y&_update=y&_frameSeg=M&_title=all&_acct=C000050661&_version=1&_urlVersion=0&_userid=1034703&md5=6d4b6e263318a1d7d2a3b523d861f920'; |
30 |
|
|
31 |
my $html_codepage="iso-8859-1"; |
my $html_codepage="iso-8859-1"; |
32 |
|
|
33 |
my $csv = Text::CSV->new(); |
my $csv = Text::CSV->new(); |