Chinaunix

标题: 输出时缓冲区疑惑 [打印本页]

---

作者: vinian    时间: 2010-11-14 22:37
标题: 输出时缓冲区疑惑
Mastering Perl 上的一个例子

1. 
   
2. #!/usr/bin/perl
   
3. use Devel::Size qw(size);
   
4. my $n;
   
5. print_message( "Before I do anything" );
   
6. print "Size is ", size( \$n );
   
7. print_message( "After I assign a string" );
   
8. $n = '1';
   
9. print "Size is ", size( \$n );
   
10. print_message( "After I use it as a number" );
    
11. my $m = $n + 1;
    
12. print "Size is ", size( \$n );
    
13. sub print_message { print "\n", "-" x 50, "\n$_[0]\n", "-" x 50, "\n" }
    

复制代码

输出：
--------------------------------------------------
Before I do anything
--------------------------------------------------
Size is 24
--------------------------------------------------
After I assign a string
--------------------------------------------------
Size is 56
--------------------------------------------------
After I use it as a number
--------------------------------------------------
Size is 64

因为好几个地方都用到print_message,每次复制粘贴比较麻烦，就把它作成一个小的模块

1. 
   
2. #Print.pm
   
3. package Print;
   
4. 
   
5. require     Exporter;
   
6. 
   
7. our @ISA            = qw(Exporter);
   
8. our @EXPORT         = qw(print_message);
   
9. our @EXPORT_OK      = qw();
   
10. our $VERSION        = 1.00;
    
11. 
    
12. sub print_message {
    
13.         print STDERR "\n", "-" x 50,
    
14.         "\n$_[0]\n", "-" x 50, "\n";
    
15. }
    
16. 
    
17. 1
    
18. 
    
19. #size.plx
    
20. #!/usr/bin/perl
    
21. 
    
22. use strict;
    
23. use warnings;
    
24. use Devel::Size qw/size/;
    
25. use Print;
    
26. 
    
27. my $n;
    
28. 
    
29. print_message("Before I do anything");
    
30. print "Size is ", size(\$n);
    
31. 
    
32. print_message("After I do something");
    
33. $n = '1';
    
34. print "Size is ", size(\$n);
    
35. 
    
36. print_message("After I do anything");
    
37. my $m = $n + 1;
    
38. print "Size is ", size(\$n);
    
39. 
    

复制代码

输出变成这样了:
--------------------------------------------------
Before I do anything
--------------------------------------------------

--------------------------------------------------
After I do something
--------------------------------------------------

--------------------------------------------------
After I do anything
--------------------------------------------------
Size is 24Size is 56Size is 64

我的解决方法有两个：
1. 在size.plx 文件开始设置 local $| = 1;
2. 在

1. print "Size is ", size(\$n);

复制代码

后面添加换行符
即

1. print "Size is ", size(\$n), "\n";

复制代码

但对第二个文件的错误输出还是不太理解，请那位大侠解释下，谢谢了

---

作者: jason680    时间: 2010-11-14 23:01
回复 1# vinian

你把print_message写到模组时
变成 print STDERR ....
STDERR跟 STDOUT是不一样的

---

作者: vinian    时间: 2010-11-14 23:24

回复  vinian

你把print_message写到模组时
变成 print STDERR ....
STDERR跟 STDOUT是不一样的
jason680 发表于 2010-11-14 23:01

谢了，一直就只盯着输出，倒把这给忘检查了...

---

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)

Powered by Discuz! X3.2