Help for this page

Select Code to Download


  1. or download this
    while ($eachfile = <*.txt>)
    { ... }
  2. or download this
    @files = <*.txt>;
foreach (@files)
    { ... }
  3. or download this
    opendir(DIR, ...);
while (defined ($eachfile = readdir(DIR) ))
    { next if not /\.txt$/; ... }