#!/usr/bin/perl -w use strict; use Archive::Tar; use File::Find::Rule; my $tar = Archive::Tar->new(); $tar->add_files(File::Find::Rule->in(@ARGV)); $tar->write('Tmytest2.tgz',9);
Makeshifts last the longest.
In reply to Re: Using Archive::Tar with File::Find
by Aristotle
in thread Using Archive::Tar with File::Find
by zentara
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |