Телеграмм чат группы modernperl страница 8691

не то чтобы это прямо так сильно функции требовало

Ольга Мальцева... in Modern::Perl

14:40пожаловаться #1

ОМ

$ perl -MData::Dumper -E '%i=(s=>1,b=>3); %j=%h; %k=(b=>4,c=>5); @diff = (grep {!exists $i{$_}} keys %j, grep {!exists $j{$_}} keys %i); say Dumper \@diff; @diff = (grep {!exists $i{$_}} keys %k, grep {!exists $k{$_}} keys %i); say Dumper \@diff;  '
$VAR1 = [];

$VAR1 = [
          'c'
        ];

спасибо!

14:41пожаловаться #2

Vladimir Varlamov in Modern::Perl

а так сработает? if ( (sort keys %a) eq (sort keys %b) )

14:44пожаловаться #3

ну попробуй и покажи

14:46пожаловаться #4

я бы так писать не стал, мне лень

14:46пожаловаться #5

Vladimir Varlamov

а так сработает? if ( (sort keys %a) eq (sort keys %b) )

тогда уж join(' ', sort keys %a)

14:46пожаловаться #6

и сравнивать как строки

14:46пожаловаться #7

а если в ключах есть слова с пробелами?

14:46пожаловаться #8

такое себе, в общем

14:46пожаловаться #9

а если в ключах есть слова с пробелами?

ну я в общем, а так зависит от контекста

14:46пожаловаться #10

Roman Lugovkin

ну я в общем, а так зависит от контекста

ну, бывает, что проканает, но зачем, когда пара грепов работает быстрее и надёжнее

14:48пожаловаться #11

ну, бывает, что проканает, но зачем, когда пара грепов работает быстрее и надёжнее

ну да, такие вещи вынесены обычно в стандартную либу проекта, но было бы приятно если б были операции со множествами на уровне языка, а не ~~

14:50пожаловаться #12

да блин, мне до сих пор за смартмэтч обидно :)

14:51пожаловаться #13

А что нужно сделать-то? Я не понял, что там надо сравнить

14:51пожаловаться #14

Sergey Zhmylove

А что нужно сделать-то? Я не понял, что там надо сравнить

ключи хешей совпадают или нет

14:51пожаловаться #15

ключи хешей совпадают или нет

А чем-то плохо 2 for?

15:00пожаловаться #16

$ perl -MData::Dumper -E '%i=(s=>1,b=>3); %j=%h; %k=(b=>4,c=>5); @diff = (grep {!exists $i{$_}} keys %j, grep {!exists $j{$_}} keys %i); say Dumper \@diff; @diff = (grep {!exists $i{$_}} keys %k, grep {!exists $k{$_}} keys %i); say Dumper \@diff;  '
$VAR1 = [];

$VAR1 = [
          'c'
        ];

Ну, собственно, так :)

15:02пожаловаться #17

По-моему, без двух циклов по ключам не обойтись, хотя можно оптимизировать, это нетрудно

15:03пожаловаться #18

Roman in Modern::Perl

Ольга Мальцева

по идее сам хэш,
на запись к нему вот так обращаюсь
foreach my $str_ifcfg (split(/\n/, $if_content)) {
if ($str_ifcfg =~ m/^\s*((.*?)\s+vlan\s+(.*?))$/) {
my $content_cfg = $1;
my $key_cfg = $2;
%interfaces->{$if_port}->{'comp_cfg'}->{$key_cfg} = $content_cfg;
}
}

работает

В начале каждого модуля ставь:
use warnings;
use strict;

Иначе Перл так и будет для тебя загадочной хренью. Без ограничений и ругани он очень многое делает "интуитивно".

15:03пожаловаться #19

Sergey Zhmylove

По-моему, без двух циклов по ключам не обойтись, хотя можно оптимизировать, это нетрудно

ну так греп и есть цикл. два грепа - два цикла.