| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
package WWW::Scraper::ISBN::ISBNnu_Driver; |
|
2
|
|
|
|
|
|
|
|
|
3
|
6
|
|
|
6
|
|
209653
|
use strict; |
|
|
6
|
|
|
|
|
23
|
|
|
|
6
|
|
|
|
|
479
|
|
|
4
|
6
|
|
|
6
|
|
39
|
use warnings; |
|
|
6
|
|
|
|
|
14
|
|
|
|
6
|
|
|
|
|
531
|
|
|
5
|
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
our $VERSION = '0.23'; |
|
7
|
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
#-------------------------------------------------------------------------- |
|
9
|
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
########################################################################### |
|
11
|
|
|
|
|
|
|
# Inheritence |
|
12
|
|
|
|
|
|
|
|
|
13
|
6
|
|
|
6
|
|
42
|
use base qw(WWW::Scraper::ISBN::Driver); |
|
|
6
|
|
|
|
|
17
|
|
|
|
6
|
|
|
|
|
7280
|
|
|
14
|
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
########################################################################### |
|
16
|
|
|
|
|
|
|
# Modules |
|
17
|
|
|
|
|
|
|
|
|
18
|
6
|
|
|
6
|
|
18417
|
use WWW::Mechanize; |
|
|
6
|
|
|
|
|
1423494
|
|
|
|
6
|
|
|
|
|
7610
|
|
|
19
|
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
########################################################################### |
|
21
|
|
|
|
|
|
|
# Variables |
|
22
|
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
my $IN2MM = 0.0393700787; # number of inches in a millimetre (mm) |
|
24
|
|
|
|
|
|
|
my $LB2G = 0.00220462; # number of pounds (lbs) in a gram |
|
25
|
|
|
|
|
|
|
my $OZ2G = 0.035274; # number of ounces (oz) in a gram |
|
26
|
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
#-------------------------------------------------------------------------- |
|
28
|
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
########################################################################### |
|
30
|
|
|
|
|
|
|
# Public Interface |
|
31
|
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
sub trim { |
|
33
|
12
|
|
|
12
|
1
|
22
|
my ($self,$value) = @_; |
|
34
|
|
|
|
|
|
|
|
|
35
|
12
|
50
|
|
|
|
35
|
return '' unless(defined $value); |
|
36
|
|
|
|
|
|
|
|
|
37
|
12
|
|
|
|
|
45
|
$value =~ s/^\s+//; # trim leading whitespace |
|
38
|
12
|
|
|
|
|
220
|
$value =~ s/\s+$//; # trim trailing whitespace |
|
39
|
12
|
|
|
|
|
31
|
$value =~ s/\n//g; # trim newlines? |
|
40
|
12
|
|
|
|
|
212
|
$value =~ s/ +/ /g; # trim extra middle space |
|
41
|
12
|
|
|
|
|
46
|
$value =~ s/<[^>]+>//g; # remove tags |
|
42
|
|
|
|
|
|
|
|
|
43
|
12
|
|
|
|
|
676
|
return $value; |
|
44
|
|
|
|
|
|
|
} |
|
45
|
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
sub search { |
|
47
|
2
|
|
|
2
|
1
|
14457
|
my ($self,$isbn) = @_; |
|
48
|
2
|
|
|
|
|
6
|
my %data; |
|
49
|
|
|
|
|
|
|
|
|
50
|
2
|
|
|
|
|
13
|
$self->found(0); |
|
51
|
2
|
|
|
|
|
45
|
$self->book(undef); |
|
52
|
|
|
|
|
|
|
|
|
53
|
2
|
|
|
|
|
23
|
my $post_url = "http://isbn.nu/".$isbn; |
|
54
|
2
|
|
|
|
|
16
|
my $mech = WWW::Mechanize->new(); |
|
55
|
2
|
|
|
|
|
17445
|
$mech->agent_alias( 'Linux Mozilla' ); |
|
56
|
2
|
|
|
|
|
146
|
$mech->add_header( 'Accept-Encoding' => undef ); |
|
57
|
|
|
|
|
|
|
|
|
58
|
2
|
|
|
|
|
24
|
eval { $mech->get( $post_url ) }; |
|
|
2
|
|
|
|
|
11
|
|
|
59
|
2
|
50
|
33
|
|
|
1538065
|
return $self->handler("isbn.nu website appears to be unavailable.") |
|
|
|
|
33
|
|
|
|
|
|
60
|
|
|
|
|
|
|
if($@ || !$mech->success() || !$mech->content()); |
|
61
|
|
|
|
|
|
|
|
|
62
|
2
|
|
|
|
|
297
|
my $html = $mech->content(); |
|
63
|
2
|
|
|
|
|
88
|
my ($title) = $html =~ /([^<]+)<\/title>/; </td>
</tr>
<tr>
<td class="h" >
<a name="64">64</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
12
</td>
<td class="s"> $data{title} = $self->trim($title); </td>
</tr>
<tr>
<td class="h" >
<a name="65">65</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="66">66</a>
</td>
<td class="c3" >
2
</td>
<td class="c0" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--branch.html#66-1">
50
</a>
</td>
<td class="c0" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--condition.html#66-1">
33
</a>
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> return $self->handler("Failed to find that book on the isbn.nu website.") </td>
</tr>
<tr>
<td class="h" >
<a name="67">67</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!$data{title} || $data{title} eq "No Title Found"); </td>
</tr>
<tr>
<td class="h" >
<a name="68">68</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="69">69</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10258
</td>
<td class="s"> ($data{publisher}) = $html =~ m!<span class="bi_col_title">Publisher</span>\s*<span class="bi_col_value">([^<]+)</span></div>!si; </td>
</tr>
<tr>
<td class="h" >
<a name="70">70</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
105
</td>
<td class="s"> ($data{pubdate}) = $html =~ m!<span class="bi_col_title">Publication date</span>\s*<span class="bi_col_value">([^<]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="71">71</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
52
</td>
<td class="s"> ($data{pages}) = $html =~ m!<span class="bi_col_title">Pages</span>\s*<span class="bi_col_value">([0-9]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="72">72</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
44
</td>
<td class="s"> ($data{edition}) = $html =~ m!<span class="bi_col_title">Edition</span>\s*<span class="bi_col_value">([^<]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="73">73</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
45
</td>
<td class="s"> ($data{volume}) = $html =~ m!<span class="bi_col_title">Volume</span>\s*<span class="bi_col_value">([^<]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="74">74</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
50
</td>
<td class="s"> ($data{binding}) = $html =~ m!<span class="bi_col_title">Binding</span>\s*<span class="bi_col_value">([^<]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="75">75</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
51
</td>
<td class="s"> ($data{isbn13}) = $html =~ m!<span class="bi_col_title">ISBN-13</span>\s*<span class="bi_col_value">([0-9]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="76">76</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
47
</td>
<td class="s"> ($data{isbn10}) = $html =~ m!<span class="bi_col_title">ISBN-10</span>\s*<span class="bi_col_value">([0-9X]+)</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="77">77</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
94
</td>
<td class="s"> ($data{weight}) = $html =~ m!<span class="bi_col_title">Weight</span>\s*<span class="bi_col_value">([0-9\.]+) lbs.</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="78">78</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
88
</td>
<td class="s"> ($data{author}) = $html =~ m!<div class="d_descriptive">By\s*(.*?)\s*</div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="79">79</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
50
</td>
<td class="s"> ($data{description})= $html =~ m!<div class="bi_annotation_text"><div class="bi_anno_text_head">Summary</div>([^<]+)<!; </td>
</tr>
<tr>
<td class="h" >
<a name="80">80</a>
</td>
<td class="c3" >
2
</td>
<td class="c3" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--branch.html#80-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
222
</td>
<td class="s"> ($data{description})= $html =~ m!<div class="bi_wide bi_annotation_text"><a name="amazondesc"></a><b>Amazon.com description:</b> <b>Product Description</b>:([^<]+)<! unless($data{description}); </td>
</tr>
<tr>
<td class="h" >
<a name="81">81</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="82">82</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
17
</td>
<td class="s"> $data{$_} = $self->trim($data{$_}) for(qw(publisher pubdate binding author description)); </td>
</tr>
<tr>
<td class="h" >
<a name="83">83</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="84">84</a>
</td>
<td class="c3" >
2
</td>
<td class="c3" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--branch.html#84-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
18
</td>
<td class="s"> if($data{weight}) { </td>
</tr>
<tr>
<td class="h" >
<a name="85">85</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> $data{weight} = int($data{weight} / $LB2G); </td>
</tr>
<tr>
<td class="h" >
<a name="86">86</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="87">87</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="88">88</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
57
</td>
<td class="s"> my @size = $html =~ m!<span class="bi_col_title">Dimensions</span>\s*<span class="bi_col_value">([0-9\.]+) by ([0-9\.]+) by ([0-9\.]+) in.</span></div>!; </td>
</tr>
<tr>
<td class="h" >
<a name="89">89</a>
</td>
<td class="c3" >
2
</td>
<td class="c3" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--branch.html#89-1">
100
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
7
</td>
<td class="s"> if(@size) { </td>
</tr>
<tr>
<td class="h" >
<a name="90">90</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
15
</td>
<td class="s"> ($data{depth},$data{width},$data{height}) = sort @size; </td>
</tr>
<tr>
<td class="h" >
<a name="91">91</a>
</td>
<td class="c3" >
1
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
10
</td>
<td class="s"> $data{$_} = int($data{$_} / $IN2MM) for(qw( height width depth )); </td>
</tr>
<tr>
<td class="h" >
<a name="92">92</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="93">93</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="94">94</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> #print STDERR "#html=".Dumper(\%data)."\n"; </td>
</tr>
<tr>
<td class="h" >
<a name="95">95</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="96">96</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> $data{book_link} = $mech->uri(); </td>
</tr>
<tr>
<td class="h" >
<a name="97">97</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="98">98</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
84
</td>
<td class="s"> $data{ean13} = $data{isbn13}; </td>
</tr>
<tr>
<td class="h" >
<a name="99">99</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-WWW-Scraper-ISBN-ISBNnu_Driver-pm--condition.html#99-1">
33
</a>
</td>
<td >
</td>
<td >
</td>
<td >
13
</td>
<td class="s"> $data{isbn} = $data{isbn13} || $isbn; </td>
</tr>
<tr>
<td class="h" >
<a name="100">100</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
30
</td>
<td class="s"> $data{html} = $html; </td>
</tr>
<tr>
<td class="h" >
<a name="101">101</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="102">102</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
16
</td>
<td class="s"> $self->book(\%data); </td>
</tr>
<tr>
<td class="h" >
<a name="103">103</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="104">104</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
33
</td>
<td class="s"> $self->found(1); </td>
</tr>
<tr>
<td class="h" >
<a name="105">105</a>
</td>
<td class="c3" >
2
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
24
</td>
<td class="s"> return $self->book; </td>
</tr>
<tr>
<td class="h" >
<a name="106">106</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="107">107</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="108">108</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> 1; </td>
</tr>
<tr>
<td class="h" >
<a name="109">109</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="110">110</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> __END__ </td>
</tr>
</table>
</body>
</html>
|