14 lines
250 B
Perl
14 lines
250 B
Perl
|
# Note the extra space after the question mark.
|
||
|
|
print "What is your favorite scripting language? ";
|
||
|
|
|
||
|
|
$subLang = <STDIN>;
|
||
|
|
|
||
|
|
chomp($subLang);
|
||
|
|
|
||
|
|
if ( $subLang eq "perl" ) {
|
||
|
|
print "you chose perl!\n";
|
||
|
|
} else {
|
||
|
|
print "$subLang ";
|
||
|
|
}
|
||
|
|
|
||
|
|
|