Help for this page

Select Code to Download


  1. or download this
    my $val = ( $EXPR ) ?  $x : $y;
my $var = sprintf( "...", $val );
  2. or download this
    my %format = ( $x => "... for x", $y => "... for y" );
my $val = ( $EXPR ) ?  $x : $y;
my $var = sprintf( $format{$val}, $val );