Re: Ignore a range of numbers in a List -- oneliner

> Not looking for any grep or regex solution for this task

> It is not that I didn't want to use Regex , But just wanted to try out the Non-Regex solution .

Please note that to be able to kill a chicken using only the tongue does not make you a better chef

But do you like banning elements using a blacklist hash?

perl -e "$h{6}=$h{7}=1;for (@ARGV){print qq($_ ) unless exists $h{$_}}
+" 1 6 2 2 7 1 6 99 99 7

1 2 2 1 99 99
[download]

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

Comment on Re: Ignore a range of numbers in a List -- oneliner Download Code

Replies are listed 'Best First'.
Re^2: Ignore a range of numbers in a List -- oneliner by afoken (Chancellor) on Jun 27, 2017 at 05:01 UTC
`perl -e "$h{6}=$h{7}=1;for (@ARGV){print qq($_ ) unless exists $h{$_}}" 1 6 2 2 7 1 6 99 99 7` In this case, `exists` is not needed, because all numbers in the blacklist have values that evaluate to true: `>perl -e "$h{6}=$h{7}=1;for (@ARGV){print qq($_ ) unless $h{$_}}" 1 6 +2 2 7 1 6 99 99 7 1 2 2 1 99 99 >` [download] And for the same reason, we can shorten that a little bit more by using OR instead of postfix `unless`: `>perl -e "$h{6}=$h{7}=1;for(@ARGV){$h{$_}\|\|print qq($_ )}" 1 6 2 2 7 1 + 6 99 99 7 1 2 2 1 99 99 >` [download] Switching to postfix `for` gets rid of a few more characters: `>perl -e "$h{6}=$h{7}=1;$h{$_}\|\|print qq($_ )for@ARGV" 1 6 2 2 7 1 6 9 +9 99 7 1 2 2 1 99 99 >` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]

Replies are listed 'Best First'.

perl -e "$h{6}=$h{7}=1;for (@ARGV){print qq($_ ) unless exists $h{$_}}" 1 6 2 2 7 1 6 99 99 7

In this case, exists is not needed, because all numbers in the blacklist have values that evaluate to true:

>perl -e "$h{6}=$h{7}=1;for (@ARGV){print qq($_ ) unless $h{$_}}" 1 6 
+2 2 7 1 6 99 99 7
1 2 2 1 99 99
>
[download]

And for the same reason, we can shorten that a little bit more by using OR instead of postfix unless:

>perl -e "$h{6}=$h{7}=1;for(@ARGV){$h{$_}||print qq($_ )}" 1 6 2 2 7 1
+ 6 99 99 7
1 2 2 1 99 99
>
[download]

Switching to postfix for gets rid of a few more characters:

>perl -e "$h{6}=$h{7}=1;$h{$_}||print qq($_ )for@ARGV" 1 6 2 2 7 1 6 9
+9 99 7
1 2 2 1 99 99
>
[download]

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)