#!/usr/bin/perl -w
$madonna=<STDIN>;
if (defined($madonna)) {
print "The input was $madonna";
} else {
print "No input available!\n";
}
转载于:https://www.cnblogs.com/djcsch2001/archive/2011/04/24/2026157.html
转载于:https://www.cnblogs.com/djcsch2001/archive/2011/04/24/2026157.html