Here’s a quick snippet of code to build a list of files from a folder using Perl:
my $ext = '_plog.txt'; opendir (DIR, ".") || die "Can't open directory: $! n"; my @flist = grep (/$ext$/, readdir (DIR)); closedir (DIR);
Here’s a quick snippet of code to build a list of files from a folder using Perl:
my $ext = '_plog.txt'; opendir (DIR, ".") || die "Can't open directory: $! n"; my @flist = grep (/$ext$/, readdir (DIR)); closedir (DIR);