Perl несколько необязательных параметров

Question

У меня есть подмодуль perl, который имеет 3 параметра: $ text, $ color, $ font
Из этих параметров шрифт $ color и $ необязателен.

Если мне нужно передать только $ font без $ color, как это сделать, поскольку perl назначит строку шрифта цвету $, когда используется shift.

Answer 1

Обычное решение для нескольких необязательных параметров - принять хэш.

sub myfunction { 
    my %options = @_; 
    my ($text, $color, $font) = @options{qw(text color font)}; 
    ... 
} 

тогда вы называете это так:

myfunction(font => 'font goes here', text => "Here's the text") # no color 

Answer 2

вы можете использовать модуль Getopt.

use Getopt::Long; 

#make options 
my $text; 
my $color; 
my $font; 

GetOptions('-text=s' => $text, '-color=s' => $color, '-font=s' => $font,); 

unless ($text){ 
    die "No text arg provided"; 
} 

#do something