很不错的PERL管道应用

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

>>阅读原文<<