доброго времени суток. 
Имеется скрипт написанный коллегой для создания бэкапов. 
Недавно я заметил что папки и файлы бэкапов создаются не как раньше:
год_мес_день/имяфайла.год_мес_день_время
а так 
/ЧЧ:ММ:СС_Jul_/имяфайла.ЧЧ:ММ:СС_Мес__День
... что не очень удобно ... 
Изменений в скрипте никаких не производилось, если только обновлялась система (ubuntu 10.10)

Привожу кусок кода который явно отвечает за дату и время ...


#!/usr/bin/perl -w

< тут то что делает скрипт >

sub gettime {
        #($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)
        my ($mday, $month, $day, $time, $year) = split(/[\s' ']/, localtime(time));
        if ( !defined($_[0]) ) {
                return "$year\_$month\_$day";
        } else {
                return "$year\_$month\_$day\_$time";
        }
}

...

В Perl я новичок (если быть точнее, даже нуб) и пока мало что понимаю - буду рад любой помощи ... спасибо!


Это сообщение отредактировал(а) dnbattack - 3.7.2011, 17:29

PS: хотя может стоить заглянуть в доки по localtime в Убунте, вдруг там чтото своё решили придумать   

Это сообщение отредактировал(а) EcSYZ - 3.7.2011, 17:55

привел к такому виду:




Теперь скрипт отказывается работать вовсе ... 

/backup$ ./backup.pl 
Global symbol "$month" requires explicit package name at ./backup.pl line 196.
Global symbol "$day" requires explicit package name at ./backup.pl line 196.
Global symbol "$month" requires explicit package name at ./backup.pl line 198.
Global symbol "$day" requires explicit package name at ./backup.pl line 198.
Global symbol "$time" requires explicit package name at ./backup.pl line 198.
Execution of ./backup.pl aborted due to compilation errors.

Выдаёт как и надо:
2011_7_3
2011_7_3_19:14:21

да, действительно ... криво набрал код ... 
Спасибо!     

а если не секрет из-за чего мог появится такой косяк, учитывая что ранее все работало ?

Вывод: Mon Jul  4 18:32:36 2011

Подскажите, формат вывода где можно задать?


------------------------------------
производство железа

Это сообщение отредактировал(а) Swedman - 5.1.2020, 17:32

perldoc POSIX на предмет strftime

Опоздал, но все же выложу , если вы работаете в unix то удалите "use encoding 'CP1251', STDOUT => 'CP866';"

Это сообщение отредактировал(а) OutlawZ - 5.7.2011, 04:24

Продолжу обсуждение тут, 
Теперь возникла проблема с запуском скрипта с помощью cron

набрал 
crontab -e 

вписал туда 
30 5    * * *   backup-system /usr/bin/perl /home/backup-system/backup/backup.pl
(запуск каждый день в 5 часов 30 мин)

но как я заметил задание не выполняется, причем логи просто пустые ... 
даже не знаю куда копать ... надеюсь на любую помощь

Система ubuntu 10.10

Впишите так 

таким образом вы направите ошибки запуска скрипта в файл /tmp/backup.log 

Потом посмотрите что после неудачного в этот файл запишется.

Это сообщение отредактировал(а) ssdm - 13.7.2011, 17:30

Выдало



полез в 
/etc/crontab 

Исправил 


на 


перезапустил cron 

все равно говорит 


Ладно, черт с ним ... прописываю тоже самое по 
crontab -e

в логе 


  

если crontab -e, то зачем backup-system ?

Пробовал без него - все тоже самое ....

   

Это сообщение отредактировал(а) dnbattack - 18.7.2011, 01:29

ну значит у вас что то очень странное

По моему вам к админам обращаться надо.
У вас что то с cron ом. Не в perl'е проблема.