timestamp problem: mit der funktion timelocal (Allgemeines zu Perl)

[thread]7880[/thread]

timestamp problem: mit der funktion timelocal

Leser: 4

galaxy

2006-04-12 12:51

User since
2006-04-03
30 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich habe eine Problem mit meiner Umrechnung von Daten zu Timestamps und umgekehrt.

Folgender Sachverhalt: Ich lese ein Datum aus meiner Datenbank aus. Dieses Datum liegt mit in Perl als ein String der Form DD-MM-YYYY vor. Das soll das Datum sein, ab dem später Dateien in die Datenbank geladen werden soll.

Anschliessend kommt eine while-Schleife, welche die entsprechenden Daten in die Datenbank laden soll.

Bis jetzt wird in dieser while-Schleife das Datum aber nur von Perl "simuliert" hochgezählt. Genau da liegt das Problem:

Anfangsdatum aus der Datenbank ist 17-10-2005. Dieses wandele ich so in den Timestamp um:

Code: (dl )

my ($day,$month,$year,) = split(/-/,$history_tradedate);
# Creates the timestamp(often have to write -1 because many date functions
# start with 0 for fist month, day etc.)
my $history_in_unixtime = timelocal("00","00","00",$day,$month-1,$year);

Des weiteren erzeuge ich mir den timestamp des heutigen Datums:

Jetzt folgt die while Schleife welche alle Daten bis heute laden soll: (vergelich timestamp heut und timestamp db)

Code: (dl )

while ($unix_today_minus_x > $history_in_unixtime)
{

 hier kommt später code hin




  $history_tradedate = strftime ("%d-%m-%Y",localtime($history_in_unixtime));

  print "history datum: ".$history_tradedate."\n";


  ($day,$month,$year,) = split(/-/,$history_tradedate);
  print "day: ".$day."\n";

  # Creates the timestamp(often have to write -1 because many date functions
  # start with 0 for fist month, day etc.)
  $history_in_unixtime = timelocal("00","00","00",$day+1,$month-1,$year);

  $history_tradedate = strftime ("%d-%m-%Y",localtime($history_in_unixtime));
   print "history datum: ".$history_tradedate."\n";
} #

um jetzt testen zu können (und nicht in eine Endlosschleife zu laufen) will ich das Datum in der Schleife immer um einen Tag hochzählen. Jedoch taucht dabei folgendes Problem auf.

Das hochzählen funktioniert bis zum 31-10-2005 einwandfrei. Dachte er würde dann zum 01-11-2005 umspringen. Das macht er aber nicht, sondern springt zum 32ten und schreibt folgende Fehlermeldung:

Day 32 out of range 1 .. 31 ...

Kann mir jemand bei der Monats- bzw. jahresübergreifenden Umwandlung helfen?

Danke für Tipps\n\n

renee

2006-04-12 13:07

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich würde mit CPAN:

Date::Calc arbeiten, da kannst Du Tage hinzuzählen und es wird alles richtig beachtet (auch Schaltjahre).

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Relais

2006-04-12 14:22

User since
2003-08-06
2246 Artikel
ModeratorIn

Ich würde

DateTime vorschlagen, das ist der Mainstream-Weg, hat auch diese "delta"-Methoden. Ich benutze beide Module, aus historischen Gerümpel, das sollte man ja eigentlich nicht.

Erst denken, dann posten --
27. Deutscher Perl- u. Raku -Workshop (Termin wird noch gesucht) 2025 in München.

Winter is Coming

galaxy

2006-04-12 17:03

User since
2006-04-03
30 Artikel
BenutzerIn
[default_avatar]

Hallo,

Habe mir mal das Modul Date::Calc installiert. Jedoch verstehe ich nicht wie ich damit jetzt Timestamps erzeugen/ Tage hinzuzählen kann. Kann mir jemand ein Beispiel nennen?

Danke für Tipps

renee

2006-04-12 17:20

User since
2003-08-04
14371 Artikel
ModeratorIn

Code: (dl )

use Date::Calc qw(Add_Delta_Days);
use Time::Local;

my $date = '31.01.2005';
my ($day,$month,$year) = split(/\./,$date);
($day,$month,$year) = Add_Delta_Days($day,$month,$year,1);

my $timestamp = timelocal(0,0,0,$day,$month-1,$year-1900);

Crian

2006-04-12 18:41

User since
2003-08-04
5872 Artikel
ModeratorIn

perldoc Date::Calc =)

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2006-04-12 12:51.