| From: | Sebastien EDET <sebastien.edet [...] free.fr> |
| To: | <bug-IMDB-Movie [...] rt.cpan.org> |
| Subject: | TR: IMDB.pm with the role of the actors |
| Date: | Tue, 13 Jan 2004 18:57:00 +0100 |
Now I tried to add other informations like sound-mix, color, languages and
countries
I will send you the new module when I finish
Sebastien
-----Message d'origine-----
De : Jeff Anderson [mailto:captvanhalen@yahoo.com]
Envoye : mardi 13 janvier 2004 18:37
A : Sibastien_EDET
Objet : Re: IMDB.pm with the role of the actors
Hello Sibastien. Thanks for submitting this. Would you be so kind as to
start
using RT CPAN for bug reports/patches?
http://rt.cpan.org/NoAuth/Bugs.html?Dist=IMDB-Movie
Or send the original email (if you have it) or just reply to this email and
change the To: to bug-IMDB-Movie@rt.cpan.org
so i can handle this 'professionally'. ;)
thanks,
jeffa
--- Sibastien_EDET <sebastien.edet@free.fr> wrote:
Show quoted text
> Sorry for my english because I'm french, I used your IMDB module yesterday
> and I was surprised that the role of the actors in the function _cast()
was
Show quoted text> not present that is why I tried do modify this function like this :
>
> 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) {
> my $acteur = $parser->get_text;
> $acteur = reverse $acteur;
> my ($l,$f) = map { scalar reverse
> $_} split(' ',$acteur,2);
> $name{$id} = { id => $id,
last_name
Show quoted text> => $l, first_name => $f };
> }
> # SEB
> my $new_parser = $parser;
> $tag = $new_parser->get_tag('td');
> if ($tag = $new_parser->get_tag('td')) {
> my $td = $tag->[1]{valign};
> if ($td eq 'top') {
> my $text =
> $new_parser->get_text;
> if (($text ne '') &&
($text
Show quoted text> ne '...')) {
> $name{$id}{role} =
> $text;
> }
> }
> }
> # END SEB
> }
> }
> }
> }
>
> Thanks this addon, between tags "SEB" and "END SEB", you can have the role
> of the actor in the hash table :
> for my $id (keys %cast) {
> print $id . " " . $cast{$id}{first_name} . " " .
> $cast{$id}{last_name} . " => " . $cast{$id}{role} . "\n";
> }
>
> What do you think about this ?
>
> Now I try to write a module which use yours to put IMDB information into a
> MySQL database.
> You can use my modification to write a new version of your IMDB module
>
> Bye
>
>
>
Show quoted text__________________________________
Do you Yahoo!?
Yahoo! Hotjobs: Enter the "Signing Bonus" Sweepstakes
http://hotjobs.sweepstakes.yahoo.com/signingbonus