Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/env perl
use strict;
...
my @files = File::Find::Rule->file()->name($pattern)->maxdepth(1)->in(
+'.');

print "files: [@files]\n";
  2. or download this
    poletti@PolettiX:~/sviluppo/perl/testdir$ ls
findit.pl
...
gcc-objc-4.2-24.x86_64.rpm
poletti@PolettiX:~/sviluppo/perl/testdir$ perl findit.pl
files: [gcc-4.2-24.x86_64.rpm]