#! /usr/bin/perl
open(F, " ls |") or die;
# Open a pipe to read from
while(<F>){ print $_; }
# Prints list of UNIX files
#
很不错的PERL管道应用
最新推荐文章于 2024-07-01 01:04:39 发布
#! /usr/bin/perl
open(F, " ls |") or die;
# Open a pipe to read from
while(<F>){ print $_; }
# Prints list of UNIX files
#