perl管道的小例子

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


  1. #! /usr/bin/perl

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

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