Here is the script for create a tar file using perl
Quote:
#!/usr/bin/perl -w
$vDir=shift(@ARGV);
chomp($vDir);
$vDir =~ tr/\///d;
print "Archiving $vDir/* ...\n";
$vTarName=$vDir."test.tar.gz";
$vContent="tar -zpscf ".$vTarName." ".$vDir."/*";
system($vContent);
print("\n");
|
Thanks
R.Rajan