Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: Re: IF NOT! IF NOT!

by damian1301 (Curate)
on Aug 03, 2001 at 03:48 UTC ( #101845=note: print w/ replies, xml ) Need Help??


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.


Comment on Re: Re: IF NOT! IF NOT!
Select or Download Code
Re: Re: Re: IF NOT! IF NOT!
by runrig (Abbot) on Aug 03, 2001 at 03:53 UTC
    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;
      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.
Re: Re: Re: IF NOT! IF NOT!
by abstracts (Hermit) on Aug 03, 2001 at 03:57 UTC
    Hello

    You can go even with

    /home/||print"$_\n"for@list
    But this is not golf :-)

    Aziz,,,

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://101845]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (11)
As of 2015-07-01 16:09 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (9 votes), past polls