例如，将perl print语句的输出，交给操作系统的 cat -n 命令来输出行号。也就是说，下面的perl程序和 cat -n 命令的效果是一样的。

1
2
3
4
5
6
7
8

#!/usr/bin/perl

open LOG,"| cat -n"
    or die "Can't open file: $!";

while(<LOG>){
    print $_;
}

再例如，将操作系统命令的执行结果通过管道交给perl文件句柄：

1
2
3
4
5
6
7
8

#!/usr/bin/perl

open LOG,"cat -n test.log |"
    or die "Can't open file: $!";

while(<LOG>){
    print "from pipe: $_";
}

虽然只有两种管道模式，但有3种写法：

上面第三点 | 的写法见上面的例子便可理解。而 |- 和 -| 是作为open函数的模式参数的，以下几种写法是等价的：

1
2
3
4
5
6
7

open LOG, "|tr '[a-z]' '[A-Z]'";
open LOG, "|-", "tr '[a-z]' '[A-Z]'";
open LOG, "|-", "tr", '[a-z]', '[A-Z]';

open LOG, "cat -n '$file'|";
open LOG, "-|", "cat -n '$file'";
open LOG, "-|", "cat", "-n", $file;

而且，管道还可以继续传递给管道：

1

open LOG, "|tr '[a-z]' '[A-Z]' | cat -n";

但是涉及到两个管道的时候，输出到终端屏幕上时可能不太合意：

1
2
3
4

[root@xuexi perlapp]# perl 15.plx test.log 
[root@xuexi perlapp]#        1  A
       2  B
       3  C

如何让输出不附加在shell提示符后，我暂时也不知道如何做。

但是，输出到文件中不会出现这样的问题：

1

open LOG, "|tr '[a-z]' '[A-Z]' | cat -n >test2.log";

1
2
3
4
5

[root@xuexi perlapp]# perl 15.plx test.log
[root@xuexi perlapp]# cat test2.log        
     1  A
     2  B
     3  C

如何以【既可写又可读】的模式打开文件句柄？在Perl中可以在模式前使用 + 符号来实现。

结合 + 的模式有3种，都用来实现读写更新操作。它们的意义如下：

一般来说，要同时提供读写操作， +< 是最可能需要的模式。

1.打开可供读、写、更新的文件句柄，但不截断文件

1
2

open LOG,"+<","/tmp/test.log" 
    or die "Couldn't open file: $!";

如下面的例子，say语句会将数据写入到test.log的尾部，因为遍历完test.log后，指针在文件的尾部。

1
2
3
4
5
6
7
8
9
10

#!/usr/bin/perl
use 5.010;
open LOG,"+<","test.log"
    or die "Couldn't open file: $!";

while(<LOG>){
    print $_;
}

say LOG "from hello world";

但注意，如果将上面的say语句放进while循环，则会出现读、写错乱的问题，因为 +< 模式打开文件句柄时IO指针默认在文件的开头：

1
2
3
4
5
6
7
8
9

#!/usr/bin/perl
use 5.010;
open LOG,"+<","test.log"
    or die "Couldn't open file: $!";

while(<LOG>){
    print $_;
    say LOG "from hello world";
}

分析下这个错乱：当读取了第一行后，放置好指针位置，然后赋值给 $_ 并被print输出，然后再写入 from hello world ，写入的位置是指针的后面，它会直接更新后面对应数量的字符数。数一数 from hello world 的字符数量和替换掉的字符数量，会发现正好相等。

2.打开可供读、写、更新的文件句柄，但首先截断文件

1
2

open LOG,"+>","/tmp/test.log" 
    or die "Couldn't open file: $!";

因为首先会截断文件，无法直接去读取内容。所以，这种操作模式，需要首先向文件中写入数据，再去读取数据。

1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/perl

use 5.010;
open LOG,"+>","test.log"
    or die "Couldn't open file: $!";

    say LOG "from hello world1";
    say LOG "from hello world2";
    say LOG "from hello world3";
while(<LOG>){
    say $_;
}

3.打开可供读、追加写的文件句柄。它不会截断文件。

1
2

open LOG,"+>>","/tmp/test.log" 
    or die "Couldn't open file: $!";

