Go to the source code of this file.
Functions | |
| use vars | qw ($opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $opt_P) |
| binmode (STDOUT,":utf8") | |
| if (rindex($query, '.')!=-1) | |
| if (rindex($query, '(')!=-1) | |
| if (rindex($query, '[')!=-1) | |
| if ($1) | |
| if (!$options) | |
| if (defined $opt_d) | |
| if ($data eq"") | |
| while ($start!=-1 &&$start< length($data)) | |
Variables | |
| my | $has_date_format = $@ ? 0 : 1 |
| $title = "IMDB Query" | |
| $version = "v1.3.5" | |
| $author = "Tim Harvey, Andrei Rjeousski" | |
| my | countries = qw(USA UK Canada Japan) |
| each line as | movieid |
| each line as | $options = @_ |
| my | $query = $filename |
| The | i |
| my | $request = "http://www.imdb.com/find?q=$query;$options" |
| my | $response = get $request |
| my | $movienum = parseBetween($response, "add=", "\"") |
| my | $popular_results |
| my | $exact_matches |
| my | $partial_matches |
| my | $beg = "<tr>" |
| my | $end = "</tr>" |
| my | $count = 0 |
| my | movies |
| my | $data = $popular_results.$exact_matches |
| my | $start = index($data, $beg) |
| my | $finish = index($data, $end, $start) |
| my | $year |
| my | $type |
| use vars qw | ( | $opt_h $opt_r $opt_d $opt_i $opt_v $opt_D $opt_M $ | opt_P | ) |
| binmode | ( | STDOUT | , | |
| ":utf8" | ||||
| ) |
| my $movienum = parseBetween($response, "add=", "\"") |
| my $popular_results |
| my $exact_matches |
| my $partial_matches |
| my movies |
Definition at line 493 of file imdb.pl.
Referenced by MoviesUI::getDisplayTreeByMovie(), and while().
| my $type |
Definition at line 508 of file imdb.pl.
Referenced by $line(), getRandItems(), play(), randAdd(), and sajax_get_js_repr().
1.5.5