kalender (Seite 2) (Allgemeines zu Perl)

[thread]5789[/thread]

kalender (Seite 2)

Leser: 1

popcorn5

2003-10-02 02:26

User since
2003-09-24
60 Artikel
BenutzerIn
[default_avatar]

hmmm... das sieht doch schon ganz gut aus...
wie sieht es mit dem wochentag aus ?
also monatg, dienstag... oder halt auf englisch ?

format_c

2003-10-02 02:43

User since
2003-08-04
1706 Artikel
HausmeisterIn

*tipptipptipp*

Code: (dl )

use strict;
use warnings;
use Time::Local;
my %days;
@days{qw/0 1 2 3 4 5 6/} = qw/So Mo Di Mi Do Fr Sa/;

my $month = 2;
my $diff = timelocal(0,0,0,1,$month,2003-1900)-timelocal(0,0,0,1,$month-1,2003-1900);
my $tage = (localtime($diff))[7];
for (1..$tage) {
   print sprintf("%02d: ",$_),
         $days{(localtime(timelocal(0,0,0,$_,$month-1,2003-1900)))[6]},"\n";
}

01: Sa
02: So
03: Mo
04: Di
05: Mi
06: Do
07: Fr
08: Sa
09: So
10: Mo
11: Di
12: Mi
13: Do
14: Fr
15: Sa
16: So
17: Mo
18: Di
19: Mi
20: Do
21: Fr
22: Sa
23: So
24: Mo
25: Di
26: Mi
27: Do
28: Fr

Ist es dass was du willst?
Den Rest dürftest du eigentlich allein hinbekommen.

Gruß Alex\n\n

Effizente Linuxshell

format_c

2003-10-02 12:12

User since
2003-08-04
1706 Artikel
HausmeisterIn

Oh man das muss gestern schon spät gewesen sein. Wieso um himmel willen hab ich ein Hash verwendet?

Code: (dl )

my @days = qw/So Mo Di Mi Do Fr Sa/;

Hätte völlig ausgericht und wäre zu dem noch schneller gewesen.

Gruß Alex

Effizente Linuxshell

havi

2003-10-02 12:14

User since
2003-08-04
2036 Artikel
BenutzerIn

[quote=format_c,02.10.2003, 10:12]Oh man das muss gestern schon spät gewesen sein. Wieso um himmel willen hab ich ein Hash verwendet?

Code: (dl )

my @days = qw/So Mo Di Mi Do Fr Sa/;

Hätte völlig ausgericht und wäre zu dem noch schneller gewesen.

Gruß Alex[/quote]
Naja, um 00:45 Uhr kann man dir das wohl vergeben :)

Gruss

Perl-Zeitung - http://perl-zeitung.at/
Perl-Blog - http://usr-bin-perl.blogspot.com/

View all threads created 2003-10-02 01:33.