perl glob files in directory

I am using glob to read *_file.log exist in certain directory but below code seems not working.

Example path having these few files:

/user/home/xpath/logs/
abc_file.log
def_file.log
x.txt

Code:

my $home = "/user/home";

if (glob ("${home}/xpath/logs/\*_file.log")){
print "work\n";
}
else {
print "something wrong\n"
}

As explained, all matches from the glob need be retrieved. Given that glob is a "very" global creature with long memory better use it in list context to exhaust its return right away, and then investigate it. One way to do what the question tries

if ( my @entries = glob "$home/xpath/logs/*_file.log" ) {
    print "file: $_\n" for @entries;
}
else {
    print "No such entries found\n"
}

I cleaned up some of unneeded syntax elements.

A few comments

• If you really mean to use the home directory, the environment variable is available in the %ENV hash, as $ENV{HOME} (or see File::HomeDir)

• The feature say adds a newline to prints making them far nicer. For example, we can say

  say for @files;
  

  It need be enabled by use feature qw(say);, or by use-ing a Perl version 5.10 or newer, or by use-ing some of a number of packages/frameworks that enable it

• Once you reach for glob also have a look at File::Glob, which provides a drop-in replacement that handles spaces in names nicely.

Using if glob is wrong.

$ ls
a.log
b.log

$ perl -Mv5.14 -e'
   sub test { say "$_[0]: ", glob( $_[0] ) ? "at least one match" : "no matches" }
   test( "*.log" );
   test( "*.txt" );
   test( "*.log" );
'
*.log: at least one match      # Correct
*.txt: at least one match      # Incorrect
*.log: no matches              # Incorrect and a contradiction

glob in scalar context acts as an iterator.

• The first time it's called, it returns the first match.
• The second time it's called, it returns the second match (regardless of the argument).
• When it's called after all results have been returned, it returns undef.

If you're going to use glob, you're going to have to get all the results, not just the first.

For example, the following uses the scalar( () = ... ) trick to call glob in list context (getting all the results) and count the number of items it returns.

$ perl -Mv5.14 -e'
   sub test { say "$_[0]: ", ( () = glob( $_[0] ) ) ? "at least one match" : "no matches" }
   test( "*.log" );
   test( "*.txt" );
   test( "*.log" );
'
*.log: at least one match
*.txt: no matches
*.log: at least one match