Perl - 小駱駝

$perl = "perl" * 2; ##"perlperl" chmop($input = <STDIN>); $input = <STDIN>; if ( defined ( $input ) ) { print "The input was $input"; } else { print "No input available!\n"; } @array = ( 1, 2

>>阅读原文<<