date conversion en perl

Question

J'utilise perl pour accéder à une base de données d'où je reçois la date au format DD-MON-YYYY. Je dois effectuer 2 opérations:

1. Convertissez ce format en format MM/JJ/AAAA.

2. Comparez cette date avec deux dates pour voir si elle se situe dans cette période.

   mon $ chdate = '15 -Feb-2013 ';

   sous get_stats {

   my %map = ('Jan' => '01', 'Feb' => '02', 'Mar' => '03', 'Apr' => '04', 
         'May' => '05', 'Jun' => '06', 'Jul' => '07', 'Aug' => '08', 
         'Sep' => '09', 'Oct' => '10', 'Nov' => '11', 'Dec' => '12'); 
   
       $chdate =~ s/(..)-(...)-(....)/$map{$2}\/$1\/$3/; 
       print "New date: $chdate"; 
   

   }

Comment puis-je effectuer l'opération (2)?

J'ai une ancienne version de Perl (pas module Time :: Piece), que je ne dispose pas de privilèges pour mettre à jour :)

Answer 1

Pour (2), vous pouvez le faire:

sub dateAsNumber # Arg mm/dd/yyyy - Converts to a number to be compared 
{ 
    $_[0]=~m%(\d\d)/(\d\d)/(\d\d\d\d)%; 
    return (($3 * 400 + $1) * 40 + $2); 
} 

$test = &dateAsNumber($testDateAsString); 

if (&dateAsNumber($startDateAsString) < $test && 
    &dateAsNumber($endDateAsString) > $test) 
{ 
    print "$test date is between $startDateAsString and $endDateAsString\n"; 
} 
else 
{ 
    print "$test date is NOT between $startDateAsString and $endDateAsString\n"; 
} 

Answer 2

Je suggère d'utiliser le module Time::Piece vous. Il a été un module de base depuis Perl5 v9.5 et n'aura donc probablement pas besoin d'être installé.

Il suffit de décoder la date en utilisant strptime et de la réencoder en utilisant strftime.

use strict; 
use warnings; 

use Time::Piece; 

my $date = '28-jul-1986'; 

print Time::Piece->strptime($date, '%d-%b-%Y')->strftime('%m/%d/%Y'); 

sortie

07/28/1986 

Answer 3

Si vous convertissez vos dates de Time::Piece objet, vous pouvez les comparer avec les opérateurs de comparaison numériques standard. Donc vous pourriez faire quelque chose comme ça.

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 

use Time::Piece; 

my $start_date_str = '1-mar-2013'; 
my $end_date_str = '31-mar-2013'; 
my $date_to_test_str = '4-mar-2013'; 

my $in_fmt = '%d-%b-%Y'; 
my $out_fmt = '%m/%d/%y'; # Warning: Illogical format! 

my $start_date_tp = Time::Piece->strptime(
    $start_date_str, $in_fmt 
); 
my $end_date_tp = Time::Piece->strptime(
    $end_date_str, $in_fmt 
); 
my $date_to_test_tp = Time::Piece->strptime(
    $date_to_test_str, $in_fmt 
); 

print $date_to_test_tp->strftime($out_fmt), ' is '; 
unless ($start_date_tp <= $date_to_test_tp and 
    $date_to_test_tp <= $end_date_tp) { 
     print ' not '; 
} 
say 'between the two test dates';