Поиск массива объектов для сопоставления возможных множественных значений с использованием различных операторов сравнения - PullRequest
Новая
       9

Поиск массива объектов для сопоставления возможных множественных значений с использованием различных операторов сравнения

1 голос
/ 14 мая 2010

У меня есть функция для поиска в массиве объектов подходящего значения с помощью оператора eq, например: 

sub find {
    my ( $self, %params ) = @_;
    my @entries = @{ $self->{_entries} };

    if ( $params{filename} ) {
        @entries = grep { $_->filename eq $params{filename} } @entries;
    }
    if ( $params{date} ) {
        @entries = grep { $_->date eq $params{date} } @entries;
    }
    if ( $params{title} ) {
        @entries = grep { $_->title eq $params{title} } @entries;
    }
    ....

Я также хотел иметь возможность передавать переменную в кавычках qr для использования вместо сравнения, но единственный способ отделить сравнения - использовать блок if / else, например: 

if (lc ref($params{whatever}) eq 'regexp') {
    #use =~
} else {
    #use eq
}

Есть ли более короткий способ сделать это? По независящим от меня причинам я использую Perl 5.8.8, поэтому не могу использовать оператор интеллектуального сопоставления.

ТИА

Ответы [ 2 ]

5 голосов
/ 14 мая 2010

Это Perl, поэтому, конечно, есть модуль CPAN: Match :: Smart . Он работает очень похоже на умный оператор сопоставления Perl 5.10, только вы набираете smart_match($a, $b) вместо $a ~~ $b.

Вы можете сравнить документацию perlsyn для smartmatching 5.10 , поскольку Match :: Smart обрабатывает еще несколько ситуаций.

В противном случае, я не вижу ничего плохого в: 

sub smart_match {
    my ($target, $param) = @_;
    if (ref $param eq 'Regexp') {
        return ($target =~ qr/$param/);
    }
    else {
        return ($target eq $param);
    }
}

@entries = grep { smart_match($_->date, $params{date}) } @entries;
0 голосов
/ 14 мая 2010

Я не знаю точно, каким вы хотите, чтобы ваш конечный результат был, но вы можете сделать: 

for my $field (qw(filename date title)) {
  my $p = $param($field};
  @entries = (ref($p) eq 'regexp')
    ? grep { $_->$field =~ /$p/ } @entries
    : grep { $_->$field eq $p }   @entries;
}

В качестве альтернативы, вы можете превратить даже ваши 'eq' сравнения в регулярные выражения, например ::

my $entry = "string to be equal to";
my $re = qr/^\Q$entry\E/;

и это упрощает логику в цикле for.

...