Perl: выберите способ чтения файла в соответствии с его типом - PullRequest
Новая
       1

Perl: выберите способ чтения файла в соответствии с его типом

0 голосов
/ 04 октября 2019

У меня следующая проблема: у меня есть 3 разных типа файлов, скажем .type1, .type2, .type3, которые представляют один и тот же контент в разных форматах. Поэтому я хотел бы прочитать каждый файл с соответствующей подпрограммой. Поэтому, если тип файла равен type1, я хотел бы вызвать read_type1 и так далее. Код, который я пробовал: 

if($filename = ~/.+".type1"/){
&read_type1;
}
elsif($filename = ~/.+".type2"/){
&read_type2;
}
else($filename = ~/.+".type3"/){
&read_type3;
}

Однако это не работает. Он всегда выполнял первый в списке (то есть, даже если файл типа 2, он выполняет &read_type1), и я не могу понять, почему.

...