Re^2: How to get 0 to initialize a value


Come for the quick hacks, stay for the epiphanies.
	PerlMonks

Re^2: How to get 0 to initialize a value

by Fletch (Bishop)

on May 01, 2019 at 14:19 UTC ( [id://1233230]=note: print w/replies, xml )

Need Help??

in reply to Re: How to get 0 to initialize a value
in thread How to get 0 to initialize a value

Perl Best Practices (chapter 6; don't have dead tree version handy so no clue on a page number) recommends laying chained ternary expressions out as a table. If you squint it almost looks haskelly.

           # Name format...                            # Salutation...
my $salute = $name eq $EMPTY_STR                       ? 'Dear Custome
+r'
           : $name =~ m/ \A((?:Sir|Dame) \s+ \S+) /xms ? "Dear $1"
           : $name =~ m/ (.*), \s+ Ph[.]?D \z     /xms ? "Dear Dr $1"
           :                                             "Dear $name" 
+          ;
[download]

The cake is a lie.
The cake is a lie.
The cake is a lie.