Das heutige Datum in Perl im Format MM / TT / JJJJ

Ich arbeite an einem Perl-Programm bei der Arbeit und stecken (was ich denke) ein triviales problem. Ich brauche einfach erstellen Sie eine Zeichenfolge im format "06/13/2012' (immer 10 Zeichen, also 0 für zahlen kleiner als 10).

Hier ist, was ich habe, so weit:

use Time::localtime;
$tm=localtime;
my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);
Kommentar zu dem Problem
Wenn Sie irgendwelche sagen in der Sache, denken Sie bitte über eine eindeutige und sortierbar ISO-8601-formatYYYY-MM-DD statt MM/DD/YYYY. Kommentarautor: Keith Thompson

InformationsquelleAutor der Frage dvanaria | 2012-06-13

  1. 53

    Können Sie es schnell tun, nur mit einem POSIX Funktion. Wenn Sie Bündel von Aufgaben mit Termin, siehe das Modul DateTime.

    use POSIX qw(strftime);

my $date = strftime "%m/%d/%Y", localtime;
print $date;

    InformationsquelleAutor der Antwort Pavel Vlasov

  2. 51

    Können Sie Time::Piece, das sollte nicht nötig zu installieren, da es ein core-Modul und verteilt wurde, mit Perl 5, da version 10.

    use Time::Piece;

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

    Ausgabe

    06/13/2012

    Update

    Können Sie es vorziehen, verwenden Sie die dmy - Methode, die mit einem einzigen parameter ist das Trennzeichen zwischen den Feldern ist das Ergebnis, und vermeiden, geben Sie ein Datum/Zeit-format

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

    So ergibt sich ein identisches Ergebnis, dass meine ursprüngliche Lösung

    InformationsquelleAutor der Antwort Borodin

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

    Ausdruck gibt 06/13/2012

    InformationsquelleAutor der Antwort daxim

  4. 8

    Wenn Sie möchten, die Dinge auf die harte Weise:

    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";

    InformationsquelleAutor der Antwort charlesbridge

  5. 2
    use Time::Piece;
...
my $t = localtime;
print $t->mdy("/");# 02/29/2000

    InformationsquelleAutor der Antwort dezhik

  6. 1

    Formatieren von zahlen mit führender null erfolgt ganz einfach mit "sprintf", eine eingebaute Funktion in perl (Dokumentation: 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";

    Diese gibt Sie:

    14.05.2014

    InformationsquelleAutor der Antwort horshack

  7. 1

    Perl-Code für Unix-Systeme:

    # 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";

    InformationsquelleAutor der Antwort Bharat

Schreibe einen Kommentar