Perl + командная строка
От: pretorian  
Дата: 20.02.03 06:27
Оценка:
Подскажите, пожалуйста, как сделать следующее:
— необходимо в программу на Perlе передать имена двух файлов, например, в командной строке должно быть типа
first.pl one1.txt two.txt

Что необходимо прописать в программе чтобы принять имена этих файлов и сохранить в переменных в программе?

Желательно привести код данной программы.
Заранее спасибо.
Re: Perl + командная строка
От: Bob Kotl Россия  
Дата: 20.02.03 07:24
Оценка: 2 (1)
Здравствуйте, pretorian, Вы писали:

P>Подскажите, пожалуйста, как сделать следующее:

P>- необходимо в программу на Perlе передать имена двух файлов, например, в командной строке должно быть типа
P>first.pl one1.txt two.txt

P>Что необходимо прописать в программе чтобы принять имена этих файлов и сохранить в переменных в программе?

например, так:

#!perl
print $ARGV[0]; # это - первый аргумент
print $ARGV[1]; # а это - второй :)


Массив @ARGV — это все аргументы перлового скрипта. Поскольку выражение $#ARGV возвратит тебе индекс последнего элемента в этом массиве, то нехитрая комбинация $#ARGV+1 — это количество аргументов
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.