perl syntax help for ternary operator

[ghosh123]

Hi Monk
A table cell in my web application is showing the value based on a conditional statement. Please refer to the code below :

<td align=center>&nbsp; @{[ ($string  eq 'level3' )? 'level3 stage' : 
+'Edit']}</td>

Now assume that $string may contain two more values, say for example 'level1' and 'level2' .
And each such cases the value shown in the table cell would be 'level1 stage' and 'level2 stage' respectively otherwise 'Edit'.
How would I change the above syntax to accommodate two more conditions to check the other possible values in $string and show the desired results.

thanks.

[Corion]

You change the code that creates the HTML string to set the value outside of the interpolation:

my %descriptions= (
    'level3' => 'level3 stage',
    'level2' => 'level2 stage',
    'level1' => 'level1 stage',
);
my $visual= $decsriptions{ $string } || 'Edit';

...

print "<td align=center>&nbsp;$visual</td>

Maybe it would be a good time now to look at templating systems.

[choroba]

You can use a regex match in the ternary operator, too:

$string =~ /^level[123]$/ ? "$string stage" : 'Edit'

[AnomalousMonk]

Here's how ternary operators can be chained. (And yes, wrapping this up in a subroutine is a very good idea, but the operator chain itself could be in-lined.)

c:\@Work\Perl>perl -wMstrict -le
"my $s = qq{a ${ \str('tilt2') } operation needs @{[ str('x') ]} help}
+;
 print qq{'$s'};
 ;;
 sub str {
   my ($s) = @_;
   ;;
   return
     $s eq 'level3' ? 'level3 stage' :
     $s eq 'tilt2'  ? 'tilt2 snafu'  :
     ! defined $s   ? 'undefined'    :
     qq{Edit '$s'}
     ;
   }
"
'a tilt2 snafu operation needs Edit 'x' help'

See Conditional Operator in perlop.

[Anonymous Monk]

How would I change the above syntax to accommodate two more conditions to check the other possible values in $string and show the desired results.

make a subroutine  <td> @{GhoshLevels()}  </td>