Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2016-10-21 12:15 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (289 votes). Check out past polls.