timestamp (Datenbanken und Verzeichnisdienste)

jan10001

2003-08-26 21:48

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

Ich hab in MySQL eine Spalte als timestamp gesetzt und nun habe folgendes Problem. In in der Spalte liegt das Datum so vor 20030830, das möchte ich aber nun nach dem Auslesen zu 30.08.2003 ändern. Wie muß ich das machen? (Hatte es mit substr versucht, das klappte aber nur teilweise.)

pq

2003-08-26 21:57

User since
2003-08-04
12208 Artikel
Admin1

Code: (dl )

my $date;
if ($timestamp =~ m/^(\d{4})(\d\d)(\d\d)$/) {
  $date = "$3.$2.$1";
}

sollte aber mit substr() auch gehen, und das "klappt nur
teilweise" ist wirklich keine aussage, mit der man hier was
anfangen kann.

edit: perl-tag in code umgewandelt.\n\n

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem

Relais

2003-08-26 21:58

User since
2003-08-06
2246 Artikel
ModeratorIn

s/(\d{4})(\dd)(\dd)/$3.$2.$1/

perlrequick

Edit: Warum wird aus $1 $2 $3 denn &Å« &Åª &Å© ?

Das wird ja immer besser:

Code: (dl )

s/(\d{4})(\dd)(\dd)/$3.$2.$1/

Code (perl): (dl )

s/(\d{4})(\dd)(\dd)/$3.$2.$1/

\n\n

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

Winter is Coming

[E|B]

2003-08-26 22:01

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hi!

Code: (dl )

1
2

my $date = "20030830";
my ($year, $month, $day) = $date =~ /(\d{4})(\d{2})(\d{2})/;

TIMTOWTDI!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

[E|B]

2003-08-26 22:02

User since
2003-08-08
2561 Artikel
HausmeisterIn

@Relais

Der Link funtzt nicht!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Relais

2003-08-26 22:05

User since
2003-08-06
2246 Artikel
ModeratorIn

[E|B
,26.08.2003, 20:02]@Relais

Der Link funtzt nicht!

eben ging's noch. Bastelt wohl wer am Wiki-Server rum.

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

Winter is Coming

jan10001

2003-08-26 22:23

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

Quote
pq

sollte aber mit substr() auch gehen, und das "klappt nur
teilweise" ist wirklich keine aussage, mit der man hier was
anfangen kann.

Naja, bei Tag und Jahr ging es, aber bei Monat gings nicht. Siehe: 26.0826.2003 (Nach etlichen Versuchen habe ich es dann aufgegeben.)

Strat

2003-08-26 22:24

User since
2003-08-04
5246 Artikel
ModeratorIn

es gibt auch schnellere wege:

Code (perl): (dl )

my ($year, $month, $day) = unpack("A4 A2 A2", $date);

oder noch besser:

Code (perl): (dl )

my ($year, $month, $day) = unpack("J4 J2 J2", $date);

seltsam, dass die Leute hier kein unpack fuer fixe satzlaengen moegen...\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

format_c

2003-08-26 22:38

User since
2003-08-04
1706 Artikel
HausmeisterIn

[quote=Strat,26.08.2003, 20:24]seltsam, dass die Leute hier kein unpack fuer fixe satzlaengen moegen...[/quote]
Das hat auch das Tutorial gemeint.
unpack und pack sind die von den meisten unterschätzten und unbeliebtesten Funktionen von Perl.
Ich finde diese Funktionen auch recht schwer zu verstehen.

Gruß Alex

Effizente Linuxshell

pq

2003-08-26 22:49

User since
2003-08-04
12208 Artikel
Admin1

[quote=jan10001,26.08.2003, 20:23]Naja, bei Tag und Jahr ging es, aber bei Monat gings nicht. Siehe: 26.0826.2003 (Nach etlichen Versuchen habe ich es dann aufgegeben.)[/quote]
damit kann man immer noch nix anfangen. deine aussage:
du hast substr() benutzt und herausgekommen ist 26.0826.2003.
und darauf erwartest du eine antwort, was du falsch gemacht
haben könntest?

Patient: Herr Doktor, mein Auge tut mir immer so weh, wenn ich
Kaffee trinke.
Doktor: Ja dann nehmen sie doch mal den Löffel aus der Tasse beim Trinken!

so hellseherisch wie der Doktor sind hier die wenigsten.
also ganz einfach den code zeigen, oder ist der geheim?

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem