Select Code to Download

$fred == 42 ? $config = 'k1' : $config = 'k2';

my $config = $fred == 42 ? 'k1' : 'k2';

# weird1.pl
use strict;
...
print "fred='$fred'\n";
$fred == 42 ? $config = 'k1' : $config = 'k2';
print "config='$config'\n";

perl weird1.pl 42

fred='42'
config='k2'

perl weird1.pl 69

fred='69'
config='k2'

$fred == 42 ? $config = 'k1' : $config = 'k2';