perl 输入
#!/usr/bin/perl$line = <STDIN>;
if ($line eq "\n") {
print "that was just a blank line!\n";
} else {
print "that line of input was :$line";
}
#!/usr/bin/perl
$madonna = <STDIN>;
if (defined ($madonna))
{
print "the input was $madonna";
}
else
{
print "no input available!\n";
}
页:
[1]