Выполняйте уникальную работу для каждого элемента массива

Question

Я создаю текстовый файл, который имеет 3 элемента, и я написал этот код:

my $in_file1 = 'file.txt';
open DAG,$in_file1;
my @shell=<DAG>;
close DAG;
chomp(@shell);
foreach my $shell(@shell){
 # and etc code 

, и я хочу, если номер элемента 0 сделать что-то, и если 1 сделать что-то другое, и если 2 .....например

if (@shell[0]) print "hi"; if(@shell[1]) print "bye" if(@... 

что я собираюсь делать?Какой самый лучший и простой способ сделать это?Спасибо.

Answer 1

Один из лучших способов выполнить работу на основе значения - это хеш-таблица перенаправления, особенно если вам нужно выполнять такую ​​работу более одного раза в программе.Это включает в себя создание хэша, ключи которого являются значениями селектора, а значения являются ссылками на выполняющую работу подпрограмму.

В вашем случае вы работаете на основе количества слов, поэтому хороший способ поиска - это поиск по массиву: