Re^2: tar help

I have already achieved success with your first 3 recommendations. What I did find useful was your advice on the IO::Dir with the code below I can print to screen the files I wish to tar.

#!/usr/bin/perl
use IO::Dir;

    tie %dir, 'IO::Dir', "/var/lib/mysql/club";
    foreach (keys %dir) {
         print $_, " " ,"\n";

    }
[download]

how would I use this to achieve my objective?

Comment on Re^2: tar help Download Code

Replies are listed 'Best First'.
Re^3: tar help by derby (Abbot) on Mar 22, 2006 at 12:35 UTC
`my @files; tie %dir, 'IO::Dir', "/var/lib/mysql/club"; foreach (keys %dir) { next if $_ eq "."; next if $_ eq ".."; push( @files, "/var/lib/mysql/club/" . $_ ); } my $tar = Archive::Tar->new; $tar->add_files( @files ); $tar->write('club_db.tar');` [download] but .... don't forget to check for errors -derby	[reply] [d/l]
Re^4: tar help by snyder (Initiate) on Mar 23, 2006 at 17:56 UTC
thanks, it is throwing an error but I am going to monkey with it. in an effort to understand the code piece by piece did you create an empty list/variable with the below `my @files;` [download]	[reply] [d/l]