language: Perl (perl 5.16.2)
date: 205 days 1 hour ago
link:
visibility: public 
1
2
3
4
5
6
7
8
9
10
11
12
13

#!/usr/bin/perl
 
$t = "T";
 
$v = (
 ( $t eq "B" ) ? "bus" :
 ( $t eq "A" ) ? "airplane" :
 ( $t eq "T" ) ? "train" :
 ( $t eq "C" ) ? "car" :
 ( $t eq "H" ) ? "horse" :
 "feet" );
 
 print $v;