Portál AbcLinuxu, 12. května 2025 00:44
# Example of job definition: # .---------------- minute (0 - 59) # | .------------- hour (0 - 23) # | | .---------- day of month (1 - 31) # | | | .------- month (1 - 12) OR jan,feb,mar,apr ... # | | | | .---- day of week (0 - 6) (Sunday=0 or 7) OR sun,mon,tue,wed,thu,fri,sat # | | | | | # * * * * * command to be executedNa aktuální čas kdy se má ten program spustit ? Důvod potřebuji zjistit kdy mám zase PC spustit aby se mi provedly příkazy z cronu, prostě abych naprogramoval budíček PC. PS. Je blbost nechávat PC běžet celý den když nic nebude dělat.
prostě tak jak to dělá vlastní cron.
V tom případě by se šlo podívat do zdrojáků cron démona. Ale je možné, že ten se prostě jen každou minutu podívá, jestli aktuální čas odpovídá specifikaci.
Jinak pokud tam bude jenom číslo nebo hvězdička je to OK, ale jak tam budou složité 2,4-6 tak to bude složitější.
Ty komplikovanější zápisy se vždy dají převést na několik jednoduchých.
use Schedule::Cron::Events; my $cron1 = new Schedule::Cron::Events( '*/5 * * * * /bin/foo', Seconds => time()); $, = ", "; $\ = "\n"; print $cron1->nextEvent; print $cron1->nextEvent; print $cron1->nextEvent;
use POSIX qw( strftime );
print strftime ('%Y-%m-%d %H:%M:%S', $cron1->nextEvent);
#!/usr/bin/perl
use Schedule::Cron::Events;
my $cron = new Schedule::Cron::Events( '30 14 5-10 * 1 /bin/foo', Seconds => time());
my ($sec, $min, $hour, $day, $month, $year) = $cron->nextEvent;
printf("Další start: %2d:%02d:%02d on %d.%02d.%d\n", $hour, $min, $sec, $day, ($month+1), ($year+1900));
# turn a local date into a Unix time
use Time::Local;
my $epochSecs = timelocal($sec, $min, $hour, $day, $month, $year);
print "počet " . $epochSecs . " sekund co je " . localtime($epochSecs) . "\n";
A po spuštění teď dostanu:
[petr@nt ~]$ ./cron.pl Další start: 14:30:00 on 16.11.2009 počet 1258378200 sekund co je Mon Nov 16 14:30:00 2009Což je blbost protože den 16 není z rozsahu 5-10 je mi jasné že takhle složitý vzor "30 14 5-10 * 1 /bin/foo" se třeba nemusí vyskytnout i několik století - samozřejmě pokud zadám "30 14 5-10 * * /bin/foo" nebo "30 14 * * 1 /bin/foo" tak to funguje OK. Jinak nevíte jak se při tom "30 14 5-10 * 1 /bin/foo" zachová skutečný cron ?
ak zadate aj den v tyzdni, aj den v mesiaci, tak sa to vykona v den, ktory splna aspon jednu podmienku, teda vas priklad vykona 5.-10. v mesiaci a kazdy pondelok
#!/usr/bin/perl
# Uzivatelsky cron podle ktereho budeme spoustet PC
$SOUBOR_CRON="/var/spool/cron/petr";
# Zapisem do souboru nastavime alarm
$ACPI_WAKE_UP="/sys/class/rtc/rtc0/wakealarm";
# Pri debug 1 vypisujeme co delame (0 = jsme potichu)
$DEBUG=1;
open(DATA, "<", $SOUBOR_CRON) or die "Nelze otevřít soubor: $!";
$cas=0;
$starycas=0;
while ($radek=<DATA>) {
chomp $radek;
# je neco na radku - spracujeme
if (length($radek)>0) {
if ($DEBUG==1) { print $radek . "\n"; }
use Schedule::Cron::Events;
my $cron = new Schedule::Cron::Events( $radek, Seconds => time());
my ($sec, $min, $hour, $day, $month, $year) = $cron->nextEvent;
if ($DEBUG==1) { printf("Další start: %2d:%02d:%02d on %d.%02d.%d\n", $hour, $min, $sec, $day, ($month+1), ($year+1900)); }
# turn a local date into a Unix time
use Time::Local;
my $epochSecs = timelocal($sec, $min, $hour, $day, $month, $year);
if ($DEBUG==1) { print "počet " . $epochSecs . " sekund co je " . localtime($epochSecs) . "\n"; }
# Vybirame nejdrivejsi cas
if ($starycas==0) { $starycas=$epochSecs; $cas=$epochSecs; }
if ($epochSecs<$starycas) { $cas=$epochSecs; }
$starycas=$epochSecs;
# konec spracovani radku
}
# konec spracovani souboru
}
close DATA;
# pokud neni cas vetsi jak aktualni nic nedelame
if ($cas>time()) {
if ($DEBUG==1) { print "Ted je cas: " . time() . "\n"; }
if ($DEBUG==1) { print "Nejblizsi cas spusteni nahravani " . $cas . " sekund co je " . localtime($cas) ."\n"; }
# Odecteme 5 minut
$cas-=300;
if ($DEBUG==1) { print "Nejblizsi cas spusteni HTPC (cas nahravani - 5 minut) " . $cas . " sekund co je " . localtime($cas) ."\n"; }
# reset Alarm
open(ALARM, ">", $ACPI_WAKE_UP) or die "Nelze otevřít soubor: $!";
print ALARM "0";
close ALARM;
# Zapis alarmu
open(ALARM, ">", $ACPI_WAKE_UP) or die "Nelze otevřít soubor: $!";
print ALARM $cas;
close ALARM;
}
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.