Có thể chuyển các tùy chọn thành một phương thức trong perl không?

Question

Tương tự như this question regarding Ruby, tôi muốn điều kiện tham số theo phương thức. Hiện tại, tôi có cấu hình được cấu hình như sau:

my $recs = $harvester->listAllRecords(
    metadataPrefix => 'marc21', 
    metadataHandler => 'MARC::File::SAX', 
    set => 'pd', 
    from => $from, 
    until => $until, 
); 

Điều tôi muốn là có thể chuyển điều kiện từ và/hoặc cho đến khi tham số, tùy thuộc vào mã trước đó. Đây không phải là cú pháp chính xác, nhưng một cái gì đó như thế này:

from => $from if ($from), 
until => $until if ($until), 

hay này:

if ($from) {from => $from,} 
if ($until) {until => $until,} 

Đây có phải là có thể, và nếu như vậy, làm thế nào tôi sẽ đi về làm việc đó?

Answer 1

Bạn có thể sử dụng ?: hành ternary với toán hạng danh sách:

my $recs = $harvester->listAllRecords(
    metadataPrefix => 'marc21', 
    metadataHandler => 'MARC::File::SAX', 
    set => 'pd', 

    $from ? (from => $from) :(), 
    $until ? (until => $until) :(), 
); 

Nó cũng có thể có giá trị biết về "conditional list include" pseudo-operator, mà trong trường hợp này sẽ làm việc như

... 
(from => $from) x !!$from, 
(until => $until) x !!defined($until), 
... 

nhưng các nhà điều hành ternary biểu thức có lẽ dễ đọc hơn đối với hầu hết mọi người.

Answer 2

Các tùy chọn khác là xây dựng một danh sách (hoặc băm) của args và sau đó gọi phương thức:

my %args = (
    metadataPrefix => 'marc21', 
    metadataHandler => 'MARC::File::SAX', 
    set => 'pd', 
); 
$args{from} = $from if $from; 
$args{until} = $until if $until; 

my $recs = $harvester->listAllRecords(%args);