Perl 读入管线 (pipe) 输入

Sam Tang

11 years ago

Linux 下的管线 (pipe) 很实用，可以将多个指令一同执行，如果在 Perl Script 想读取 pipe 输入，可以用 <> 符号，这样就可以将 Perl Script 写到像 Linux 下的指令那样运作，写法也十分简单，就这样：

testing.pl

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

my $line;
foreach $line (<>) {
    print $line;
}

#!/usr/bin/perl

use strict;

use warnings;

my $line;

foreach $line (<>) {

print $line;

}

以上程式码会读入 pipe 输入，然后逐行印出，在指令模式这样做：

cat /etc/fstab | testing.pl

上面的指令将 cat /etc/fstab 的输出导入到 testing.pl。