#!/usr/bin/perl use File::Find::Rule; use warnings; my $filelist; sub buildFile { open ($filelist, ">", "filelist.txt") || die $!; # File find rule and # Provide specific list of directories to scan my $SubDirs= File::Find::Rule->directory->in('etc', 'dev', 'bin'); + # interpret Size Method and stored the list on @files my @files = File::Find::Rule->size('500')->in($SubDirs); print $filelist map { "$_\n" } @files; return \$filelist; }
this is what i had can someone correct me
In reply to Re^3: perl challenge 3
by johnrock47
in thread Reaped: perl challenge 3
by NodeReaper
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |