Привет!
помогите, пожалуйста написать программу!
есть 5 arrays, каждый n элемент одного array соотносится с n элементами других. Вот сами arrays:

2. my @imdb_id = ("0120611", "0106308", "0088247", "0267804",
3. "0094074",
4. "0102798", "0120382",
5. "0196229", "0272152", "0109830");
6.
7. my @movietitles = ("Blade", "Army of Darkness", "The Terminator", "The One",
8. "Superman IV: The Quest for Peace",
9. "Robin Hood : Prince of Thieves", "The Truman Show",
10. "Zoolander", "K-Pax", "Forrest Gump");
11.
12. my @directors = ("Stephen Norrington", "Sam Raimi", "James Cameron", "James Wong (IV)",
13. "Sidney J. Furie",
14. "Kevin Reynolds (I)", "Peter Weir",
15. "Ben Stiller", "Iain Softley", "Robert Zemeckis");
16.
17. my @leadstars = ("Wesley Snipes", "Bruce Campbell (I)", "Arnold Schwarzenegger", "Jet Li",
18. "Christopher Reeve",
19. "Kevin Costner", "Jim Carrey",
20. "Ben Stiller", "Kevin Spacey", "Tom Hanks");
21.
22. my @releaseyears = ("1998", "1993", "1984", "2001",
23. "1987",
24. "1991", "1998",
25. "2001", "2001", "1994");


нужно:
1) Конвертировать arrays в hash of hashes, так чтобы parent hash key name был бы @imdb_id number значение. А значением imdb_id hash key был бы другой hash, содержащий movietitles, directors, leadstars and releaseyears keys. Key names для внутреннего hash должны быть одиночное имя верхнего array, т.е. key name для movietitles должен быть movietitle с соответствующим значением.
2) После создания hash of hashes больше не ссылаться на исходные arrays.
3) Позволить ползователю вводить комманды при появлении соответствующих сообщений:

exit и enter key - чтобы выйти из программы;
list и enter key - вывод всей информации по каждому movie для всех movies содержащимся в hash ( в алфавитном порядке с помощью sort);
если пользователь вводит imdb number ( например 0106308), то вывести всю инфу по этому movie. если номер не найден - вывести сообщение, что его нет в hash.

Заранее огромное спасибо!

Что конкретно нужно??? Создай хеш хешей .... , ну и с помощью while обрабатывай команды полученные из STDIN, в зависимости от команды выполняй определённое действие.

С обработкой команд кое-что нашла, надеюсь разобраться. А вот как создать hash of hashes из этих arrays? Я пока такого не умею, а в литературе, что читаю не нашла. Можно хоть в общих чертах, если не трудно, please.
Спасибо!

Код

#!/usr/bin/perl -w use strict; my @imdb_id = ("0120611", "0106308", "0088247", "0267804", "0094074",                "0102798", "0120382", "0196229", "0272152", "0109830"); my @movietitles = ("Blade", "Army of Darkness", "The Terminator", "The One",                    "Superman IV: The Quest for Peace", "Robin Hood : Prince of Thieves",                    "The Truman Show", "Zoolander", "K-Pax", "Forrest Gump"); my @directors = ("Stephen Norrington", "Sam Raimi", "James Cameron", "James Wong (IV)",                  "Sidney J. Furie", "Kevin Reynolds (I)", "Peter Weir", "Ben Stiller",                  "Iain Softley", "Robert Zemeckis"); my @leadstars = ("Wesley Snipes", "Bruce Campbell (I)", "Arnold Schwarzenegger", "Jet Li",                  "Christopher Reeve", "Kevin Costner", "Jim Carrey", "Ben Stiller",                  "Kevin Spacey", "Tom Hanks"); my @releaseyears = ("1998", "1993", "1984", "2001", "1987",                     "1991", "1998", "2001", "2001", "1994"); my %res = (); for ( my $i=0; $i<@imdb_id; $i++ ) {            $res{ $imdb_id[$i] } = { TITLE      => $movietitles[$i],                                     DIRECTOR   => $directors[$i],                                     LEADSTAR   => $leadstars[$i],                                     RELASEYEAR => $releaseyears[$i] }; } # Есди масссивы больше не нужен, то возвраем память. # Этого можно и не делать, как правило Perl делает # это автоматически undef( @imdb_id ); undef( @movietitles ); undef( @directors ); undef( @leadstars ); undef( @releaseyears ); # Теперь так можно будет обращаться к определённому элементу. print "Название: " . $res{ "0120382" }->{ TITLE } . "\n"; print "Режисёр: " . $res{ "0120382" }->{ DIRECTOR } . "\n"; print "Актёр: " . $res{ "0120382" }->{ LEADSTAR } . "\n"; print "Год выпуска: " . $res{ "0120382" }->{ RELASEYEAR } . "\n";

Хотя наверное лучше сделать так, тогда массивы очищаются динамически:

Код

