in reply to Re^4: Compare 2 arrays
in thread Compare 2 arrays

Did you actually test that your regex would deal with spaces in the file name? I think not. \w+ will not match a space, only [0-9a-zA-Z_]. A demo of different regex:
#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my %keepList; while (my $line = <DATA>) { my $sdf_file; next unless ($sdf_file) = $line =~ /([\w ]+\.nfo)/; $keepList{$sdf_file} = 1; print "keeping \"$sdf_file\"\n"; #update for debugging ####### } =example printout keeping "filename1.nfo" keeping "filename2.nfo" keeping "file name2.nfo" keeping "file name3.nfo" keeping "file name4.nfo" =cut __DATA__ fullpath="C:\directory\filename1.nfo" id="1a" fullpath="C:\directory\filename2.nfo" id = "nonsense" fullpath = "C:\directory\file name2.nfo" fullpath = "C:/directory/file name3.nfo" fullpath = "C:\directory/file name4.nfo"
Your code:
my @files = $files; opendir(OUTPUT, $files); @files = grep {$_ ne '.' and $_ ne '..'} readdir(OUTPUT); closedir(OUTPUT);
better written? as:
opendir(OUTPUT, $files) or die "unable to opendir $!"; my @files = grep {-f $files/$_} readdir(OUTPUT); closedir(OUTPUT);
The -f file test excludes not only the "." and ".." directories but also other ones that might exist.
my @files = $files; does nothing useful.

Overall, great job at getting something to "work". In the scheme of things, my comments are just nits.

Replies are listed 'Best First'.
Re^6: Compare 2 arrays
by Anonymous Monk on Jul 01, 2016 at 17:43 UTC

    Hi Marshall,

    Thank you for pointing out my shortsigned. I will use your code for opening the directory, and I will remove the useless "my @files = $files" statement. Regarding the spaces in the file name, we don't have that problem because all the file name does not have any spaces, that is our procedure for this contents.

    Thank you again for your help, much appreciated.