Re: Re: IF NOT! IF NOT!

[damian1301]

in reply to Re: IF NOT! IF NOT!
in thread IF NOT! IF NOT!

A bit excessive, this will work just fine.

grep{$_!~/home/&&print"$_\n"} @list;

Which results the same as yours.

UPDATE: Changed map to grep so there would be no void context stuff, thanks runrig.

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[runrig]

And that is using map in a void context (creating an array with map and throwing it away). Better to just use a for loop:

/home/ and print "$_\n" for @list;

Update: Damian's right (in reply below). reverse the logic:

/home/ or print "$_\n" for @list;

[damian1301]

But you've got reverse logic too. You are NOT supposed to print it if it has home anywhere in it. So what you want is in Re: Re: Re: IF NOT! IF NOT!.



$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H;
print chr($_-39); # Easy but its ok.

[abstracts]

Hello

You can go even with

/home/||print"$_\n"for@list

But this is not golf :-)

Aziz,,,