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

Size: a a a

Modern::Perl

2021 April 01

sub hcmp {
  return unless %{$_[0]} == %{$_[1]};
  return unless exists $_[0]->{$_} for keys %{$_[1]};
  1
}

источник

15:41пожаловаться #1

Sergey Zhmylove in Modern::Perl

И не нужны никакие сторонние пакеты :)

источник

15:42пожаловаться #2

Yegor K in Modern::Perl

List::Util в core, а так да - тоже вариант

источник

15:46пожаловаться #3

Sergey Zhmylove in Modern::Perl

Andrei Protasovitski

Классика же! :)

https://www.oreilly.com/library/view/perl-cookbook/1565922433/ch04s09.html

O’Reilly Online Learning

Perl Cookbook

Computing Union, Intersection, or Difference of Unique Lists Problem You have a pair of lists, each having unduplicated items. You’d like to find out which items are in both lists … - Selection from Perl Cookbook [Book]

Это будет кушать память, прикинь если там хеши гигов по двадцать

источник

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

Anton Petrusevich in Modern::Perl

мне кажется, вы зря распинаетесь. источник вопроса пошла дальше питонячить, я думаю

источник

15:50пожаловаться #5

Anton Petrusevich in Modern::Perl

Sergey Zhmylove

sub hcmp {
  return unless %{$_[0]} == %{$_[1]};
  return unless exists $_[0]->{$_} for keys %{$_[1]};
  1
}

ещё прототип добавь... :)

источник

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

Andrei Protasovitski in Modern::Perl

Sergey Zhmylove

Это будет кушать память, прикинь если там хеши гигов по двадцать

Это как раз не будет кушать память, потому что хэши уже есть. Для пересечения и разности всё равно надо выделять память.

источник

15:53пожаловаться #7

Sergey Zhmylove in Modern::Perl

Anton Petrusevich

мне кажется, вы зря распинаетесь. источник вопроса пошла дальше питонячить, я думаю

источник

15:54пожаловаться #8

Sergey Zhmylove in Modern::Perl

Andrei Protasovitski

В коде не проверяется, есть ли хеши :)

источник

16:02пожаловаться #9

Roman in Modern::Perl

Судя по ключевым словам, это vlan, а значит это числа до 4к всего лишь. В С++ это решается сравнением сортированных массивов, съедает не более 8 кБ на каждый набор, выполняется мгновенно. Не все операции рационально делать в perl, но ничего не мешает написать XS модуль для сравнения.

источник

16:03пожаловаться #10

Vladimir Varlamov in Modern::Perl

Anton Petrusevich

мне кажется, вы зря распинаетесь. источник вопроса пошла дальше питонячить, я думаю

вам что сахарку для девушки жалко? я бы то же отказался от него прямо в языке

источник

16:04пожаловаться #11

Kolunchik in Modern::Perl

vlan это ведь устаревшая технология
перл поддерживает mpls

источник

16:07пожаловаться #12