Hi Guys,
I would like to ask a help in creating a script that would traverse a directory and doing a tar on those directories. Example scenario is this. I have a folder named temp and in that directory, I have 3 other directories which I want to tar on a different file location, say for example /home/user1. How am I be able to accomplish such. I am not familiar with bash/perl programming as I have only started learning it. Thanks in advance.

you want to copy directory trees to another location?

something like that. but i want it to be a tar.gz. I found some codes on the internet and it looks something like this.

#!/bin/perl

use strict;
use warnings;
use File::Find;

my $directory='/some_dir/files';
my $location='/usr/home/files1/';

find (\&fetch_directory, $directory);

sub fetch_directory{
#if its a directory print its name
if (-d && $File::Find::name ne $directory)
{
if(!system("sudo tar czf /usr/home/files1/$_.tar.gz $Fil
e::Find::name")){
print "$_ compressed.\n"}
else{
print "$_ not compressed.\n"
}
}
}

Please feel free to comment on the code. I just modified code from internet to suite my needs.

?????
well it's easy isn't it?

tar czvf blah.tgz dir

don't get what all the perl is for?
you need to explain better

Do you mean something like this?
Yves.

thanks for all your input. i got the script working already. thanks.

Hi Guys,
How can I modify the script such that it will only process the parent directory in /some_dir/files folder? My problem now is that it goes down up to the last file/folder of the sub directories. Thanks.

I think this thread is the answer to my problems...

http://www.linuxquestions.org/questi...d.php?t=360881