⑧安薇理工大学 ANHUI UNIVERSITY OFSCIENCE TECHNOLOG 4.1.2增加选择 现在让我们为 admin编写一个特殊的欢迎辞,而对其他人则采用 普通欢迎辞。要达到这样的效果必须将输入的姓名与 admin作比较, 如果相同则执行特殊功能。 F!/usr/bin/perl printf"请问您的姓名?"; Sname=<STDIN> chop(name); if($ named“ admin" pin"欢迎admn进入本系统n"; helse I printi"你好,$name,欢迎光临n"; 这里第五行用eq操作符对两个字符串进行比较,相同则执行下 句,否则执行ee下的语句(是不是和C语言差不多?)。6 4.1.2 增加选择 ➢ 现在让我们为admin编写一个特殊的欢迎辞，而对其他人则采用 普通欢迎辞。要达到这样的效果必须将输入的姓名与admin作比较， 如果相同则执行特殊功能。 #!/usr/bin/perl printf "请问您的姓名?"; $name=<STDIN>; chop($name); if ($name eq “admin"){ printf "欢迎admin进入本系统!\n"; } else { printf "你好, $name，欢迎光临!\n"; } 这里第五行用eq操作符对两个字符串进行比较，相同则执行下 一句，否则执行else下的语句(是不是和C语言差不多？）