帮忙：

run309

splutter(\*STDOUT);

sub splutter {
        my $fh = shift;
        print $fh = "her um well a hmmm\n";
}


sub get_rec {print @_,"\n";
        my $fh = shift;print $fh;
        return scalar <$fh>;;
}$rec = get_rec(\*STDIN);
exit;
这个程序怎么不会自己停止？

兰花仙子

原帖由 "run309" 发表：
splutter(\*STDOUT);

sub splutter {
        my $fh = shift;
        print $fh = "her um well a hmmm\n";
}


sub get_rec {print @_,"\n";
        my $fh = shift;print $fh;
        return scala..........

1. print $fh = "her um well a hmmm\n";
   
2. print $fh；

复制代码

写法错误