paste.keks.be
Paste Search Dynamic
Recent pastes
Plain
Download
Kein Titel hinterlegt
perl
  1. #!/usr/bin/perl
  2. use strict;
  3.  
  4. my $proc = `cat /proc/uptime`;
  5. my @uptime = split(/ /, $proc);
  6. my $updays_temp = $uptime[0] / 86400;
  7. my @updays = split(/\./, $updays_temp);
  8. my $uptime_tage = int($uptime[0]/86400);
  9.  
  10. my $warnung_ab_tag_x = 25;
  11. my $warnung_max = 30;
  12. if($uptime_tage ge $warnung_ab_tag_x) {
  13.     my $rest_tage = int($warnung_max-$uptime_tage-1);
  14. }
  15.  
  16. print $rest_tage;
Parsed in 0.033 Sekunden