关于Perl中while和if后面的语句段执行过程的区别

来源:互联网 发布:办公楼网络布线方案 编辑:程序博客网 时间:2024/05/22 01:53

while (<STDIN>) {    ($firstchar) = split(//, $_);    print "The first character was $firstchar";}

if (<STDIN>) {    ($firstchar) = split(//, $_);    print "The first character was $firstchar";}


为什么if后面的语句段中输出的就不是<STDIN>的首字母呢 ?

原创粉丝点击