perl 列表上下文scalar和< STDIN >

perl 列表上下文scalar和<STDIN>，供大家学习参考。

scalar：伪函数非真正的函数，强制引入标量上下文
 

 
输出结果：
How many rocks do you have?
I have 5 rocks!　#　打印出rocks的种树

<STDIN>

@lines=<STDIN>;
chomp(@lines); 
or 
chomp(@lines=<STDIN>); #读入所有行，去掉所有换行符（换行符除外）