| 1 | --- imdb.pl.orig 2007-02-26 18:21:54.000000000 -0500
|
|---|
| 2 | +++ imdb.pl 2002-01-04 22:55:44.000000000 -0500
|
|---|
| 3 | @@ -131,12 +131,12 @@
|
|---|
| 4 | }
|
|---|
| 5 |
|
|---|
| 6 | # parse director
|
|---|
| 7 | - my $director = parseBetween($response, ">Directed by</h5>", "/a><br/>");
|
|---|
| 8 | + my $director = parseBetween($response, ">Director:</h5>", "/a><br/>");
|
|---|
| 9 | $director = parseBetween($director, "/\">", "<");
|
|---|
| 10 |
|
|---|
| 11 | # parse writer
|
|---|
| 12 | # (Note: this takes the 'first' writer, may want to include others)
|
|---|
| 13 | - my $data = parseBetween($response, ">Writing credits <a href=\"/wga\">(WGA)</a></h5>", "\n<br/>");
|
|---|
| 14 | + my $data = parseBetween($response, ">Writers:</h5>", "</div>");
|
|---|
| 15 | my $writer = join(",", ($data =~ m/$name_link_pat/g));
|
|---|
| 16 |
|
|---|
| 17 | # parse plot |
|---|
