Re: Conditional operator

[Rob Dixon]

Dr.Ruud wrote:
>

Karyn Williams schreef:

        $initial ?
                $gecos = "$first $initial $last, $sid, SIR Fall 2007":
                $gecos = "$first $last, $sid, SIR Fall 2007";

Variant-1:

  $gecos =  $first;
  $gecos .= " $initial" if $initial;
  $gecos .= " $last, $sid, SIR Fall 2007";


Variant-2:

  $gecos = $first
         . ($inital ? " $initial" : "")
         . " $last, $sid, SIR Fall 2007";

$gecos = do {
  my @name = grep $_, $first, $initial, $last;
  "@name, $sid, SIR Fall 2007";
};


Rob

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/