很不错的PERL管道应用

版权声明：本文为博主原创文章，未经博主允许不得转载。 https://blog.csdn.net/ccwwff/article/details/78182368

#! /usr/bin/perl

open(F, " ls |") or die;
# Open a pipe to read from
while(<F>){ print $_; }
# Prints list of UNIX files
#