Выбор.
#!/usr/local/bin/perl -w print "What is you name? "; $name = <STDIN> ; chomp($name); if($name eq "German") { print "Hello, German! Good of you to be here!\n"; } else { print "Hello, $name! \n"; }
Perl практика
#!/usr/local/bin/perl -w print "What is you name? "; $name = <STDIN> ; chomp($name); if($name eq "German") { print "Hello, German! Good of you to be here!\n"; } else { print "Hello, $name! \n"; }