#pseudo-code

$|++; #flush output to stdout as soon as possible
my @files = glob '*.txt';

foreach my $file (@files){
  my ($var_one, $var_two ...); #your var names to be checked
  open my $fh, '<', $file or die "...";
  while (<$fh>) {
     #use regex to put something inside  $var_one, $var_two
  }
  #
  if (all vars needed are defined and pass your check){  print  "$file
+ IS VALID\n"; system 'mv $file  /new/path'  }

}
[download]

Hi discipulus, I am a novice to perl thats why I do so much blunder. I tried another way to filter files. Instead using x2 z2 and all as variable I tried to search them as pattern. but it also having problem can you please check and tell what can I do so it may start working. I have updated once

#usr/bin/perl
use strict;
use warnings;
$|++; #flush output to stdout as soon as possible
my @files = glob '*.txt';
my $pat='/^x2=0.[6-9][0-9][0-9][0-9][0-9]\n';
my $pat1='/^z2=0.[6-9][0-9][0-9][0-9][0-9]\n';
my $pat3='/^some_t2=0.[6-9][0-9][0-9][0-9][0-9]\n';

foreach my $file (@files)
{
foreach my $file1(@files)
{
foreach my $files2(@files)
{
  if (($file=~/^$pat/) && ($file1=~/^$pat1/) && ($$file2=~/^$pat3/))
    {  print  "$file IS VALID\n"; 
    system 'mv $file  E:\test\some'  
    }
  }
  else 
    print "not relevant\n"
  }
[download]

Instead using x2 z2 and all as variable I tried to search them as pattern ??
Also the triple foreach make no sense to me: first a regex can be precompiled using the qr operator, second you are appliyng the regex to filename! not the content. You need a lot of practice with Perl subjects: open file, regexes (basics), loop ..

Anyway, following the basic structure mentioned by me above, and given the following folder content:

ls -l
-rw-rw-rw-   1 user     group          26 Jun 10 13:27 invalid.txt
-rw-rw-rw-   1 user     group        1049 Jun 10 13:44 reciter.pl
-rw-rw-rw-   1 user     group          36 Jun 10 13:28 valid.txt

cat invalid.txt
dfd
wdfq


qwef
z2=0.7

cat valid.txt
adf
df
x2=0.7
z2=0.7
some_t2=0.7
[download]

you must have something like (tested working code):

#!/usr/bin/perl

use strict;
use warnings;

$|++; #flush output to stdout as soon as possible
my @files = glob '*.txt';

my $pat = qr/^x2=(0.[6-9])$/;
my $pat1= qr/^z2=(0.[6-9])$/;
my $pat3= qr/^some_t2=(0.[6-9])$/;



foreach my $file (@files){
  my ($var_one, $var_two, $var_three); #your var names to be checked
  print "checking '$file'\n";
  open my $fh, '<', $file or die "...";
  while (<$fh>) {
     #use regex to put something inside  $var_one, $var_two..
     chomp $_;
     if ($_ =~ $pat)  {$var_one = $1; print "\tfound:'$_'\n"}
     if ($_ =~ $pat1) {$var_two = $1; print "\tfound:'$_'\n"}
     if ($_ =~ $pat3) {$var_three = $1; print "\tfound:'$_'\n"}
  }
  #
  #if (all vars needed are defined and pass your check){  print  "$fil
+e IS VALID\n"; system 'mv $file  /new/path'  }
  
  if (defined $var_one && defined $var_two && defined $var_three ) {

      print "FILE $file has a valid content ( x2=$var_one, z2=$var_two
+, some_t2=$var_three)\n";
      # system "mv $file x:/valid_files"
  
  }

}
[download]

and the output will be:

perl reciter.pl
checking 'invalid.txt'
        found:'z2=0.7'
checking 'valid.txt'
        found:'x2=0.7'
        found:'z2=0.7'
        found:'some_t2=0.7'
FILE valid.txt has a valid content ( x2=0.7, z2=0.7, some_t2=0.7)
[download]



HtH
L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

A few problems with your code:

• regular expressions (regexes or patterns) inadequate
• you're not searching each file for the patterns (you're searching the file names)

