http://qs321.pair.com?node_id=11113615

michael99 has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I am doing file checks in a directory. Whenever there is any files other than $name.log and *.log, will be shown. $name is user specified. Currently everything is working, except *.log, it will still print other *.log (eg. a.log)

if (-e 'abc' && -d 'abc'){ opendir my $dh4, $a_directory or die "can't open directory:$!"; while (my $entry5 = readdir $dh4){ if ($entry5 ne $name.".log" && $entry5 ne '<*.log>'){ print OUTPUT ":E: $entry5 is extra file/dir \n"; print ":E: $entry5 is extra file/dir \n"; } } }