daily pastebin goal
7%
SHARE
TWEET

Untitled

a guest May 10th, 2018 87 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. #!/usr/bin/perl
  2. use strict;
  3. use warnings;
  4. use Path::Tiny;
  5. my $dir = path('foo','bar');
  6. my $iter = $dir->iterator;
  7. while (my $file = $iter->()) {
  8.     next if $file->is_dir();
  9.     print "$file\n";
  10. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top