当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 3 篇帖子 ] 
作者 内容
1 楼 
 文章标题 : 想用Perl写个备份脚本,大家给点建议
帖子发表于 : 2007-12-31 22:22 
头像

注册: 2005-08-17 19:20
帖子: 662
送出感谢: 0 次
接收感谢: 0 次
虽然各个脚本语言都有这方面的实例,但我有些自己的思想:

主要是从一个配置文件里读取备份参数,将配置文件分为几个部分,
从第一部分读取备份存储的路径,
从第二部分读取所需备份文件的路径在配置文件中的位置(用行数表示,每行为一条路径,例如:5-10)
从第三部分读取所需备份文件的路径,其中包括文件和文件夹两种情况,文件直接拷贝,文件夹则需要进行压缩,命名方式均采用原文件名加年月日的格式

这是我的一个最基本的想法,大家看看有什么需要改进的地方或者更好的建议


_________________
生如夏花之绚丽,死如秋叶之静美


页首
 用户资料  
 
2 楼 
 文章标题 :
帖子发表于 : 2008-02-25 0:31 
头像

注册: 2005-08-17 19:20
帖子: 662
送出感谢: 0 次
接收感谢: 0 次
第一个Perl脚本,看看那里要改进的^_^,有点向系统命令的堆砌
代码:
#!/usr/bin/perl

sub Let_pakg_Com
{
    system "tar","-zcvf","$_[0].tar.gz",$_[0];
}

sub Let_pakg_Uncom
{
    if($_[0] =~ /\.tar$/i)
    {
   system "tar","-xvf",$_[0];
    }
    elsif($_[0] =~ /\.zip$/i)
    {
   system "unzip",$_[0];
    }
    elsif($_[0] =~ /\.rar$/i)
    {
   system "unrar","e",$_[0];
    }
    elsif($_[0] =~ /\.gz$/i)
    {
   if($_[0] =~ /\.tar\.gz$/i)
   {
       system "tar","-zxvf",$_[0];
   }
   else
   {
       system "gzip","-d",$_[0];
   }
    }
    elsif($_[0] =~ /\.bz2$/i)
    {
   if($_[0] =~ /\.tar\.bz2$/i)
   {
       system "tar","-jxvf",$_[0];
   }
   else
   {
       system "bunzip2",$_[0];
   }
    }
}

if($ARGV[0] eq '-c')
{
    &Let_pakg_Com($ARGV[1]);
}
elsif($ARGV[0] eq '-unc')
{
    &Let_pakg_Uncom($ARGV[1]);
}


_________________
生如夏花之绚丽,死如秋叶之静美


页首
 用户资料  
 
3 楼 
 文章标题 :
帖子发表于 : 2008-02-25 9:37 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 272
shell不行吗?既然你还system了。直接用那些find多好啊。


_________________
● 鸣学


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 3 篇帖子 ] 

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译