想用Perl写个备份脚本，大家给点建议

Roots · #1

虽然各个脚本语言都有这方面的实例，但我有些自己的思想：

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

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

Roots · #2

第一个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]);
}

eexpress · #3

shell不行吗？既然你还system了。直接用那些find多好啊。