заменить элемент в @ARGV в perl

Question

У меня есть сценарий perl, который принимает длинный вариант, например --pager='less -R', и я хочу сократить его до -p. Это быстрый взлом, я не знаю perl, и я предполагаю, что наиболее прямым способом является поиск и замена -p в массиве ARGV (или что-то, что он вызывается в perl) с помощью -pager = 'less -R' до он начинает обрабатывать аргументы командной строки.

Answer 1

Вы можете использовать

s/^-p$/--pager/ for @ARGV; 

как быстрый хак. Просто не вводите -p в качестве значения для любой опции. Кроме того, всегда используйте пробел после -p.

Answer 2

Если параметр указан как --pager="less -R", то я подозреваю, что сценарий использует Getopt::Long. Соответственно измените соответствующую переменную.

Answer 3

Похоже, что вам определенно необходимо Getopt::Long, часть основного распределения Perl.

Хотя это не быстрый хак, это на мой взгляд правильный способ обработки аргументов. Прочитайте документацию, вы увидите, как быстро вы можете справиться с такими вещами.

Answer 4

Зачем изобретать колесо, особенно если вас не интересует «правильное» программирование на Perl?

Было бы больно добавлять couple of extra lines?

use strict; 
use warnings; 
use Getopt::Long; 

my $pager = 'default value'; 
GetOptions('pager=s' => \$pager) or die "Could not load options\n";