|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Okunev Igor 2:5020/400 28 Oct 2004 10:19:54
To : Igor Baluev
Subject : нет не правильно
--------------------------------------------------------------------------------
On Thu, 28 Oct 2004 06:30:54 +0400, Igor Baluev wrote:
> Привет All!
>
>
>=== Цитирую файл horno.pl ===
> #!/usr/bin/perl
> $uptime=`uptime |cut -c 14- |cut -d, -f1`;
my ( $hour, $min )= split( /:/, $uptime );
if ( $hour >= 7 and $hour <= 8 ) {
print "Halt\n";
} elsif ( $hour <= 6 ) {
print "$uptime\n";
} else {
print "а этого то мы и не учли...\n";
}
>
> if ($uptime=~"7:00") {
> if ($uptime <= "8:00") {
> print "Ща вырубим
> }
> }
> elsif ($uptime <= "6:00") {
> print "$uptime";
> }
>=== Конец цитаты ===
>
> я хочу чтобы этот скрипт при работе тачки 7-8 часов запускался по крону и
> вырубался, а если тачка работает меньше 6 часов, то это за ней сижу я и
> вырубать ее не надо.
--
With best regards,
Okunev Igor
mailto: gosha<at>nis-nn.ru ( icq: 106183300 )
--- ifmail v.2.15dev5.3
* Origin: NIS (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
