compactar vários diretórios com rar

pkz777
(usa Debian)

Enviado em 21/03/2010 - 13:51h

Olá pessoal, estou querendo compactar vários diretórios em arquivos de 100MB. Por exemplo:

No diretório /home/arquivos

Tem.. dir1, dir2, dir3 de forma que eu preciso compactar cada 1 em partes de 100MB

Eu faço:

1) cd /home/arquivos
2) rar a -v100m -R dir1.rar dir1/

Esperava e fazia novamente em todos os outros diretórios. Porém, tenho que fazer em mais de 50 agora.

Tem como criar um scrip em perl que faça isso. O nome do arquivo gerado .rar tem que ser o mesmo do diretório.

Se alguém souber e puder ajudar ou link de algo que possa me orientar.. ficarei mto grato.

Obrigado.

netsoul
(usa Debian)

Enviado em 23/03/2010 - 23:19h

Nem precisa fazer um script, é so abrir uma terminal:

:~$ perl -e 'print `rar a -v100m -R dir$_.rar dir$_/` for 1..50'


P.D.: Eu não pude testalo.

Abraços

pkz777
(usa Debian)

Enviado em 27/03/2010 - 08:19h

Olá, obrigado pela ajuda. Porém, nesse caso ele procura pelos diretórios dir1 até dir50... já no meu os diretórios estão com outros nomes.. exemplo "PASTA.ROBERTO" , "MARIA.2" , "TESTE.BACK".. Mais uma vez, obriado pela ajuda.

netsoul
(usa Debian)

Enviado em 30/03/2010 - 03:11h

af!!
Tem muitas maneiras, uma é usando File::List.

*******************************
*******************************
*******************************

#!/usr/bin/perl
use strict;
use warnings;

use File::List;

my $path = "/seu/path";

my $search = new File::List($path);

my @files = @{ $search->find("*") };

my @arquivo = map (/$path\/([a-z0-9.-]+)/i, @files);


print `rar a -v100m -R $_.rar $_` for @arquivo;

*******************************
*******************************
*******************************

Cabe a você melhorar o código!!!..

Abraços!!