Kein Titel hinterlegt
perl
#!/usr/bin/perl
use strict;
my $proc = `cat /proc/uptime`;
my @uptime =
split(/ /,
$proc);
my $updays_temp = $uptime[0] / 86400;
my @updays =
split(/\./,
$updays_temp);
my $uptime_tage =
int($uptime[0]/
86400);
my $warnung_ab_tag_x = 25;
my $warnung_max = 30;
if($uptime_tage ge $warnung_ab_tag_x) {
my $rest_tage =
int($warnung_max-
$uptime_tage-1);
}
Parsed in 0.032 Sekunden