In Perl, wie kann ich parse ein Datum, string und subtrahieren Tagen ab dem Datum es darstellt?

Perl-speichert Datums-und Zeitangaben in einem internen format, können leicht manipuliert werden. Was Sie haben, ist ein Datum im format YYYYMMDD. Also, was Sie tun müssen, ist:

1. Konvertieren Sie Ihre Datum (im format JJJJMMTT) in Perl-Datum/Uhrzeit-Speicher-format.
2. Verwenden Perl-manipulieren von Datum und Uhrzeit.
3. Wenn Sie möchten, um die Ausgabe der Ergebnisse, die Sie haben zu konvertieren zurück in das format, das Sie möchten.

Konvertieren Sie Ihre Datum (im format JJJJMMTT) in Perl-Datum/Uhrzeit-Speicher-format.

Das beste Modul dafür ist Time::Piece kommt mit Perl. Es ist ziemlich einfach:

my $date = Time::Piece->strptime($str1, '%Y%m%d');

$date jetzt Ihr Datum und die Zeit, aber in einem format gespeichert, Perl zu verstehen und zu manipulieren. Die %Y%m%d ist eine Beschreibung des formats, so dass Perl weiß, wo Sie zu finden können Sie Jahr, Monat und Tag des Monats. Sie können sich strftime zu sehen, die verschiedenen Parameter-format. In deinem Fall:

• %Y - stellt das Jahr mit dem Jahrhundert, wie 2012.
• %m - Stellt den Monat als zweistellige Zahl, wie 03 oder 12.
• %d - Stellt den Tag des Monats als zweistellige Zahl, die aus 01 zu 31 wenn es gibt, die viele Tage im Monat.

Weiter: Manipulieren Sie das Datum.

Verwenden Sie ein anderes Modul namens Zeit::Sekunden , erledigen dies für Sie.

Time::Seconds definiert eine Reihe von Konstanten wie ONE_DAY das macht die Sache einfacher:

 my $date = $date - ONE_DAY;

Schließlich: Konvertieren Sie das Datum wieder auf das format, das Sie möchten.

Wieder Time::Piece hat eine nette, einfache Möglichkeit, dies zu tun für Sie:

$date->ymd("");

Dieser wandelt $date in einen string in Jahr-Monat-Tag-format. Standardmäßig wird ein - zwischen jedem Teil. Jedoch, Sie kann es passieren, das Zeichen, das Sie verwenden möchten, als die Teiler. In diesem Fall, nichts.

Alle zusammen:

use Time::Piece   # For manipulating and storing the date
use Time::Seconds # For the nice constants such as ONE_DAY and ONE_WEEK

my $date = Time::Piece->strptime($str1, '%Y%m%d');
my $date = $date - ONE_DAY;
my $str2 = $date->ymd('');

Das ist ziemlich einfach.

Dave Cross gab Sie eine ausgezeichnete Antwort. Ich würde in der Regel nur bis wählen ihn, und belassen es dabei. Aber auch er erwähnt Sie gebeten, eine ähnliche Frage vor ein paar Tagen. Für mich bedeutet es, dass Sie möglicherweise verwendet haben, Dave Cross' Vorherige Antwort, aber Sie Verstand es nicht. Das ist nicht gut.

Schauen Sie in die Dokumentation Time::Piece und Zeit::Sekunden. Werfen Sie einen Blick auf strfdate und spielen, um mit. Erlernen und verstehen. Wenn Sie irgendwelche Fragen über diese, Fragen Sie Sie, auf Stackoverflow. Die Menschen auf Stackoverflow sind glücklicher Beantwortung von Fragen wie "Wie funktioniert das?" statt "Können Sie das für mich tun?". Nehmen Sie sich die Zeit und Mühe, um zu erklären, die erste, während die meisten entweder ignorieren Sie die letzteren oder geben Sie eine oberflächliche Antwort.

