程嶏清单6-17.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 10 行

print("What is your name? ");
$name = <STDIN>;
chomp($name);
if (! length($name)) {
    print("Msg: Zero length input. Please try again\n");
    redo;
}
print("Thank you, " . uc($name) . "\n");