La Date d'aujourd'hui, en Perl, en MM/JJ/AAAA

Je travaille sur un programme en Perl au travail et collé sur (ce que je pense) un problème trivial. J'ai tout simplement besoin de construire une chaîne au format '06/13/2012' (toujours 10 caractères, donc 0 pour les nombres inférieurs à 10).

Voici ce que j'ai à ce jour:

use Time::localtime;
$tm=localtime;
my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);
  • Si vous avez tout dit dans la question, considérez l'utilisation de l'ambiguïté et triable format ISO 8601YYYY-MM-DD plutôt que MM/DD/YYYY.
InformationsquelleAutor dvanaria | 2012-06-13
  1. 55

    Vous pouvez le faire rapidement, en n'utilisant qu'un POSIX fonction. Si vous avez des tas de tâches avec les dates, voir le module DateTime.

    use POSIX qw(strftime);

my $date = strftime "%m/%d/%Y", localtime;
print $date;
    • Les deux POSIX et DateTime ÉNORME des morceaux de code, et overkill pour une telle tâche simple.
    • une meilleure façon de changer 2017-04-29 à 04/29/2017 ?
    InformationsquelleAutor Pavel Vlasov
  2. 54

    Vous pouvez utiliser Heure: à la Pièce, qui ne devraient pas nécessiter d'installation car c'est un module de base et a été distribué avec Perl 5 depuis la version 10.

    use Time::Piece;

my $date = localtime->strftime('%m/%d/%Y');
print $date;

    sortie

    06/13/2012

    Mise à jour

    Vous préférerez peut-être utiliser la dmy méthode, qui prend un seul paramètre qui est le séparateur à utiliser entre les champs de la raison, et évite d'avoir à spécifier un plein format de date/heure

    my $date = localtime->dmy('/');

    Ce qui produit un résultat identique à celui de ma solution originale

    • Il y a trois utilitaire "date" de fonctions, dmy, mdy et ymd, et date est un alias pour ymd. Tous produisent des dattes avec la norme tiret séparateur par défaut, et peut être passé une alternative séparateur, donc localtime->ymd produit 2015-09-28 et pas 20150928 comme vous le dites. C'est la grande faiblesse de ces méthodes-ils n'ont pas en eux-mêmes décrivent ce qu'ils font, c'est pourquoi j'ai choisi strftime('%m/%d/%Y')
    • Standard de Perl (v5.10.1) sur mon serveur ne dispose pas de la bibliothèque... le bâton avec POSIX, désolé.
    • Ensuite, vous avez une installation non standard de perl. Time::Piece a été d'abord incorporé dans "expérimentale" de la version 9.5 et n'a jamais été supprimé, La première version stable après que serait la version 10.0, donc si vous avez une version 10.1 sans Time::Piece puis quelqu'un a explicitement été retirée de l'installation. Dans tous les cas, le CPAN bibliothèque est l'un de Perl de plus grandes forces, et il est stupide de se limiter aux seuls modules de base.
    • This is perl, v5.10.1 (*) built for x86_64-linux-thread-multi sur CentOS. Mais il est possible que notre sysadmin bricolé avec elle un peu, je ne peut pas vérifier que.
    • Si vous téléchargez perl-5.10.1.tar.gz à partir de http://www.cpan.org/src/ et décompressez-le, vous verrez que Time::Piece est dans le ext sous-dossier à perl-5.10.1\ext\Time-Piece. Si votre administrateur a choisi de construire perl à partir de zéro, alors il n'aurait plus à répondre à aucun pour la question Ce que les extensions voulez-vous inclure? au lieu de sélectionner la valeur par défaut, et vous avez une installation sans plus des modules de base.
    • Si vous avez besoin de la date, sans zéro de remplissage, utilisez ce format: %-m/%-d/%Y (note - après %) comme expliqué dans le POSIX documentation.

    InformationsquelleAutor Borodin
  3. 12
    use DateTime qw();
DateTime->now->strftime('%m/%d/%Y')

    expression renvoie 06/13/2012

    InformationsquelleAutor daxim
  4. 8

    Si vous aimez faire les choses à la dure:

    my (undef,undef,undef,$mday,$mon,$year) = localtime;
$year = $year+1900;
$mon += 1;
if (length($mon)  == 1) {$mon = "0$mon";}
if (length($mday) == 1) {$mday = "0$mday";}
my $today = "$mon/$mday/$year";
    • Jamais depuis le Temps: la Pièce a été en core, de le faire à la dure n'en fallait pas plus.
    • Time::Piece est apparu en core dans 5.9.5
    • Il ya beaucoup de sites en production dans le monde entier à l'aide de perl 5.8 millésime 2006. $ perldoc perlhist | perl -ne 'die "$_\n" if m/5.9.5.*20[01].{8}/' dit que 5.9.5 a été publiée en 2007-Juil-07
    InformationsquelleAutor charlesbridge
  5. 3
    use Time::Piece;
...
my $t = localtime;
print $t->mdy("/");# 02/29/2000
    • Cette réponse a déjà été donnée avant.
    • Il semble plus commode exemple de cas d'utilisation. Malheureusement, je ne peux pas commenter M. Borodine réponse.
    InformationsquelleAutor dezhik
  6. 2

    Code Perl pour les systèmes Unix:

    # Capture date from shell
my $current_date = `date +"%m/%d/%Y"`;

# Remove newline character
$current_date = substr($current_date,0,-1);

print $current_date, "\n";
    • chomp travaille également pour la suppression des caractères de saut de ligne: chomp $current_date
    • La question spécifiquement demandé MM/DD/YYYY format. Je préfère le format ISO 8601 YYYY-MM-DD format de moi-même, mais cela ne permet pas de répondre correctement à la question.
    • Merci. Fixe
    InformationsquelleAutor Bharat
  7. 1

    Le formatage des nombres avec zéro se fait facilement avec "sprintf", une fonction intégrée en perl (documentation avec: perldoc perlfunc)

    use strict;
use warnings;
use Date::Calc qw();
my ($y, $m, $d) = Date::Calc::Today();
my $ddmmyyyy = sprintf '%02d.%02d.%d', $d, $m, $y;
print $ddmmyyyy . "\n";

    Cela vous donne:

    14.05.2014

    InformationsquelleAutor horshack