<div>
What us the criteria?<br />
<br />
&nbsp; opendir DIR,&quot;path/to/directory&quot; or die &quot;can't open dir&quot;;<br />
&nbsp; @files = grep /$yesterday/, readdir(DIR);<br />
will work to find files in the open directory which contain $yesterday<br />
An easier way to find the same files might be<br />
&nbsp; chdir &quot;path/to/directory&quot;;<br />
&nbsp; @files = &lt;*$yesterday*&gt;;
</div>


<div>
I don't want to change dir because I have to do this in many places and sometimes within an other directory. <br />
<br />
@files = grep /$yesterday/, readdir(DIR); doesn't work. <br />
If I explicetly set it to the date for example, @files = grep {/20120628/} readdir(DIR); it works.<br />
<br />
What I want is to get this to work. <br />
<br />
&nbsp;@files = grep {/$customer/ and &nbsp;/$yesterday/ } readdir(DIR);<br />
<br />
I am looking for the correct syntax for this.
</div>


<div>
without chdir<br />
@files = &lt;path/to/directory/*$yeste<wbr />rday*&gt;; <br />
<br />
In what way does <br />
@files = grep /$yesterday/, readdir(DIR);<br />
or<br />
@files = grep {/$customer/ and &nbsp;/$yesterday/ } readdir(DIR);<br />
not work?<br />
It should find filenames which contain both &quot;abc&quot; and &quot;20120528&quot; &nbsp;(which is last month)<br />
but sprintf(&quot;%04d%02d%02d&quot;, $year+1900, $mon, $mday-1); won't be a valid date in January or on the first day of a month.
</div>


<div>
I like @files = &lt;path/to/directory/*$yeste<wbr />rday*&gt;; Can you do recursive to go into sub-directories?<br />
<br />
<br />
Thats a good point about the sprintf. What's the best way to get previous day's date in that format. <br />
<br />
I will bump up the points.
</div>


<div>
If you don't care about being wrong for two hours per year near midnight after a daylight saving switchover happens, you might use<br />
<br />
my ($mday,$mon,$year) = (localtime time-24*60*60)[3..5];<br />
my $yesterday = sprintf(&quot;%04d%02d%02d&quot;, $year+1900, $mon+1, $mday);<br />
<br />
If you do care about being accurate near midnight after a daylight saving switch we can add a little more code to handle that case.<br />
<br />
To do recursive, it may be easiest to<br />
use File::Find;
</div>


<div>
Thanks.<br />
So how do I use file with my criteria and a given directory? Can you please give me the full syntax. <br />
<br />
variables: $customer, $yesterday, $dir<br />
expected back is @files
</div>


<div>
what filenames would you want to match?
</div>


<div>
File name should contain the customer name ($customer) and yesterday's date ($yesterday). Recursive within $dir folder.
</div>


<div>
use File::Find;<br />
our @array;<br />
our $custre=qr/\Q$customer\E/;<wbr /><br />
our $datere=qr/\Q$yesterday\E/<wbr />;<br />
find(sub{/$custre/&amp;&amp;/$date<wbr />re/&amp;&amp;push @array,$File::Find::name},<wbr /> $dir);
</div>


<div>
That works!! One more addition to it. <br />
<br />
It works if the file name has the customer name. But, if the file is in a folder that has the customer name, it doesnt work. <br />
<br />
For example:<br />
/opt/files/AAA/file_201206<wbr />29 &nbsp;-- Doesn't work<br />
/opt/files/AAA/AAA_file_20<wbr />120629 -- Works<br />
/opt/files/AAA_file_201206<wbr />29 -- Works. <br />
<br />
Can you get it to work for the above scenario also please. <br />
<br />
Bumping up the points to 200.
</div>


<div>
THanks. That works perfectly. <br />
<br />
Can you also look at my other qn regarding scp command.
</div>


<div>
Hi Ozo,<br />
How can I do the exact search on a remote server? <br />
Can you please answer the other qn I posted. <br />
<br />
<a href="https://www.experts-exchange.com/questions/27793310/Find-files-on-remote-machine-and-copy-using-SCP.html" rel="ugc nofollow">https://www.experts-exchange.com/questions/27793310/Find-files-on-remote-machine-and-copy-using-SCP.html</a>
</div>


<div>
<div class="content wysiwyg-content">
In perl, I have 2 variables. One is the customer name and another is the date. And exclude . and ..<br />
<br />
I need to get the files that match this criteria. <br />
I am not sure how to use grep to do this..<br />
<br />
my ($sec,$min,$hour,$mday,$mo<wbr />n,$year,$w<wbr />day,$yday,<wbr />$isdst) = localtime(time);<br />
my $yesterday = sprintf(&quot;%04d%02d%02d&quot;, $year+1900, $mon, $mday-1);<br />
my $customer = &quot;abc&quot;;<br />
<br />
&nbsp; @files = grep /$yesterday/, readdir(DIR);<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp;print &quot;File count = @files\n&quot;;
</div>
</div>


In perl, I have 2 variables. One is the customer name and another is the date. And exclude . and ..

I need to get the files that match this criteria. 
I am not sure how to use grep to do this..

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $yesterday = sprintf("%04d%02d%02d", $year+1900, $mon, $mday-1);
my $customer = "abc";

  @files = grep /$yesterday/, readdir(DIR);
         print "File count = @files\n";

readdir and grep

Perl is a high-level, general-purpose, interpreted, dynamic programming languages with over 25 years of development. Perl 5 runs on over 100 platforms from portables to mainframes and is suitable for both rapid prototyping and large-scale development projects.  Perl gained widespread popularity as a Common Gateway Interface (CGI) scripting language, in part due to its regular expression and string parsing abilities. In addition to CGI, Perl is used for graphics programming, system administration, network programming, finance, bioinformatics, and other applications.

Perl

Kernel programming for Linux operating systems can be done with many different languages; C, C++, Python, Perl and Java, which are some of the most common languages used.There are also many different varieties of Linux, such as Ubuntu, Fedora and OpenSUSE.