perl管道的小例子

1649阅读 0评论2012-08-09 niannian
分类:Python/Ruby


  1. #! /usr/bin/perl

  2. open(FOO, '|-', "tr '[a-z]' '[A-Z]'");
  3. print FOO "asdf";

  4. open(FOO, '-|', "echo 'abcdefg'");
  5. my $line = <FOO>;
  6. print $line;
[lizhuohua@zhuohual-Fedora16 Perl]$ ./pipe.pl
ASDFabcdefg
上一篇:Wireshark
下一篇:vim删除^M