| Subject: | new features |
Hello,
i implement some new information runtime, tagline and countries, languages.
for runtime, tagline i have to use also the German-word because i use the http://german.imdb.com host (have anyone a better idea ?).
in the _cast-routine i add a new item named oder to get the actors in original order.
sub _cast {
my $parser = shift;
my ($tag,%name,$i);
...
while ($tag = $parser->get_tag('a')) {
my $href = $tag->[1]{href};
if ($href) {
if ($href eq 'fullcredits') {
last;
} else {
my ($id) = $href =~ /\/name\/nm(\d+)/;
if ($id) {
$i++; # the order counter
my $name = $parser->get_text;
$name = reverse $name;
my ($l,$f) = map { scalar reverse $_} split(' ',$name,2);
$name{$id} = { order => $i, id => $id, last_name => $l, first_name => $f };
}
}
}
}
return {%name};
}
by
frank
Message body is not shown because it is too large.