Я использую функцию Getopt, чтобы открыть 2 отдельных файла с разными расширениями (.txt и .aspx) в моем скрипте Perl, передав один аргумент командной строки.
Теперь существует много таких файлов обоих типов, расположенных в разных папках в одном каталоге.(Многие .txt в папке text. Одинаковое количество .aspx в папке excel. Папки text и excel находятся в одном каталоге /pkv/kbv/skv/).
Мне нужно открывать эти файлы по одной паре и обрабатывать их.Затем повторите то же самое для оставшихся пар (любое число).Могу ли я сделать это, передав аргументы командной строки для «каталога» и «списка файлов»?
use Getopt::Long qw(GetOptions);
GetOptions('in=s') or die;
$txt = $opt_in . ".txt";
$aspx = $opt_in . ".tab" . ".aspx";
open (TXT, "< $txt") || die;
...
close(TXT)
open (ASPX, "< $aspx") || die;
...
close(ASPX)