Início / unix / Perguntas / 557622
Accepted
BugBuddy
Asked: 2019-12-17 20:34:56 +0800 CST

Como usar o Perl grep em um hash em vez de um array?

  • 772

Estou aprendendo Perl. Eu consegui usar grepem um array e a sintaxe é muito simples, como este exemplo :

use strict; use warnings;

my @names = qw(Foo Bar Baz);
my $visitor = <STDIN>;
chomp $visitor;
if (grep { $visitor eq $_ } @names) {
   print "Visitor $visitor is in the guest list\n";
} else {
   print "Visitor $visitor is NOT in the guest list\n";
}

No entanto, gostaria de saber se existe uma maneira igualmente simples de usar grepem um hash sem codificar um loop para percorrer cada item no hash .

Aqui estão alguns dados de exemplo com a estrutura com a qual estou trabalhando. Antes de atribuir um URI, quero verificar se algum item já possui esse valor de uri. Por exemplo, quero atribuir ww1.example.coma item v2rbz1568, mas somente se nenhum outro item tiver um valor uri de ww1.example.com. Como posso fazer isso com eficiência em Perl?

{
    "0y7vfr1234": {
        "username": "[email protected]",
        "password": "some-random-password123",
        "uri": "ww1.example.com",
        "index": 14
    },
    "v2rbz1568": {
        "username": "[email protected]",
        "password": "some-random-password125",
        "uri": "ww3.example.com",
        "index": 29
    },
    "0zjk1156": {
        "username": "[email protected]",
        "password": "some-random-password124",
        "uri": "ww2.example.com",
        "index": 38
    }
}

Estou usando perl 5, versão 30 no Linux.

perl

1 respostas

  1. Best Answer

    Pelo menos duas opções:

    1. Você tem (apenas) a estrutura de dados que visualizou em sua pergunta. Então você terá que percorrer toda a "lista" toda vez que quiser encontrar uma correspondência. Você não precisa escrever um loop, porém, você pode usar a mapfunção:
    use strict; use warnings;
my %entries = (
    '0y7vfr1234' => {
        'username' => '[email protected]',
        'password' => 'some-random-password123',
        'uri' => 'ww1.example.com',
        'index' => 14
    },
    'v2rbz1568' => {
        'username' => '[email protected]',
        'password' => 'some-random-password125',
        'uri' => 'ww3.example.com',
        'index' => 29
    }
);
my $uri = <STDIN>;
chomp $uri;
if (grep { $uri eq $_ } map { $_->{'uri'} } values %entries) {
   print "URI $uri is in the list\n";
} else {
   print "URI $uri is NOT in the list\n";
}
    1. Você gerencia um índice separado no hash para poder fazer pesquisas rápidas. Um índice significa que você tem URIs de mapeamento de hash separados para os itens do hash real:
    use strict; use warnings;
my %entries = (
    '0y7vfr1234' => {
        'username' => '[email protected]',
        'password' => 'some-random-password123',
        'uri' => 'ww1.example.com',
        'index' => 14
    },
    'v2rbz1568' => {
        'username' => '[email protected]',
        'password' => 'some-random-password125',
        'uri' => 'ww3.example.com',
        'index' => 29
    }
);
my %index = map { $entries{"uri"} => $_ } keys %entries;

my $uri = <STDIN>;
chomp $uri;
my $item = $index{$uri};
if (defined($item)) {
   print "URI $uri is in the list\n";
} else {
   print "URI $uri is NOT in the list\n";
}

    Isso também é conveniente, pois você obtém $itemdiretamente como resultado da pesquisa, se deseja acessar a entrada já existente no hash além de apenas verificar se ela existe, por exemploprint "Index: ",$entries{$item}->{'index'},"\n";

    Neste segundo caso, você terá que atualizar o índice manualmente toda vez que adicionar/atualizar/excluir URIs na "lista":

    $entries{"v84x9v8b9"} = { uri => "ww49", ... };
$index{"ww49"} = "v84x9v8b9";
    • 2

relate perguntas