elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  Duda con un ejemplo simple en Perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Duda con un ejemplo simple en Perl  (Leído 3,056 veces)
skan


Desconectado Desconectado

Mensajes: 1.360


Ver Perfil
Duda con un ejemplo simple en Perl
« en: 18 Mayo 2010, 16:01 pm »

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.


En línea

Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: Duda con un ejemplo simple en Perl
« Respuesta #1 en: 18 Mayo 2010, 16:05 pm »

"Duda con un ejemplo simple", no necesitas que el script haga nada más? como que renombre por fecha o algo así? :¬¬

Saludos


En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
leogtz
. . .. ... ..... ........ ............. .....................
Colaborador
***
Desconectado Desconectado

Mensajes: 3.069


/^$/


Ver Perfil WWW
Re: Duda con un ejemplo simple en Perl
« Respuesta #2 en: 19 Mayo 2010, 04:04 am »

¿Sistema operativo?
¿Por qué Perl si se pudiera usar directamente Bash?
En línea

Código
  1. (( 1 / 0 )) &> /dev/null || {
  2. echo -e "stderrrrrrrrrrrrrrrrrrr";
  3. }
  4.  
http://leonardogtzr.wordpress.com/
leogutierrezramirez@gmail.com
skan


Desconectado Desconectado

Mensajes: 1.360


Ver Perfil
Re: Duda con un ejemplo simple en Perl
« Respuesta #3 en: 19 Mayo 2010, 13:08 pm »

Porque si me acostumbro a hacerlo en Perl luego puedo hacer cosas más complejas.

Creo que ya lo tengo, más o menos

Código
  1. my @ficheros = <*.rar>;
  2. foreach my $fichero (@ficheros) {
  3.    system("unrar x $fichero");
  4.    my($nombre) = $fichero =~ /^(.+)\.rar$/i;
  5.    if (-e "$nombre/readme.txt") {
  6.        rename "$nombre/readme.txt", "$nombre/$nombre.txt";
  7.    }
  8. }
« Última modificación: 9 Junio 2010, 22:54 pm por Leo Gutiérrez. » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
simple ejemplo ;) sql~visual
.NET (C#, VB.NET, ASP)
_-Javier-_ 2 2,539 Último mensaje 21 Enero 2011, 01:03 am
por .:Snifer:.
[Perl] Ejemplo de Cifrado Murcielago
Scripting
BigBear 0 1,969 Último mensaje 21 Noviembre 2014, 14:11 pm
por BigBear
[Perl] Ejemplo de Cifrado Cesar
Scripting
BigBear 0 2,118 Último mensaje 28 Noviembre 2014, 17:48 pm
por BigBear
[Perl] Ejemplo de Sucesion Fibonacci
Scripting
BigBear 0 2,637 Último mensaje 5 Diciembre 2014, 15:04 pm
por BigBear
[Perl] Ejemplo de Cifrado Vigenere
Scripting
BigBear 0 2,202 Último mensaje 13 Diciembre 2014, 15:23 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines