程嶏清单7-6.txt

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

print "Enter a variant name : ";
$varname = <STDIN>;
while ($varname) {
chomp($varname); 
if ($varname =~ /^\$[A-Za-z][_0-9a-zA-Z]*$/) {
    print ("$varname is a legal scalar variable\n");
} 
elsif ($varname =~ /^@[A-Za-z][_0-9a-zA-Z]*$/) {
    print ("$varname is a legal array variable\n");
}
elsif ($varname =~ /^%[A-Za-z][_0-9a-zA-Z]*$/) {
    print ("$varname is a legal hash variable\n");
}
elsif ($varname =~ /^[A-Za-z][_0-9a-zA-Z]*$/) {
    print ("$varname is a legal file variable\n");
}
else { 
    print ("I don't understand what $varname is.\n");
}  
print "Enter another number : ";
$varname = <STDIN>;
}