程嶏清单7-5.txt

< linux网络编程工具>>配套源码

while($answer = <>)
{
chomp($answer);
if    ("SEND"  =~ /^\Q$answer/i) {
 print "Action is send\n"  
}
elsif ("STOP"  =~ /^\Q$answer/i) {
 print "Action is stop\n"  
}
elsif ("ABORT" =~ /^\Q$answer/i) {
 print "Action is abort\n" 
}
elsif ("LIST"  =~ /^\Q$answer/i) {
 print "Action is list\n"  
}
elsif ("EDIT"  =~ /^\Q$answer/i) {
 print "Action is edit\n"  
}
else{
 print "Unknown action\n"  
}
}