10 |
my $debug=1; |
my $debug=1; |
11 |
|
|
12 |
my $base_url = 'http://www.sciencedirect.com'; |
my $base_url = 'http://www.sciencedirect.com'; |
13 |
my $url = $base_url . '/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 = $base_url . '/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'; |
14 |
|
|
15 |
$debug++ if (lc($ARGV[0]) eq "-d"); |
$debug++ if (lc($ARGV[0]) eq "-d"); |
16 |
|
|