Opened by esskar at 2003-09-03 01:55
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
?
etwa so?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# -----------------------------------------------------------------------------
# sub : i s t _ s c h a l t j a h r
# -----------------------------------------------------------------------------
# Autor : CD
# Aufgabe : Gibt an, ob das übergebene Jahr ein Schaltjahr ist.
# Parameter : Jahr
# Rückgabewert : 0 oder 1
# -----------------------------------------------------------------------------
# 0.0.1 - 20.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------
sub ist_schaltjahr {
my $j = shift;
return 1 if $j%4==0 and ($j%100!=0 or $j%400==0);
return 0;
} # sub ist_schaltjahr
etwa so?
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
use strict; use warnings; Link zu meiner Perlseite