Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

Two simple code style advice questions

by eyepopslikeamosquito (Chancellor)
on Jan 16, 2013 at 10:02 UTC ( #1013548=perlquestion: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download

  1. or download this
    my @tests = ( "tfred", "tjock", "tfortytwo" );
  2. or download this
    my %ntests = map { $_ => 0 } @tests;
  3. or download this
    my %ntests;
    @ntests{@tests} = (0) x @tests;
  4. or download this
    my $mol = "forty two" x ($n == 42);
  5. or download this
    my $mol = ($n == 42) ? "forty two" : ""

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1013548]
Approved by Ratazong
Front-paged by vinoth.ree
[Lady_Aleena]: marioroy, it is used in 24 other modules I wrote.
[Lady_Aleena]: GUH! I wrote a script better than I thought! 8)
[marioroy]: Wow. It's cool seeing Github coments "Update, Create Wild_hairs, Create alternate- PurpleOnGreen..., Then a location, Create Aleenia. Amazing, really. Thank you for sharing.
Discipulus when naming is clear and you know how to arrange the data, then coding it is a mere writing work

How do I use this? | Other CB clients
Other Users?
Others cooling their heels in the Monastery: (9)
As of 2017-05-29 09:07 GMT
Find Nodes?
    Voting Booth?