Unixtime (Allgemeines zu Perl)

Gast Gast

2006-01-11 17:22

Hallo allerseits,

kennt jemand ad hoc einen Einzeiler, mit dem ich die aktuelle Unixzeit ermitteln kann ?

Danke und Gruss
Sascha

bloonix

2006-01-11 17:44

User since
2005-12-17
1615 Artikel
HausmeisterIn

Code: (dl )

1
2
3

my ($sek,$min,$std,$tag,$mon,$jahr) = (localtime)[0..5];
$mon++;
$jahr+=1900;

\n\n

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

Strat

2006-01-11 18:29

User since
2003-08-04
5246 Artikel
ModeratorIn

UnixEpochSeconds:

Code: (dl )

perl -le "print time"

aktuelle uhrzeit:

Code: (dl )

perl -MPOSIX -le "print strftime '%H:%M:%S', localtime"

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

Dubu

2006-01-12 01:24

User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn

user image

Und die im ctime-Format gesetzte Ausgabe:

Code: (dl )

perl -le 'print scalar localtime'

sascha

2006-01-12 09:40

User since
2004-12-10
7 Artikel
BenutzerIn
[default_avatar]

[quote=Strat,11.01.2006, 17:29]UnixEpochSeconds:

Code: (dl )

perl -le "print time"

aktuelle uhrzeit:

Code: (dl )

perl -MPOSIX -le "print strftime '%H:%M:%S', localtime"

[/quote]
Super, Strat !!

Vielen Dank !!

Viele Grüße
Sascha

bloonix

2006-01-12 17:07

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Strat,11.01.2006, 17:29]UnixEpochSeconds:

Code: (dl )

perl -le "print time"

aktuelle uhrzeit:

Code: (dl )

perl -MPOSIX -le "print strftime '%H:%M:%S', localtime"

[/quote]

hmm... einfach nur Unix-Kommandozeile? Wäre da ein simples

Code: (dl )

date

oder

Code: (dl )

date +'%H:%M:%S'

nicht einfacher?

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

Crian

2006-01-12 17:17

User since
2003-08-04
5873 Artikel
ModeratorIn

Nunja, da wir in einem Perlforum sind, war die Frage wohl so gemeint, wie man in Perl das Datum ermittelt. Strat hat die Antwort nur in einen Einzeiler eingebaut, damit man sie einfach testen kann, denke ich.

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

Strat

2006-01-12 17:27

User since
2003-08-04
5246 Artikel
ModeratorIn

doch, aber das waere nicht perl *grins*

@Crian: er wollte einen einzeiler, also hat er ihn bekommen; und den kann man leichter und sicherer in ein perl-script einbauen, indem man das perl -le " " wegwirft, als mit `date` oder so rumzufuhrwerken...\n\n

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

bloonix

2006-01-12 17:42

User since
2005-12-17
1615 Artikel
HausmeisterIn

[quote=Crian,12.01.2006, 16:17]Nunja, da wir in einem Perlforum sind[/quote]
primär perl + linux + c + html + javascript + + + + + + +

und mein Beispiel war für diesen Fall

Quote
einfach nur Unix-Kommandozeile?

:)

What is a good module? That's hard to say.
What is good code? That's also hard to say.
One man's Thing of Beauty is another's man's Evil Hack.

Crian

2006-01-12 17:47

User since
2003-08-04
5873 Artikel
ModeratorIn

Ohne pingelig sein zu wollen, wir sind hier in "Allgemeines zu Perl" :-)

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