因为追加写模式会将指针放置在文件尾部，如果不将指针移动到文件的某个位置(可通过 seek 来移动)，将无法读出数据来。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

#!/usr/bin/env perl
use strict;
use warnings;

use 5.010;
open LOG,"+>>","test.log"
    or die "Couldn't open file: $!";


say LOG "from hello world1";
say LOG "from hello world2";
say LOG "from hello world3";

while(<LOG>){
    print "First: ", $_;          # 啥也不输出
}

seek(LOG, 0, 0);  # 将读指针移动到文件开头

while(<LOG>){
        print "Second: ", $_;  # 正常输出
}

1
2
3
4

# 
open LOG, "-";   # 打开标准输入
open LOG, "<-";  # 打开标准输入
open LOG, ">-";  # 打开标准输出

没有类似的直接打开标准错误输出的方式。如果有一个文件名就是 - ，这时想要打开这个文件而不是标准输入或标准输出，那么需要将 - 文件名作为open的第三个参数。

1

open LOG, "<", "-";

什么时候才能用上打开就立即删除的临时文件？只读或只写的临时文件都是没有意义的，只有同时能读写的文件句柄才是有意义的，所以open的模式需要指定为 +< 或 +> 。显然， +< 是更为通用的读、写模式。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl
use strict;
use warnings;

# 创建临时文件
open my $tmp_file, '+<', undef or die "open filed: $!";

# 设置自动flush
select $tmp_file; $| = 1;;

# 这个临时文件已经被删除了
system("lsof -n -p $$ | grep 'deleted'");

# 写入一点数据
say {$tmp_file} "Hello World1";
say {$tmp_file} "Hello World2";
say {$tmp_file} "Hello World3";
say {$tmp_file} "Hello World4";

# 指针移动到临时文件的头部来读取数据
seek($tmp_file, 0, 0);

select STDOUT;
while(<$tmp_file>){
    print "Reading from tmpfile: $_";
}

执行结果：

1
2
3
4
5

perl  22685 root  3u  REG  0,2  0 108086391056997277 /tmp/PerlIO_JHnTx1 (deleted)
Reading from tmpfile: Hello World1
Reading from tmpfile: Hello World2
Reading from tmpfile: Hello World3
Reading from tmpfile: Hello World4

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#!/usr/bin/perl

$text = "Hello World1\nHello World2\n";

# 打开内存文件以便读取操作
open MEMFILE, "<", \$text or die "open failed: $!";

print scalar <MEMFILE>;

# 提供内存文件以供写入操作
$log = ""
open MEMWRITE, ">", \$log;
pritn MEMWRITE "abcdefg\n";
pritn MEMWRITE "ABCDEFG\n";

print $log;

如果内存文件操作的是STDOUT和STDERR这两个特殊的文件句柄，如果需要重新打开它们，一定要先关闭它们再重新打开，因为内存文件不依赖于文件描述符，再次打开文件句柄不会覆盖文件句柄。例如：

1
2
3

close STDOUT;
open(STDOUT, ">", \$variable)
    or die "Can't open STDOUT: $!";

1

open LOG,">&STDOUT"

表示将写入LOG文件句柄的数据重定向到STDOUT中。

shell中很常用的一个符号是 >&FILENAME 或 >FILENAME 2>&1 ，它们都表示标准错误和标准输出都输出到FILENAME中。在perl中实现这种功能的方式为：(注意dup目标使用 \* 的方式，且不加引号)

1
2
3

open LOG,">","/dev/null" or die "Can't open filehandle: $!";
open STDOUT,">&",\*LOG or die "Can't dup LOG:$!";
open STDERR,">&",\*STDOUT or die "Can't dup STDOUT: $!";

或者简写一下：

1
2

open STDOUT,">","/dev/null" or die "Can't dup LOG:$!";
open STDERR,">&",\*STDOUT or die "Can't dup STDOUT: $!";

1
2
3
4
5
6
7
8

use 5.010;
open LOG,">>","/tmp/test.log" or die "Can't open filehandle: $!";
open STDOUT,">&",\*LOG or die "Can't dup LOG: $!";
open STDERR,">&",\*STDOUT or die "Can't dup STDOUT: $!";

say "hello world stdout default";
say STDOUT "hello world stdout";
say STDERR "hello world stderr";