AP
это слайс хеша что ли получается? начиная с перл 5.20 появился
Size: a a a
2021 April 01
AP
чот я задумался как это "работает"
AP
не, не "работает":
$ /usr/bin/perl -MData::Dumper -E '%i->{a}->{b} = "c"; say Dumper \%i'
Can't use a hash as a reference at -e line 1.AP
а хеш слайсы не бывают эльвелью
ОМ
print Dumper(%interfaces->{$port}->{'comp_cfg'});
print Dumper(%interfaces->{$pair_port}->{'comp_cfg'});
отдает например
$VAR1 = {
'port vlan-mapping' => 'port vlan-mapping vlan 99 map-vlan 485',
'loopback-detect packet' => 'loopback-detect packet vlan 4024',
...
};
$VAR1 = {
'port vlan-mapping' => 'port vlan-mapping vlan 99 map-vlan 485',
'loopback-detect packet' => 'loopback-detect packet vlan 4024',
...
};
на питоне я бы просто сделала
if (interfaces[port]['comp_cfg']).keys() == (interfaces[pair_port]['comp_cfg']).keys():
тут действия если ок
else:
тут отдача ошибки по ключам
и дальше фором по ключам сравнение на одинкаовость значений и если нет отдача ошибки по значениям
print Dumper(%interfaces->{$pair_port}->{'comp_cfg'});
отдает например
$VAR1 = {
'port vlan-mapping' => 'port vlan-mapping vlan 99 map-vlan 485',
'loopback-detect packet' => 'loopback-detect packet vlan 4024',
...
};
$VAR1 = {
'port vlan-mapping' => 'port vlan-mapping vlan 99 map-vlan 485',
'loopback-detect packet' => 'loopback-detect packet vlan 4024',
...
};
на питоне я бы просто сделала
if (interfaces[port]['comp_cfg']).keys() == (interfaces[pair_port]['comp_cfg']).keys():
тут действия если ок
else:
тут отдача ошибки по ключам
и дальше фором по ключам сравнение на одинкаовость значений и если нет отдача ошибки по значениям
c
~ perl -MData::Dumper -E 'my %h; @h{"a", "b"} = (2) x 2; say Dumper \%h'
$VAR1 = {
'a' => 2,
'b' => 2
};
$VAR1 = {
'a' => 2,
'b' => 2
};
AP
~ perl -MData::Dumper -E 'my %h; @h{"a", "b"} = (2) x 2; say Dumper \%h'
$VAR1 = {
'a' => 2,
'b' => 2
};
$VAR1 = {
'a' => 2,
'b' => 2
};
это не хеш слайс
ОМ
но в перле встретила с этим сложности
c
~ perl -E 'my %h = "a" => 52; my %h2 = "a" => 42; say keys(%h) ~~ keys(%h2)'
Smartmatch is experimental at -e line 1.
1
Smartmatch is experimental at -e line 1.
1
AP
~ perl -E 'my %h = "a" => 52; my %h2 = "a" => 42; say keys(%h) ~~ keys(%h2)'
Smartmatch is experimental at -e line 1.
1
Smartmatch is experimental at -e line 1.
1
smartmatch плохая идея
AP
но в перле встретила с этим сложности
зависит от того, надо тебе задачу решить или учебное задание
AP
если учебное задание, то, видимо, всё надо ручками
AP
если задачу решить, то поставить модуль, который уже всё умеет
ОМ
зависит от того, надо тебе задачу решить или учебное задание
задачу.
ОМ
ну в смысле реальный таск
AP
ну, осталось только перловый синтаксис грокнуть
ОМ
а штатных функций сравнения ключей и значений в словарях в перле нет? только форами по каждому бегать?
AP
грепами
AP
$ 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'
];AP
как видишь, дифф ключей считается в одну строку