Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: (Golf) JAPH?

by MeowChow (Vicar)
on May 17, 2001 at 05:08 UTC ( #81138=note: print w/replies, xml ) Need Help??


in reply to (Golf) JAPH?

Hmm... not very portable, but:
perl -042e'print((`$^Xdoc -qj`)[1])'
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

Replies are listed 'Best First'.
Re: Re: (Golf) JAPH?
by bobione (Pilgrim) on May 17, 2001 at 14:10 UTC
    ...and not really shorter :

    die"Just Another Perl Hacker\n"
    perl -042e'print((`$^Xdoc -qj`)[1])'

    BobiOne KenoBi ;)

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://81138]
help
Chatterbox?
[Lady_Aleena]: tobyink, I did after I failed to get the BLOCK to work. I can't seem to get my brain around grep BLOCK, though I'm okay with grep EXPR.
[shmem]: so in the second example grep returns all true elements of the list passed
[Lady_Aleena]: Okay, so grep BLOCK is not like map BLOCK where something might need to be returned at the end.
[tobyink]: grep { $_ =~ /.*$in.*/; } @my_modules should work just fine. The problem is that you were adding on ;$_ at the end of the block. Why were you doing that?
[Lady_Aleena]: tobyink, I was thinking map.
[tobyink]: Something does need to be returned at the end not $_ though. You need to return (something that will be evaluated as) a boolean.
[Lady_Aleena]: Here is a longish map I did in the same script. my @my_modules = map { my $file = $_; $file =~ s/$module_director y(.+)\.pm/$1/; $file =~ s/\//::/g; $file; } @files;
[Lady_Aleena]: I spent half an hour trying to figure out why map was rewriting @files.
[tobyink]: If you like map you can do map { ($_ =~ /.*$in.*/) ? $_ : () } @my_modules and it will work just the same. grep is neater though.
[Lady_Aleena]: tobyink, I'll keep the grep as is. Thanks everyone!

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (9)
As of 2017-05-27 07:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?