Buenas
Cómo sería el código en Perl que haga lo siguiente:
Lo ejecutas en un directorio en el que hay varios archivos comprimidos .rar
El script ejecuta unrar (o similar) que extrae cada archivo en un directorio con su mismo nombre
y si dentro de ese directorio hay un archivo readme.txt lo renombra con el mismo nombre de antes
por ejemplo, si lo hiciesemos a mano:
unrar x nombre1.rar
cd nombre1
ren readme.txt nombre1.txt (pero sólo si existe)
y sigue descomprimiendo ...
que el unrar lo busque en el path y en el mismo directorio.
"Duda con un ejemplo simple", no necesitas que el script haga nada más? como que renombre por fecha o algo así? :¬¬
Saludos
¿Sistema operativo?
¿Por qué Perl si se pudiera usar directamente Bash?
Porque si me acostumbro a hacerlo en Perl luego puedo hacer cosas más complejas.
Creo que ya lo tengo, más o menos
my @ficheros = <*.rar>;
foreach my $fichero (@ficheros) {
system("unrar x $fichero");
my($nombre) = $fichero =~ /^(.+)\.rar$/i;
if (-e "$nombre/readme.txt") {
rename "$nombre/readme.txt", "$nombre/$nombre.txt";
}
}