Dies wird Ihnen einen besseren Programmierer, was bedeutet, du bist mehr Wert mit Ihrem Unternehmen, und das übersetzen in eine höhere Bezahlung. Es ist Wert Ihre Zeit und Mühe.

Versuchen, es zu verstehen. Spielen Sie mit ihm.

Nachtrag

War eine ältere perl-version 5.8 und gedacht, der mit den vorhandenen Modulen im system. Auch nicht sicher, wie time::piece funktioniert

Ist eine ziemlich alte version von Perl, aber es ist üblich, auf Solaris.

In diesem Fall, wir werde es tun, die sehr altmodische Art.

Gibt es zwei Perl-Funktion, die aufgerufen wird localtime und gmtime. Diese nehmen die Anzahl der Sekunden seit dem 1. Januar 1970 und wandeln es in ein Werte-array mit jedem Wert, der einen bestimmten Teil der Zeit (Monat, Jahr, Tag, Stunden, Minuten, etc.).

Was Sie brauchen, sind inverse Funktionen -- etwas, das kann ein array von Werten, und konvertieren Sie es in die Anzahl der Sekunden seit 1970. Seit Perl-3.0, hat es solch ein Modul in der jeweiligen version von Perl. In Perl 5.x, tt genannt Time::Local. Es bietet Ihnen zwei Funktionen genannt timelocal und timegm. Diese sind die inversen Funktionen, die wir brauchen.

Zuerst müssen wir den split den string in einzelne Jahr, Monat, Tag und lege die in einem array entweder timegm oder timelocal um in die Anzahl der Sekunden seit dem 1. Januar 1970.

Als Nächstes werden wir subtrahieren Sie die Anzahl der Sekunden eines Tages. Dies ist 60 * 60 * 24 oder 86.400.

Schließlich werden wir zu konvertieren, dass die neue Datum in ein array, das Sie verwenden können, um das Datum in YYYYMMDD um.

Zwei wichtige Vorbehalte!

• Die Funktion setzt Voraus, dass der Monat von 0 bis 11 und nicht 1 bis 12. Dies ermöglicht es Ihnen, ein array zu erstellen, zu konvertieren von Monat Zahl zu nennen. Das heißt, wir haben, subtrahieren Sie 1 aus dem Monat bevor wir es geben, um gmtime und fügen Sie ein, wenn die Rücknahme von timegm.
• Jahr ist die Anzahl der Jahre seit 1900. Das bedeutet, dass wir subtrahieren 1900, bevor wir es geben, um gmtime, und fügen Sie 1900 an, wenn wir nehmen es wieder aus timegm.

Und nun das Programm:

#! /usr/bin/env perl

use strict;
use warnings;

use Time::Local;

my $date = 20120615;    #2012-June-15

$date =~ /(....)(..)(..)/;  #Parse the date

my $year = $1;
my $month = $2;
my $day = $3;

$month -= 1;    #Month is 0 to 11 and not 1 to 12
$year -= 1900;  #Year is number of years since 1900

my $seconds = 0;
my $minutes = 0;
my $hours = 0;

my $perl_date = timegm($seconds, $minutes, $hours, $day, $month, $year);

my $perl_date2 = $perl_date - (60 * 60 *24);

my ($seconds2, $minutes2, $hours2, $day2, $month2, $year2)  = gmtime($perl_date2);

$month2 += 1;   #Month is returned as 0 - 11. Make 1 - 12
$year2 += 1900; #Year is given as years since 1900. Add 1900 back to it. 

printf qq(The date is %04d-%02d-%02d \n), $year2, $month2, $day2;

InformationsquelleAutor David W.

Wird dies tun?

use Date::Parse;
use POSIX;

my $s1 = "20120704";
my $t = str2time($s1) - 86400;
my $s2 = strftime "%Y%m%d", localtime $t;

print "$s2\n";

Watch out für localtime vs gmtime, und Schaltsekunden, wenn Sie sich über diese.

InformationsquelleAutor Bernd Jendrissek