|
|
|
|
|
|
by tangental
2444 days 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 |
|
|