Dotaz: Převod "0 20 * * 2,4" na aktuální čas

[Petr Šobáň]

Nevíte jak nejednodušeji převést časový údaj z cronu v tom formátu:

# 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 executed

Na 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.

Odpovědi

[Marble]

Vzhledem k okolnostem mi přijde jako nejjednodušší použít naprosto nenápaditý a neoptimální :) postup rozsekat si aktuální datum na minuty, hodiny, dny atd., postupně přičítat minuty (to je vcelku triv, i přestupný rok se vejde do pár pravidel) a pokaždé porovnat, jestli splní nějakou definici crontabu. Předpokládám, že stejně v crontabu něco bude třeba jednou denně anebo podobně rozumně často a počet záznamů (snad) není extra velký, takže se ten cyklus docyklí po použitelném počtu iterací.

Pokud někdo přijde na nápad, jak to elegantně dopočítat přímo, tak to bude určitě pěknější, al ejá bych podobný problém řešil takto neelegantně.

[Petr Šobáň]

Jasně to mě taky napadlo že to budu řešit rozsekáváním, ovšem nebylo by něco co to převede, prostě tak jak to dělá vlastní cron.

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ší.

[Michal Kubeček]

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.

[happy barney]

Perl:

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;

[Petr Šobáň]

Díky to bude asi ono, ale v perlu se vůbec neorientuji takže může mi to někdo trochu vysvětlit ?

Co znamená to $, = ", "; $\ = "\n";

PS. Jdu hledat nějakej návod na perl v CZ a trochu se vzdělat.

[happy barney]

$, = separator pri výpise (tam, kde je čiarka)
$\ = ukončenie výpisu (na konci print bežne píšeš "\n")

pre sformátovanie do čitateľnejšieho formátu použi strftime:

use POSIX qw( strftime );

print strftime ('%Y-%m-%d %H:%M:%S', $cron1->nextEvent);

[Petr Šobáň]

Díky.

Ovšem nějak to nefunguje, trochu jsem si to upravil na:

#!/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 2009

Což 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 ?

[deadmail]

funguje to podla manualu dobre

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

[Petr Šobáň]

Aha to jsem se nikde nedočetl, aspoň si to nepamatuji - jo chybami se člověk učí.

Takže je to OK díky. A můžeme přistoupit k tomu že to nějak sestavíme do vhodného skriptu.

[Petr Šobáň]

Tak finální verze je tu root ji bude spouštět při ukončení OS aby se naprogramovalo probouzení.

Napsal jsem to za asi jeden den i s učením perlu takže může to někdo kdo zná perl skontrolovat zda tam nemám nějaké velké chyby ? Zatím se zdá že to funguje.

#!/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;

}

[Semo]

Neriesi toto nejaka implementacia cronu (anacron?) tak nejak sama? Ze pri spusteni pocitaca si crond pozrie, co zmeskal a pospusta to. Co ma tu vyhodu, ze napr. nejake blbe indexovanie spusti iba raz aj ked bol mesiac vypnuty.

[Ondra Holub]

No jo, ale co když chtěl v tu dobu třeba něco nahrát z rádia nebo tv? To mu už nepomůže, že se všechny zmeškané tasky udělají při příští startu.

[Petr Šobáň]

Jasně je to myšleno pro HTPC na nahrávání podle mencoderu a při vypnutí musím naprogramovat budíček aby se PC zapl a potom podle cronu nahrál pořad.

Zatím se zdá že to funguje jak má.