Help for this page
#!/usr/bin/env perl use strict; ... my @files = File::Find::Rule->file()->name($pattern)->maxdepth(1)->in( +'.'); print "files: [@files]\n";
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]