![]() |
Здравствуйте и добро от Соединенных Штатов UNIX и Linux Форумы! Благодарим Вас за посещение и вступления нашей мирового сообщества.
|
|
Google unix.com
|
|||||||
| Форумы | Регистрация | Правила форума | Ссылки | Альбомы | ЧАВО | Список участников | Календарь | Поиск | Сегодняшние сообщения | Отметить форумы читать |
| Shell программирование и сценарии Почтовые вопросы о KSH, CSH, SH, BASH, Perl, PHP, SED, AWK и скрипты оболочки и оболочки скриптовых языков здесь. |
Подробнее UNIX и Linux Темы форума можно найти полезные
|
||||
| Нить | Резьба для начинающих | Форум | Ответы | Последнее сообщение |
| Помимо этого в оболочке SH | CFG | UNIX для чайников Вопросы И Ответы | 1 | 09-28-2008 03:53 PM |
| Простые того, помочь. | Bandit390 | Shell программирование и сценарии | 3 | 09-23-2008 02:46 PM |
| Помимо | Email-Лалит | Shell программирование и сценарии | 2 | 08-06-2008 05:58 PM |
| ДОПОЛНЕНИЕ проблемы | onlyroshni | Shell программирование и сценарии | 2 | 12-10-2007 02:11 PM |
| Наряду с плавающей точкой | Рави Радж Кумар | Shell программирование и сценарии | 8 | 12-22-2006 02:47 AM |
![]() |
|
|
LinkBack | Резьба Инструменты | Искать в этом Thread | Оценить Thread | Режимы дисплея |
|
|
|
|||||
|
Помощь в дата сценарий
ниже моего сценария. На самом деле в моем скрипте принятия им текущую дату, а затем добавить 15 дней до него.
-------------------------------------------------- ------------------------ #! / BIN / KSH Current_day \u003d `Perl -E 'распечатать INT (Время);' ` Эхо $ Current_day кол \u003d 0 кол \u003d `$ Expr Current_day + 1296000` Эхо $ кол Perl -ле "Печать скалярного Localtime ( '" $ кол "');' Perl -E '@ D \u003d Localtime ((стат (смены)) [9]); printf "% 4D-% 02d-% 02d \ N", $ D [5] 1900, $ D [4] +1, $ Д [3] '' "$ кол" -------------------------------------------------- ------------------------ последней командой, которая преобразует $ рассчитывать стоимость в формате ГГГГ-ММ-ДД, не работает. PLZ помочь мне в этом? |
|
||||
|
стат работы с файлами, а не эпохи секунд.
|
|
||||
|
Код:
#!/bin/ksh
tictock()
{
perl -e '
$now = time;
$increment = 1296000;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($now);
$year += 1900;
for($i=0, $thisyear = $year ; $thisyear==$year ; $i++)
{
printf ("%4d-%02d-%02d ", $year, $mon, $mday);
$incr=($increment * $i) + $now;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime($incr);
$year += 1900;
$mon += 1;
}
'
}
set -A arr $(tictock )
let i=0
while [[ $i -lt ${#arr[*]} ]]
do
print ${arr[i]}
i=$(( i + 1))
done
|
|
|||||
|
Цитата:
|
![]() |
| Закладки |
| Теги |
| Perl, Perl сдвиг, перемещение, переход на Perl |
| Резьба Инструменты | Искать в этом Thread |
| Режимы дисплея | Оценить эту ветку |
|
|