{"id":2222,"date":"2012-01-06T18:42:25","date_gmt":"2012-01-06T16:42:25","guid":{"rendered":"http:\/\/skeletor.org.ua\/?p=2222"},"modified":"2012-11-09T13:13:06","modified_gmt":"2012-11-09T11:13:06","slug":"%d0%b1%d1%8b%d1%81%d1%82%d1%80%d1%8b%d0%b9-%d0%b8-%d0%bf%d1%80%d0%be%d1%81%d1%82%d0%be%d0%b9-%d0%b1%d1%8d%d0%ba%d0%b0%d0%bf","status":"publish","type":"post","link":"https:\/\/skeletor.org.ua\/?p=2222","title":{"rendered":"[shell, perl] \u0411\u044b\u0441\u0442\u0440\u044b\u0439 \u0438 \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u0431\u044d\u043a\u0430\u043f."},"content":{"rendered":"
\n

\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u0441\u043a\u0440\u0438\u043f\u0442, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0434\u0435\u043b\u0430\u0435\u0442 \u0440\u0435\u0437\u0435\u0440\u0432\u043d\u044b\u0435 \u043a\u043e\u043f\u0438\u0438 \u043f\u0430\u043f\u043e\u043a. \u041e\u043d\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0444\u0430\u0439\u043b\u044b crontab<\/strong> \u0438 newsyslog.conf<\/strong>.<\/p>\n

\u041f\u0430\u0440\u0443 \u0441\u043b\u043e\u0432 \u0441\u043a\u0430\u0436\u0443 \u043e \u0441\u0430\u043c\u043e\u043c \u0441\u043a\u0440\u0438\u043f\u0442\u0435. \u041d\u0430\u043f\u0438\u0441\u0430\u043d \u043e\u043d \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 perl<\/strong> \u0438 \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u043c\u043e\u0434\u0443\u043b\u0435\u0439, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0434\u043e\u043b\u0436\u0435\u043d \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u043d\u0430 \u0432\u0441\u0435\u0445 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0445, \u0433\u0434\u0435 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 perl<\/strong>.<\/p>\n

<\/p>\n

\u041d\u0438\u0436\u0435 \u043f\u0440\u0438\u0432\u0435\u0434\u0443 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0437\u0430\u043f\u0443\u0441\u043a\u0430 \u0441\u043a\u0440\u0438\u043f\u0442\u0430 (\u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0442\u044c \u043d\u0443\u0436\u043d\u043e \u043e\u0442 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f root<\/strong>):<\/p>\n

– \u0440\u0430\u0437\u0440\u0435\u0448\u0430\u0435\u043c \u0431\u044d\u043a\u0430\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 (\u043d\u0430 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435 \u0432 \u0444\u0430\u0439\u043b\u044b crontab, newsyslog.conf<\/strong> \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u0441\u0442\u0440\u043e\u0447\u043a\u0438 \u0434\u043b\u044f \u0431\u044d\u043a\u0430\u043f\u0430)<\/p>\n

#\/scripts\/backup.pl -e<\/code><\/p>\n

– \u0437\u0430\u043f\u0440\u0435\u0449\u0430\u0435\u043c \u0431\u044d\u043a\u0430\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 (\u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0443\u0434\u0430\u043b\u044f\u044e\u0442\u0441\u044f \u0441\u0442\u0440\u043e\u0447\u043a\u0438)<\/p>\n

#\/scripts\/backup.pl -e<\/code><\/p>\n

– \u0434\u0435\u043b\u0430\u0435\u043c \u0431\u044d\u043a\u0430\u043f<\/p>\n

#\/scripts\/backup.pl -b<\/code><\/p>\n

\u0422\u0435\u043f\u0435\u0440\u044c \u043a\u0440\u0430\u0442\u043a\u043e, \u043e \u043d\u0430\u0441\u0442\u0440\u043e\u0439\u043a\u0430\u0445. \u041e\u043d\u0438 \u0440\u0430\u0441\u043f\u043e\u043b\u043e\u0436\u0435\u043d\u044b \u0432 \u0441\u0430\u043c\u043e\u043c \u0441\u043a\u0440\u0438\u043f\u0442\u0435 \u0438 \u043c\u0435\u043d\u044f\u044e\u0442\u0441\u044f \u0442\u0430\u043c \u0436\u0435. \u0418 \u0442\u0430\u043a:<\/p>\n

$path_backup - \u043f\u0443\u0442\u044c, \u0433\u0434\u0435 \u0431\u0443\u0434\u0443\u0442 \u0445\u0440\u0430\u043d\u0438\u0442\u044c\u0441\u044f \u0431\u044d\u043a\u0430\u043f\u044b
\n%backup_dirs - \u043c\u0430\u0441\u0441\u0438\u0432 \u043f\u0430\u0440: \u043f\u0430\u043f\u043a\u0430 \u0438 \u043d\u0430\u0437\u0432\u0430\u043d\u0438\u0435 \u0430\u0440\u0445\u0438\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0443\u0436\u043d\u043e \u0431\u044d\u043a\u0430\u043f\u0438\u0442\u044c
\n$cron_file - \u043f\u0443\u0442\u044c \u043a \u0444\u0430\u0439\u043b\u0443 crontab (\u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \/etc\/crontab)
\n$newsyslog_file - \u043f\u0443\u0442\u044c \u043a \u0444\u0430\u0439\u043b\u0443 newsyslog.conf (\u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \/etc\/newsyslog.conf)
\n$cron_str - \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u0430\u0440\u0445\u0438\u0432\u0430 (\u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 crontab: \u0432\u0440\u0435\u043c\u044f, \u0434\u0430\u0442\u0430, \u043a\u043e\u043c\u0430\u043d\u0434\u0430)
\n$newsyslog_str - \u0440\u043e\u0442\u0430\u0446\u0438\u0438\u044f \u0430\u0440\u0445\u0438\u0432\u043e\u0432 (\u0432 \u0444\u043e\u0440\u043c\u0430\u0442\u0435 newsyslog.conf)<\/code><\/p>\n

\u0410 \u0432\u043e\u0442 \u0438 \u0441\u0430\u043c \u0441\u043a\u0440\u0438\u043f\u0442:<\/p>\n

#!\/usr\/bin\/perl
\nuse Switch;
\n#path to backup
\nmy $path_backup='\/var\/backups';
\n#dirs, that need backup in next format:
\n#name, path
\nmy %backup_dirs = (
\n'etc' => '\/etc',
\n'usr_local_etc' => '\/usr\/local\/etc'
\n);
\n#path to crontab, newsyslog.conf
\nmy $cron_file='\/tmp\/crontab';
\nmy $newsyslog_file='\/tmp\/newsyslog.conf';
\n#settings for backup
\nmy $cron_str=\"0 23 * * * root \/scripts\/backup.pl -b\";
\nmy $newsyslog_str=$path_backup.\"\/*\/*.tar 644 5 * T00 JGN\";
\nif ($#ARGV == 0) {
\nswitch ($ARGV[0]) {
\ncase \"-e\" {
\nopen F,'>>'.$cron_file;
\nprint F $cron_str.\"\\n\";
\nclose F;
\nopen F,'>>'.$newsyslog_file;
\nprint F $newsyslog_str.\"\\n\";
\nclose F;
\n}
\ncase \"-d\" {
\ndel_str($cron_file,$cron_str);
\ndel_str($newsyslog_file,$newsyslog_str);
\n}
\ncase \"-b\" {
\nforeach $backup_dirs (keys %backup_dirs){
\nsystem \"\/bin\/rm -f $path_backup\/$backup_dirs\/$backup_dirs.tar\";
\nsystem \"cd $backup_dirs{$backup_dirs};\/usr\/bin\/tar cf $path_backup\/$backup_dirs\/$backup_dirs.tar .\/*\";
\n}
\n}
\nelse {
\nerror_use;
\n}
\n}
\n}
\nelse {
\nerror_use;
\n}
\nexit 0;
\nsub error_use();
\n{
\nprint \"Error in use \\n\";
\nprint \"use: backup.pl -e|d|b \\n \";
\nprint \"\\t -e : enable \\n\";
\nprint \"\\t -d : disable \\n\";
\nprint \"\\t -b : backup \\n\";
\nexit 1;
\n}
\nsub good_str
\n{
\nmy $str = shift;
\n$str=~ s[\\s][\\\\s]g;
\n$str=~ s[\\*][\\\\*]g;
\nreturn $str;
\n}
\nsub del_str
\n{
\nmy($file, $str) = @_;
\nopen F, $file; @f=; close F;
\nopen F, '>'.$file;
\n$str=good_str($str);
\nforeach $str_str (@f) {
\nprint F $str_str if $str_str !~ m%^$str$%;
\n}
\nclose F;
\n}<\/code><\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

