To reformat your problem:

You have:

• A list of filenames without their full path in an perl array extracted from database based on Start and End Date.
• start_date
• end_date
• three directories Work,Archive,Error.
• working ftp function
• another directory tree somewhere.

Given these items, you wish to take these actions:

• Check archive directory for a directory named "FirstDate_LastDate" with all the files which are present in my array.
  If found:
  1. copy them to work directory
  2. ftp them somewhere ( I have a ftp function).
  3. Then remove them from work directory since they were present in archive.
  
  If not found:
  search the filename in another directory tree for each filename present in array.
  1. if found, copy it to work dir and search for next file
  2. continue until array gets over.
  open questions:
  1. What is the error directory for?
  2. Where is the "another directory tree"?
  3. Should files found in "another directory tree" be pushed with FTP like the archive ones?
  4. what happens if the archive/startDate_endDate/ directory exists, but doesn't contain all the files in your list?
  5. what happens if the "another directory tree" contains some, but not all, of the files in our list?

  The details of the script won't be very hard, once you answer the missing questions in your specification.

  You'll find File::Find helpful, along with the '-e' check for file existence and the '-d' check for directory existense.

  #!/usr/bin/perl
  
  use strict;
  use warnings;
  use File::Find;
  use File::Copy;
  
  my %dir = (
      archive => '/path/to/archive',
      work    => '/path/to/work',
      error   => '/path/to/error',
      another => '/path/to/another',
  );
  my $startDate = 'Jan1';
  my $endDate   = 'Jan31';
  my @list_of_filenames = qw( a b c d other );
  
  my $archive_target = $startDate . '_' . $endDate;
  
  do_stuff_on_my_array($archive_target, \@list_of_filenames);
  sub do_stuff_on_my_array
  {
      my ($archive_target, $aref) = @_;
      my $found_all = 1;
      foreach my $file (@$aref)
      {
          $found_all=0 unless 
              check_if_file_exists_in_dir( $file, $dir{'archive'} . '/' 
  +. $archive_target);
      }
      if( $found_all )
      {
          foreach my $file (@$aref)
          {
              my $orig = $dir{'archive'} . '/' . $file;
              my $target = $dir{'work'} . '/' . $file;
  
              cp( $orig, $target );
              ### my_ftp( $target );
              unlink $target;
          }
      }
      else 
      {
          my $found_path_for_file = search_for_files_in_dir( $dir{'anoth
  +er'}, $aref);
          #what do we do with these files we found?
          FILE:
          foreach my $file (@$aref)
          {
              my $fullpath = $found_path_for_file->{$file} ;
              unless( $fullpath) 
              {
                   warn "file was not found[$file]";
                   next FILE;
              }
              cp ($fullpath, $dir{'work'});
          }
      }
  }
  sub check_if_file_exists_in_dir
  {
      my( $file, $dir ) = @_;
      return 
          ( -d $dir && -e "$file/$dir") 
          ? 1
          : 0
          ;
  }
  
  sub search_for_files_in_dir
  {
      my($dir, $aref)=@_;
      my $files = map{ $_ => 1} @$aref;
      my $file_path;
      # build a hash with the names I'm looking for
      my $wanted = sub 
      { 
          if ( exists $files->{$_} )
          { 
              $file_path->{ $_ } = $File::Find::name ;
              return 1;
          }
          else
          {
              return 0;
          }
      };
  
      if ( %{$file_path}  !=  %{$files} )
      {
          warn("some files could not be found!");
      }
      return $file_path;
  }
  [download]

  ---

  In reply to Re: Find Filename in Directory Tree and copy to another directory .. by spazm
  in thread Find Filename in Directory Tree and copy to another directory .. by sumitrai666

  Title:
  Use:  <p> text here (a paragraph) </p>
  and:  <code> code here </code>
  to format your post, it's "PerlMonks-approved HTML":
  
  
  
  

  ---

• Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
• Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
• Read Where should I post X? if you're not absolutely sure you're posting in the right place.
• Please read these before you post! —
  • How do I compose an effective node title?
  • How do I post a question effectively?
  • Markup in the Monastery
• Posts may use any of the Perl Monks Approved HTML tags:

  a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

• You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

  	For:		Use:
  	&		&
  	<		&lt;
  	>		&gt;
  	[		&#91;
  	]		&#93;

• Link using PerlMonks shortcuts! What shortcuts can I use for linking?
• See Writeup Formatting Tips and other pages linked from there for more info.