69 |
} |
} |
70 |
|
|
71 |
foreach my $i (4, 6, 8, 10) { |
foreach my $i (4, 6, 8, 10) { |
72 |
|
push @{$journal->{$key}},$data[$i] || ""; |
73 |
if ($data[$i]) { |
if ($data[$i]) { |
|
push @{$journal->{$key}},$data[$i]; |
|
74 |
$c_nr++; |
$c_nr++; |
75 |
} |
} |
76 |
} |
} |
105 |
if ($link->attr('href') =~ m{/science\?_ob=JournalURL}) { |
if ($link->attr('href') =~ m{/science\?_ob=JournalURL}) { |
106 |
my $j=nuc($link->as_text); |
my $j=nuc($link->as_text); |
107 |
if ($journal->{$j}) { |
if ($journal->{$j}) { |
108 |
print join("\n",@{$journal->{$j}}); |
my $i=0; |
109 |
|
foreach my $line (@{$journal->{$j}}) { |
110 |
|
print $i++,": $line\n"; |
111 |
|
} |
112 |
$j_detailed++; |
$j_detailed++; |
113 |
} else { |
} else { |
114 |
print $link->attr('href')."\n"; |
print $link->attr('href')."\n"; |