请教：子程序调用时如何传递文件句柄？？？

DennisRitchie

1. 
   
2. sub process()
   
3. {
   
4.         print(<FILE>);
   
5. }
   
6. 
   
7. open(FILE, "/etc/passwd");
   
8. &process();
   
9. close(FILE);
   

复制代码

这个程序输出了/etc/passwd文件的内容，我有j几个问题：

• open创建了一个全局变量，请问如何让open创建了一个局部变量?
• 如何把文件句柄传递给子程序？
• 在子程序中如何以参数的方式引用文件句柄？
  

希望能够实现如下功能：

1. 
   
2. #include <stdio.h>
   
3. 
   
4. void process(FILE * file)
   
5. {
   
6.     现在可以调用fread、fwrite函数对file操作
   
7. }
   
8. 
   
9. int main()
   
10. {
    
11.     FILE * file;
    
12. 
    
13.     file = fopen("/etc/passwd", "r");
    
14.     process(file);
    
15.     fclose(file);
    
16. }
    

复制代码

[ 本帖最后由 flw 于 2007-8-23 19:08 编辑 ]

flw

1. open my $fh, "</path/to/foo" or die;
   
2. process( $fh );
   
3. close( $fh );
   
4. 
   
5. sub process {
   
6.     my $fh = shift;
   
7.     my $line = <$fh>;
   
8.     print $line, "\n";
   
9.     read $fh, my $buffer, 1024;
   
10.     print $buffer, "\n";
    
11. }

复制代码

DennisRitchie

懂了，应该使用$file的形式而不是光秃秃的FILE打开文件，这样就统一了，谢谢！

为什么书上都是使用open(FILE, "/etc/passwd")形式打开的？

flw

原帖由 DennisRitchie 于 2007-8-23 19:02 发表

为什么书上都是使用open(FILE, "/etc/passwd")形式打开的？

那样也可以：

1. open FH, "</path/to/foo" or die;
   
2. process( *FH );
   
3. close FH;
   
4. 
   
5. sub process {
   
6.     local *FH = shift;
   
7. 
   
8.     my $line = <FH>;
   
9.     print "$line\n";
   
10. }

复制代码

DennisRitchie

很好，谢谢flw，这个论坛上好多人回答问题都是答飞所问。

哎，我发现好的perl教程真少，常见而又重要的问题都不提。另外，也不知道中国怎么有那么多的小网站的？每个网站都千篇一律的转载一些质量奇差的烂文章、烂教程。

flw有空你去写本关于perl的书吧，我支持你。

flw

to 楼上的：
你太浮躁了。
我不信你仔仔细细看完小骆驼大骆驼还会问出这样的问题。

DennisRitchie

原帖由 flw 于 2007-8-23 19:28 发表
to 楼上的：
你太浮躁了。
我不信你仔仔细细看完小骆驼大骆驼还会问出这样的问题。

什么是大小骆驼?

flw

原帖由 DennisRitchie 于 2007-8-23 19:40 发表

什么是大小骆驼?

这个便是小骆驼。
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest
大骆驼稍后再看吧。
先把这个看完。

Osment

Perl语言入门 （Learning Perl）---小骆驼，因为书皮是个小骆驼
http://www.douban.com/subject/2030712/

Perl语言编程 (Programming Perl) -- 大骆驼，因为书皮是个骆驼：）
http://www.douban.com/subject/1231697/

DennisRitchie

原帖由 flw 于 2007-8-23 19:43 发表

这个便是小骆驼。
http://bbs.chinaunix.net/viewthr ... p%3Bfilter%3Ddigest
大骆驼稍后再看吧。
先把这个看完。

粗粗浏览一下，看上去像本不错的好书，但没有面向对象的内容。