1 use warnings;
 2 use strict;
 3 my $readbuff;
 4 my $sysreadbuff;
 5 
 6 my $readbyt = read(STDIN, $readbuff, 10);
 7 print "read get:$readbuff\n";
 8 print "read return:$readbyt\n";
 9 my $sysreadbyt = sysread(STDIN, $sysreadbuff, 10);
10 print "sysread get:$sysreadbuff\n";
11 print "sysread return:$sysreadbyt\n";

sysread使用无缓冲

read使用缓冲

相关文章:

  • 2021-11-29
  • 2022-12-23
  • 2021-06-14
  • 2021-07-15
  • 2021-10-19
  • 2021-12-02
  • 2021-05-31
猜你喜欢
  • 2022-12-23
  • 2022-12-23
  • 2022-12-23
  • 2021-12-03
  • 2021-12-04
  • 2021-10-18
  • 2022-02-06
相关资源
相似解决方案