#!/usr/bin/perl -w use strict; my @imdb_id = ("0120611", "0106308", "0088247", "0267804", "0094074",                "0102798", "0120382", "0196229", "0272152", "0109830"); my @movietitles = ("Blade", "Army of Darkness", "The Terminator", "The One",                    "Superman IV: The Quest for Peace", "Robin Hood : Prince of Thieves",                    "The Truman Show", "Zoolander", "K-Pax", "Forrest Gump"); my @directors = ("Stephen Norrington", "Sam Raimi", "James Cameron", "James Wong (IV)",                  "Sidney J. Furie", "Kevin Reynolds (I)", "Peter Weir", "Ben Stiller",                  "Iain Softley", "Robert Zemeckis"); my @leadstars = ("Wesley Snipes", "Bruce Campbell (I)", "Arnold Schwarzenegger", "Jet Li",                  "Christopher Reeve", "Kevin Costner", "Jim Carrey", "Ben Stiller",                  "Kevin Spacey", "Tom Hanks"); my @releaseyears = ("1998", "1993", "1984", "2001", "1987",                     "1991", "1998", "2001", "2001", "1994"); my %res = (); while ( my $id = shift @imdb_id ) {            $res{ $id }{ TITLE } = shift @movietitles;            $res{ $id }{ DIRECTOR } = shift @directors;            $res{ $id }{ LEADSTAR } = shift @leadstars;            $res{ $id }{ RELASEYEAR } = shift @releaseyears; } # Теперь так можно будет обращаться к определённому элементу. print "Title: " . $res{ "0120382" }{ 'TITLE' } . "\n"; print "Director: " . $res{ "0120382" }{ 'DIRECTOR' } . "\n"; print "LeadStar: " . $res{ "0120382" }{ 'LEADSTAR' } . "\n"; print "Relese Year: " . $res{ "0120382" }{ 'RELASEYEAR' } . "\n";

Удачи.

Это сообщение отредактировал(а) korob2001 - 29.4.2005, 21:40

Спасибо огромное!!!

P.S. Будут вопросы вернусь завтра!

А вот полное решение твоей задачи:

Код

#!/usr/bin/perl -w use strict; my @imdb_id = ("0120611", "0106308", "0088247", "0267804", "0094074",                "0102798", "0120382", "0196229", "0272152", "0109830"); my @movietitles = ("Blade", "Army of Darkness", "The Terminator", "The One",                    "Superman IV: The Quest for Peace", "Robin Hood : Prince of Thieves",                    "The Truman Show", "Zoolander", "K-Pax", "Forrest Gump"); my @directors = ("Stephen Norrington", "Sam Raimi", "James Cameron", "James Wong (IV)",                  "Sidney J. Furie", "Kevin Reynolds (I)", "Peter Weir", "Ben Stiller",                  "Iain Softley", "Robert Zemeckis"); my @leadstars = ("Wesley Snipes", "Bruce Campbell (I)", "Arnold Schwarzenegger", "Jet Li",                  "Christopher Reeve", "Kevin Costner", "Jim Carrey", "Ben Stiller",                  "Kevin Spacey", "Tom Hanks"); my @releaseyears = ("1998", "1993", "1984", "2001", "1987",                     "1991", "1998", "2001", "2001", "1994"); my %res = (); while ( my $id = shift @imdb_id ) {            $res{ $id }{ TITLE } = shift @movietitles;            $res{ $id }{ DIRECTOR } = shift @directors;            $res{ $id }{ LEADSTAR } = shift @leadstars;            $res{ $id }{ RELASEYEAR } = shift @releaseyears; } while ( 1 ) {     chomp( my $cmd = <STDIN> );     last if $cmd =~ /^exit$/i;     if ( $cmd =~ /^list$/i ) {          for my $id ( sort { $res{ $a }{TITLE} cmp $res{ $b }{TITLE} } keys %res ) {                 print "Id: $id\n";                 print "Title: " . $res{ $id }{ 'TITLE' } . "\n";                 print "Director: " . $res{ $id }{ 'DIRECTOR' } . "\n";                 print "LeadStar: " . $res{ $id }{ 'LEADSTAR' } . "\n";                 print "Relase Year: " . $res{ $id }{ 'RELASEYEAR' } . "\n";                 print "-" x 70, "\n";          }     }     if ( $cmd =~ /^imdb\s+(\d+)$/i ) {          unless ( exists( $res{ $1 } ) ) {                 print "This id is not valid.\n";          } else {                 print "=" x 70, "\n";                 print $res{ $1 }{ $_ }. "\n" for ('TITLE', 'DIRECTOR', 'LEADSTAR', 'RELASEYEAR' );                 print "=" x 70, "\n";          }     } }

Будут вопросы, пиши.

Это сообщение отредактировал(а) korob2001 - 29.4.2005, 22:42

Korob2001, спасибо огромное!!!!!
I'm your huge fan!!!
Обязательно вернусь с новыми вопросами, их у меня много.
Спасибо!!!