find if the date is the today date, in Perl

Question

find if the date is the today date, in Perl

arrals (TechnicalUser)

(OP)

29 Jun 12 05:55

Hi all, i am new to perl.

i have a text file that contains the date in only one row.
I want to check if the date inside this file is the today date or not.

The file contains the date in this form:

file_save = 20120628150005

the first 8 numbers( 20120628 ) indicates the date, the other numbers the hour (150005)

Thank you very much!

PS: i have to do this in a Perl script

feherke (Programmer) · Answer 1 · 2012-06-29 06:10:46

Hi

What have you tried so far ?

Feherke.
http://feherke.github.com/

arrals (TechnicalUser) · Answer 2 · 2012-06-29 06:18:53

i have written only the part that is related to the format of my date. sorry, but i am new to perl.

#!/usr/bin/perl

use strict;
use warnings;

my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = localtime(time()- 24*60*60 );
$year += 1900;
$mon += 1;
if( $mon < 9 ){
$mon = "0" . $mon;
}
if( $mday < 9 ){
$mday = "0" . $mday;
}
my $date = "$year$mon$mday$hour$min$sec";

feherke (Programmer) · Answer 3 · 2012-06-29 06:31:09

Hi

Interesting. I expected to see some file operations first, where you are reading in the text file.

Then I understood that you are interested in today. So why are subtracting one day ? And anyway, if you want to compare dates, better skip the time part.

Regarding the formatting, that conditional padding is horrible. Use sprintf instead : $date = sprintf '%04d%02d%02d%02d%02d%02d',$year,$mon,$mday,$hour,$min,$sec;.

Feherke.
http://feherke.github.com/

feherke (Programmer) · Answer 4 · 2012-06-29 06:38:28

Hi

Based on specification, I would solve it like this :

CODE --> Perl

#!/usr/bin/perl

use strict;
use warnings;

open FIL, '<arrals.txt';
my $line = <FIL>;
close FIL;

my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = localtime;
$year += 1900;
$mon++;
my $date = sprintf '%04d%02d%02d', $year, $mon, $mday;

print $line =~ m/ = $date/ ? 'Yepp, that is today' : 'Not today';

Feherke.
http://feherke.github.com/

arrals (TechnicalUser) · Answer 5 · 2012-06-29 08:20:33

Thank you very much!! that was great!

Can you please help me in another step?

I want to add this:

If the date is the TODAY day, copy this file into another server.

Thank you very very much!!!

feherke (Programmer) · Answer 6 · 2012-06-29 08:44:26

Hi

Quote (arrals)
copy this file into another server.

How is that "another server" connected ?

Feherke.
http://feherke.github.com/

arrals (TechnicalUser) · Answer 7 · 2012-06-29 10:05:10

Both server are in cluster, in a virtual environment.

I have done this till now, and it seems to work:

#!/usr/bin/perl

use strict;
use warnings;
use Net::SFTP::Foreign;

open FIL, '<monitorFile';
my $line = <FIL>;
close FIL;
my $host = 'host1';
my $password = 'password';
my $user = 'root';
my $sftp = Net::SFTP::Foreign->new(host => 'host1', user => 'root', password => 'password');

my ( $sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst ) = localtime;
$year += 1900;
$mon++;
my $date = sprintf '%04d%02d%02d', $year, $mon, $mday;

if ($line =~ m/ = $date/ ){
$sftp->put("/monitorFile", "/tmp/monitorFile") or die "put failed: " . $sftp->error;
}

Thank you very very much for you support!!!!!!!!!!!!

Come Join Us!

Posting Guidelines

find if the date is the today date, in Perl