\u0412 \u044d\u0442\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d \u0441\u043a\u0440\u0438\u043f\u0442, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0434\u0435\u043b\u0430\u0435\u0442 \u0440\u0435\u0437\u0435\u0440\u0432\u043d\u044b\u0435 \u043a\u043e\u043f\u0438\u0438 \u043f\u0430\u043f\u043e\u043a. \u041e\u043d\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u0444\u0430\u0439\u043b\u044b crontab \u0438 newsyslog.conf. \u041f\u0430\u0440\u0443 \u0441\u043b\u043e\u0432 \u0441\u043a\u0430\u0436\u0443 \u043e \u0441\u0430\u043c\u043e\u043c \u0441\u043a\u0440\u0438\u043f\u0442\u0435. \u041d\u0430\u043f\u0438\u0441\u0430\u043d \u043e\u043d \u043d\u0430 \u044f\u0437\u044b\u043a\u0435 perl \u0438 \u043d\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442 \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u043c\u043e\u0434\u0443\u043b\u0435\u0439, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0434\u043e\u043b\u0436\u0435\u043d \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u043d\u0430 \u0432\u0441\u0435\u0445 \u0441\u0438\u0441\u0442\u0435\u043c\u0430\u0445, \u0433\u0434\u0435 \u0438\u043c\u0435\u0435\u0442\u0441\u044f \u0438\u043d\u0442\u0435\u0440\u043f\u0440\u0435\u0442\u0430\u0442\u043e\u0440 perl.<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[4,10],"tags":[],"class_list":["post-2222","post","type-post","status-publish","format-standard","hentry","category-freebsd","category-others"],"_links":{"self":[{"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/posts\/2222","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2222"}],"version-history":[{"count":6,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/posts\/2222\/revisions"}],"predecessor-version":[{"id":3078,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=\/wp\/v2\/posts\/2222\/revisions\/3078"}],"wp:attachment":[{"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2222"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2222"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/skeletor.org.ua\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2222"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}