Opened by silbersteine at 2004-08-05 02:03
User since
2003-08-04
5873 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5873 Artikel
ModeratorIn
Ich hab gerade dashier in einem meiner Module gefunden:
Ist wie man sieht schon etwas älter und passt vielleicht nicht 100%ig.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
sub zeit_zu_minuten ($) {
# -----------------------------------------------------------------------------
# sub : z e i t _ z u _ m i n u t e n
# -----------------------------------------------------------------------------
# Autor : CD
# Aufgabe : Macht aus einer Zeit der Form 9:30 Minuten seit Mitternacht.
# Parameter : Zeit
# Rückgabewert : Anzahl Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------
my ($h, $m) = split(/:/, $_[0], 2);
return 0 unless defined($h) and defined($m);
return 60*$h + $m;
} # sub zeit_zu_minuten
sub min_zu_hmin ($) {
# -----------------------------------------------------------------------------
# sub : m i n _ z u _ h m i n
# -----------------------------------------------------------------------------
# Autor : CD
# Aufgabe : Wandelt Minuten in Stunden:Minuten (150 -> 2:30)
# Parameter : Minuten
# Rückgabewert : Stunden:Minuten
# -----------------------------------------------------------------------------
# 0.0.1 - 15.01.2003 - CD - Erstellt
# -----------------------------------------------------------------------------
my $min = $_[0];
my $vorz = ($min<0?"-":"");
$min *= -1 if $min < 0;
my $h = int($min/60);
my $m = $min - $h*60;
my $r = "$vorz$h:" . ($m<10?"0":"") . "$m";
return $r;
} # sub min_zu_hminIst wie man sieht schon etwas älter und passt vielleicht nicht 100%ig.
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