| 1 | --- imdb.pl.orig 2007-06-10 15:45:06.000000000 -0400 |
|---|
| 2 | +++ imdb.pl 2007-06-27 03:19:17.000000000 -0400 |
|---|
| 3 | @@ -31,6 +31,7 @@ |
|---|
| 4 | use HTML::Entities; |
|---|
| 5 | use URI::Escape; |
|---|
| 6 | |
|---|
| 7 | +my @countries = qw(USA UK Canada Japan); |
|---|
| 8 | |
|---|
| 9 | use vars qw($opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P); |
|---|
| 10 | use Getopt::Std; |
|---|
| 11 | @@ -185,9 +186,12 @@ |
|---|
| 12 | } |
|---|
| 13 | |
|---|
| 14 | # parse movie length |
|---|
| 15 | - my $runtime = trim(parseBetween($response, ">Runtime:</h5>", " min")); |
|---|
| 16 | - unless ($runtime =~ /^-?\d/) { |
|---|
| 17 | - $runtime = trim(parseBetween($response, "USA:", " min")); |
|---|
| 18 | + my $rawruntime = trim(parseBetween($response, ">Runtime:</h5>", "</div>")); |
|---|
| 19 | + my $runtime = trim(parseBetween($rawruntime, "", " min")); |
|---|
| 20 | + for my $country (@countries) |
|---|
| 21 | + { |
|---|
| 22 | + last if ($runtime =~ /^-?\d/) ; |
|---|
| 23 | + $runtime = trim(parseBetween($rawruntime, "$country:", " min")); |
|---|
| 24 | } |
|---|
| 25 | |
|---|
| 26 | # parse cast |
|---|
