in reply to sub functions return array's
Using strictures (use warnings; use strict;) would've helped enormously.sub getfiles() { opendir DIR,$logSite or die "Unable to open Directory, please try ag +ain"; my @uploads; foreach $pattern (@ARGV) { push (@uploads, grep /$pattern/, readdir(DIR)); } closedir DIR; return \@uploads; }
|
|---|