I also recommend precompiling the regexes before use via the qr// operator. Try to use those clues (and the help from Discipulus) to modify your code.

Hi reciter!

The code below shows how I handle checks to be applied on more than one file:

• I use File::Find to loop through all files
• With the sub checkFile I do some basic checking on each of the files (e.g. if it is empty)
• With sub analyze I open a relevant file and process it; if you use the same approach, you'll move most of your code into that function

use File::Find;
use File::stat;


find(\&checkFile, $path);     # loop through all files in my directory

#--------------------------------- check to be applied on each file --
+-----------
sub checkFile
{
    my $fullfilename    = $File::Find::name;
    my $filesize        = stat($File::Find::name)->size;
    my $filename        = $_;
    
    # --- check for relevance based on expected filenames
    if ((! ($filename =~ /_obj_pp_comp.txt/ )) && (! ($filename =~ /ob
+j.doc/ )))    {
       return;
    }
    
    if ($filesize == 0)     {
       print ("<!-- \t\tERROR: file $fullfilename is empty. -->\n");  
+     return;
    }
    if (! -f $filename)     {
       print ("<!-- \t\tERROR: file $fullfilename is a directory. -->\
+n");       return;
    }

    analyze($fullfilename);
}
#--------------------------------- work to be done on each relevant fi
+le -------------
sub analyze
{
 ...
}
[download]

Hi Ratazong, I am a novice to perl thats why I do so much blunder. I tried another way to filter files. Instead using x2 z2 and all as variable I tried to search them as pattern. but it also having problem can you please check and tell what can I do so it may start working.

#usr/bin/perl
use strict;
use warnings;
use File::Find;
use File::stat;
my $path='e:\testfolder';

find(\&checkFile, $path);     # loop through all files in my directory

#--------------------------------- check to be applied on each file --
+-----------
sub checkFile
{
    my $fullfilename    = $File::Find::name;
    my $filesize        = stat($File::Find::name)->size;
    my $filename        = $_;
    
    # --- check for relevance based on expected filenames
    if ((! ($filename =~ /_obj_pp_comp.txt/ )) && (! ($filename =~ /ob
+j.doc/ )))    {
       return;
    }
    
    if ($filesize == 0)     {
       print ("<!-- \t\tERROR: file $fullfilename is empty. -->\n");  
+     
       return;
    }
    if (! -f $filename)     {
       print ("<!-- \t\tERROR: file $fullfilename is a directory. -->\
+n");       
       return;
    }

    analyze($fullfilename);
}
#--------------------------------- work to be done on each relevant fi
+le -------------
sub analyze
{
     my @files = $fullfilename;
        my $pat='/^x2=0.[6-9][0-9][0-9][0-9][0-9]\n';
        my $pat1='/^z2=0.[6-9][0-9][0-9][0-9][0-9]\n';
        my $pat3='/^some_t2=0.[6-9][0-9][0-9][0-9][0-9]\n';
    foreach my $file (@files)
    {
        foreach my $file1(@files)
        {
            foreach my $files2(@files)
            {
                if (($file=~/^$pat/) && ($file1=~/^$pat1/) && ($file2=
+~/^$pat3/))
                {  
                    print  "$file IS VALID\n"; 
                    system 'mv $file  E:\test\some'  
                }
              else 
                    print "not relevant\n"
            }
        }
    }
}
[download]

first you should indent your code, this is really a must.

Next, what do you intend with this:

for my $i= 6000000
[download]

No time now to go through the rest of your code, but, basically you need to apply your regexes to each line of code and set the right variable when the regex is successful.

I was actually trying open to all the files present in folder. they only difference is last character i.e. each contains 1,2,3 (increasing order)at end of file name

"it doesn't work

How doesn't it work? Show us the error messages (verbatim, please) and the warnings, if any. Provide a narrative description of how output is different than your desire.

Help us to help you.