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

parrot.ru

Рейтинг популярных групп и каналов

В рейтинге участвует:

групп:

каналов:

Виртуальный сервер на SSD - недорого!

Аренда выделенных и виртуальных серверов (VDS/VPS), хостинг, аренда IP-адресов, администрирование, круглосуточная поддержка

qwarta.ru подробнее

Резервное копирование с проверкой на вирусы!!!

Удобный сервис создания резервных копий на любой сервер сети интернет. Отслеживайте изменения, проверяйте на вирусы. Надежно защитите свой бизнес!

go.backupland.com

Выбираете сервер? Любая конфигурация на заказ!

Аренда физических серверов любых конфигураций под любые запросы - 1С бухгалтерия, игровые сервера, нагруженные проекты, интернет-магазины!

qwarta.ru подробнее

Size: a a a

Modern::Perl

450 membersпожаловаться на группу

2021 April 01

AP

Anton Petrusevich in Modern::Perl

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

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

не только модуля, любого сорца

источник

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

AP

Anton Petrusevich in Modern::Perl

можно оптимизировать типа

$ perl -MData::Dumper -E '%i=(s=>1,b=>3); %j=%i; %k=(b=>4,c=>5); if(grep {!exists $i{$_}} keys %j or grep {!exists $j{$_}} keys %i){ say "different"}else {say "identical"} if (grep {!exists $i{$_}} keys %k or grep {!exists $k{$_}} keys %i) { say "different"}else {say "identical"}  '
identical
different

источник

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

SZ

Sergey Zhmylove in Modern::Perl

Anton Petrusevich

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

У меня быстрее:

источник

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

SZ

Sergey Zhmylove in Modern::Perl

@PerlBanjoBot sub hcmp { return unless %{$_[0]} == %{$_[1]};return not grep {not exists $_[0]->{$_} } keys %{$_[1]}}

my %h1 = (1..4);
my %h2 = (1..6);
my %h3 = (3,4,1,2);

warn hcmp(\%h1, \%h2);
warn hcmp(\%h3, \%h2);
warn hcmp(\%h3, \%h1);

источник

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

P

PerlBanjoBot in Modern::Perl

Sergey Zhmylove

@PerlBanjoBot sub hcmp { return unless %{$_[0]} == %{$_[1]};return not grep {not exists $_[0]->{$_} } keys %{$_[1]}}

my %h1 = (1..4);
my %h2 = (1..6);
my %h3 = (3,4,1,2);

warn hcmp(\%h1, \%h2);
warn hcmp(\%h3, \%h2);
warn hcmp(\%h3, \%h1);

Warning: something's wrong at script.pl line 15.
Warning: something's wrong at script.pl line 16.
1 at script.pl line 17.
https://PerlBanjo.com/784b97fd2c

источник

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

SZ

Sergey Zhmylove in Modern::Perl

В один проход

источник

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

VV

Vladimir Varlamov in Modern::Perl

https://metacpan.org/source/ZMIJ/Array-Utils-0.5/Utils.pm

источник

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

SZ

Sergey Zhmylove in Modern::Perl

Vladimir Varlamov

https://metacpan.org/source/ZMIJ/Array-Utils-0.5/Utils.pm

Ужасно, ещё и память жрёт

источник

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

AP

Anton Petrusevich in Modern::Perl

%{$_[0]} == %{$_[1]} — разворачивание во временный список типа быстрее?

источник

15:26пожаловаться #9

AP

Anton Petrusevich in Modern::Perl

ну и ты проверил грепом только один

источник

15:27пожаловаться #10

SZ

Sergey Zhmylove in Modern::Perl

Anton Petrusevich

%{$_[0]} == %{$_[1]} — разворачивание во временный список типа быстрее?

Это не временный список

источник

15:29пожаловаться #11

AP

Anton Petrusevich in Modern::Perl

сорри, да, это количество элементов

источник

15:29пожаловаться #12

SZ

Sergey Zhmylove in Modern::Perl

Это хеш в скалярном нумерик контексте

источник

15:29пожаловаться #13

AP

Anton Petrusevich in Modern::Perl

я понял идею

источник

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

AP

Anton Petrusevich in Modern::Perl

если размеры равны, то один не может включать другой, кроме как они идентичны

источник

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

SZ

Sergey Zhmylove in Modern::Perl

Anton Petrusevich

если размеры равны, то один не может включать другой, кроме как они идентичны

Ага

источник

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

AP

Anton Petrusevich in Modern::Perl

блин, помню был модуль типа лист-утил, но для хешей

источник

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

YK

Yegor K in Modern::Perl

Sergey Zhmylove

@PerlBanjoBot sub hcmp { return unless %{$_[0]} == %{$_[1]};return not grep {not exists $_[0]->{$_} } keys %{$_[1]}}

my %h1 = (1..4);
my %h2 = (1..6);
my %h3 = (3,4,1,2);

warn hcmp(\%h1, \%h2);
warn hcmp(\%h3, \%h2);
warn hcmp(\%h3, \%h1);

для больших хэшей вместо grep-a можно взять List::Util::first

источник

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

AP

Andrei Protasovitski in Modern::Perl

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

всем привет. туплю нещадно как на перле написать сравнение ключей в двух словарях?
if ((keys(%interfaces->{$port}->{'comp_cfg'})) == (keys(%interfaces->{$pair_port}->{'comp_cfg'})) ){

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

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

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:38пожаловаться #19

SZ

Sergey Zhmylove in Modern::Perl

для больших хэшей вместо grep-a можно взять List::Util::first

Для больших хешей надо так:

источник

15:40пожаловаться #20