3 ms·
> while (<>) { ($h{$_}++ == 1) && push (@outputarray, $_); }; We use Perl::Critic [0] to deal with issues like that. It has enabled us to develop a very consis
by tangental 7y ago
> while (<>) { ($h{$_}++ == 1) && push (@outputarray, $_); };
We use Perl::Critic [0] to deal with issues like that. It has enabled us to develop a very consistent style, and helps new devs adopt to it quite quickly.
[0] https://metacpan.org/pod/Perl::Critic https://metacpan.org/pod/Perl::Critic