Perl编程:文件句柄与模块化程序的高级应用
1. 绑定文件句柄
绑定文件句柄与其他绑定变量类似,通过提供特定方法可实现特殊行为。以下是部分文件操作及其对应的绑定方法:
| 操作 | 文件操作代码 | 绑定方法 |
| — | — | — |
| 打印到文件句柄 | print FH "…";
| PRINT( @a )
|
| 格式化打印到文件句柄 | printf FH "%s", @a;
| PRINTF( "%s", @a )
|
| 从文件句柄读取 | $line = <FH>;
| READLINE()
|
| 关闭文件句柄 | close FH;
| CLOSE()
|
1.1 示例:添加时间戳
假设要为现有程序的每行输出添加时间戳,可创建 Tie::File::Timestamp
模块。以下是旧程序和新程序的对比:
# 旧程序
open LOG, '>>', 'log.txt' or die "Could not open log.txt! $!";
print LOG "This is a line of output\n";
print LOG "This is some other line\n";
# 新程序
tie *LOG