DF
Нет, на переписывании примерно 40 скриптов или написании собственного парсера аргументов
Size: a a a
2021 April 27
АН
spasibo
VG
по-хорошему еще и справку дать надо
use Getopt::Long::Descriptive;
sub option_spec {
[ 'verbose|v!' => 'be verbose, by default also influences logger' ],
[ 'debug|d:+' => 'pass debug (2=trace) to AE::log', { default =>0 } ],
[ 'session=s' => 'name of session data save file', { default => 'session.dat'} ],
[ 'config|c=s' => 'name of configuration file', { default => "teleperl.conf" } ],
[ 'logfile|l=s' => 'path to log file', { default => "cborsave.log" } ],
}
my ($opts, $usage);
eval { ($opts, $usage) = describe_options( '%c %o ...', option_spec() ) };
die "Invalid opts: $@\nUsage: $usage\n" if $@;
my $session = retrieve( $opts->session ) if -e $opts->session;
my $conf = Config::Tiny->read($opts->config);
$AnyEvent::Log::FILTER->level(
$opts->debug > 1 ? "trace" : "
...DF
Там там тоже описывать надо
VG
как будто что-то плохое
VG
а если уж колхозить, ну сгенери код под этот хэш для Getopt::Long да и всё.
DF
Чтобы сгенерить код - мне надо распарсить аргументы :) А если я их уже распарсил, то нахер мне что-то еще генерить ?:)
VG
тогда непонятно, что у тебя за задача
VG
зачем, если они уже парсят?
DF
Кароч я свой парсер написал уже :)
VG
и эти велосипедисты на гошников в соседнем чате наезжают...
DF
шопаделать, если готового решения нет :(
DF
Но у меня хоть тесты есть :)
VG
я не понимаю, в чем проблема сгенерировать код вида
my %opts = (debug => 0);зачем для этого писать аж свой парсер?
GetOptions(\%opts,
'debug|d:+',
'logfile=s',
'help', 'h|?'
DF
Потому что парсер поправить быстрее чем все скрипты которые его юзают
VG
дичь
DF
такова жизнь :(
DF
Кстати два года назад там был GetOpt :) Но потом его выпилили в пользу кастомного парсера
VG
говнокодеры какие-то
DF
Да :(