system(find) unable to find a file even if the file exists

[SitAllDay]

Hi guys I am new to Perl. Recently I received a task to find a file using system(file...), however the output keeps displaying File Not Found...

 
use strict;
use warnings;

my $destination = 'C:\Users\Documents';

if (-d ${destination}) {
    print "Info: Detected folder exists. \n";
} else {
    print "Folder not found!\n";
}

print "Unzip destination folder\n";
system("find $destination -name '*.txt'");

And here is what shown in my terminal:

C:\Users\Documents>perl test3.pl

Info: Detected folder exists.

Unzip destination folder

File not found - '*.txt'

Hopefully someone can help me with this. Thanks a lot!

[BrowserUk]

On windows, the find, command searches for text within a file, or set of files described by a wildcard expression:

C:\>find /?
Searches for a text string in a file or files.

FIND [/V] [/C] [/N] [/I] [/OFF[LINE]] "string" [[drive:][path]filename
+[ ...]]

  /V         Displays all lines NOT containing the specified string.
  /C         Displays only the count of lines containing the string.
  /N         Displays line numbers with the displayed lines.
  /I         Ignores the case of characters when searching for the str
+ing.
  /OFF[LINE] Do not skip files with offline attribute set.
  "string"   Specifies the text string to find.
  [drive:][path]filename
             Specifies a file or files to search.

If a path is not specified, FIND searches the text typed at the prompt
or piped from another command.

Think simple grep-like tool.

Your use of -name suggests you are trying to use a *nix-style find command; which is available from various sources, but from the error you are getting, is not the one that is being run.

[ikegami]

You are providing a (badly-constructed) Bourne shell command that expects to invoke the unix find tool, but you are invoking the Windows command shell which finds the very different Windows find tool.

Perhaps you should be using File::Find::Rule?

[1nickt]

Try Path::Iterator::Rule.

use strict;
use warnings;
use Path::Iterator::Rule;

my $destination = 'C:/Users/Documents';

my $rule = Path::Iterator::Rule->new->file->name('*.txt');
print "$_\n" for $rule->all( $destination );

__END__

Hope this helps!

[choroba]

I'm not sure what find does on MSWin, but the first thing to do would be to remove the single quotes around *.txt: single quotes aren't special in Windows' shell, so they are understood as part of the file name.

[Anonymous Monk]

try: C:/ iso C:\.