File Perl

  1. Home
  2. Perl
  3. File
  4. Opening an input filter on a Win32 platform
open(LISTDIR, 'dir "C:\perl" |') || die;
@filelist = ;
foreach  $file ( @filelist ){
   print $file;
}