8 Einträge, 1 Seite |
1 2 3 4 5 6 7 8 9 10 11 12 13 14
#!/usr/bin/perl use strict; use warnings; my $time_first=time(); sleep(120);# zwei Minuten warten my $time_later=time(); my $time_diff=$time_later-$time_first; $time_diff /= 60; # timestamps sind in Sekunden. print "Program schlief von ".localtime($time_fist)." bis ".localtime($time_later).", also $ime_diff Minuten\n";
Gast+2008-08-14 22:28:30--Ich nutze nur PostrgeSQL und da würde ich eine Funktion in pl/perl schreiben...
PL/SQL selber habe ich nie genutzt :/
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
create or replace procedure "KILL_OVERDUE_BAGGAGE"
is
minute number(10);
begin
for r in (
SELECT
BAGGAGE_ID, SUBSTR((systimestamp - INSERTION_DATE),15,2) as minute
FROM
dual, baggage, shelves
WHERE
baggage_id = contains_baggage_id
)
loop
IF r.minute > 2 THEN
null;
END IF;
end loop;
END;
8 Einträge, 1 Seite |