Searching for a File

[bir]

I have a folder which contains the xml files with the word CICM in the filename (can also contain some other files)

I need to search for all these xml files and create a single zip file for all these xml's.

Currently i tried searching using the $File::Find. Please correct me in my code here or else if there's any other better option available.

#Searching for the CICM files in CICM data folder
find(sub {
    return if ($_ =~/^CICM/i);
    return unless ($_ =~/\.xml/i);
    stat $File::Find::name;
    return if -d;
    return unless -r;
 
    open FILE, "< $File::Find::name" or return;
    my $file_name_string = <FILE>;
    push @find_file_name, $file_name_string;
    close (FILE);
 
    print "@find_file_name \n";
}, $User_Preferences{"UNMASKED_DATA_FOLDER"});
 

The print in the sub is not working.

[KevinADC]

are you searching in one folder or do you need to search in sub folders too?

[bir]

are you searching in one folder or do you need to search in sub folders too?

Hey i'm searching in 1 folder only....

[KevinADC]

give this a try:

my $dir = 'path/to/dir';
opendir(DIR,$dir) or die "$!";
my @files = grep { /^.*?CICM.*?\.xml$/i} readdir DIR;
close DIR;
 

[bir]

give this a try:

my $dir = 'path/to/dir';
opendir(DIR,$dir) or die "$!";
my @files = grep { /^.*?CICM.*?\.xml$/i} readdir DIR;
close DIR;
 

Hi

This doesn't seem to be working....i tried it out! Can u please tell me how to search a for a file names in lines of my earlier stated problem

[bir]

Thanks Kevin i'm done with it.