Я использую функцию 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)