./defined.pl
value of sum is 5.
value of str is "add some text".
#!/usr/bin/perl
$data = <STDIN>;
if (defined($data)) {
print "The input was $data \n";
} else {
print "No input available!\n";
}
欢迎光临 曲径通幽论坛 (http://www.groad.net/bbs/) | Powered by Discuz! X3.2 |