Foro - Perl en Español

por **aficionado** » 2011-06-20 15:23 @683

Hola.

¿Cómo hago para hacer esto? Probé todos los tutoriales pero ¡no atino con la sintaxis!

El caso es que quiero hacer esto:
1.- resguardarImagen(), que no reciba parámetros

2.- Crear una imagen (usando partimage) de una partición determinada (pasada como parámetro) y la almacene en ~/imgs/

3.- Mantener en ~/imgs/ solo las últimas 3 imágenes creadas... Si en ese directorio ya hubiesen 3 imágenes el script deberá eliminar la imagen más vieja.

¿Cómo hago? Ayudaaa :shock:

Me estoy volviendo chango.

my @imagenes;
for my $imagen (<$ENV{HOME}/imgs/*.gz>) {
    push @imagenes, [ -M $imagen, $imagen ];               # guardamos su edad y su nombre
}
my @mas_viejos = sort { $a->[0] <=> $b->[0] } @imagenes;   # ordenamos por su edad, en orden ascendente
 
for (my $i=3; $i < @mas_viejos; $i++) {                    # del cuarto hasta el final, hay que borrar
    unlink $mas_viejos[$i]->[1];                           # borramos
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bueno, está escrito de memoria, así que es posible que haya algún error.

por **aficionado** » 2011-06-26 18:06 @795

resguardar Imagen, que no reciba parámetros.
... Cree una imagen (usando partimage) de una partición determinada (pasada como parámetro) y la
almacene en ~/imgs/.
... Mantenga en ~/imgs/ solo las últimas 3 imágenes creadas ... si en ese directorio ya hubiesen 3
imágenes el script :lol:

deberá eliminar la imagen mas vieja...?????????

por **pvaldes** » 2011-06-28 08:23 @391

No entiendo a qué te refieres con lo de resguardar imagen, y tu último mensaje, tampoco...

por **explorer** » 2011-07-02 18:32 @814

aficionado dice que no nos muestra su código porque no funciona, y yo le digo que eso no importa.

Es más, si no nos enseña su código, creo que este hilo no merece la pena que exista, ya que no podremos ayudarle.

por **aficionado** » 2011-07-03 10:23 @474

Hola ¡¡¡muchas gracias por tu respuesta!!! ahora esto lo puedo ejecutar en la PC que tengo para pruebas y te comento como me va ¿¿¿¿si???? Un abrazo y en un rato regreso con la respuesta

por **aficionado** » 2011-07-03 14:51 @660

Este sería el script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub resguardarImagen {
    ...;
}
sub crearImagen {
    my $particion = $_[0];
    system("partimage -od -f1 -z1 save $particion $ENV{HOME}/imgs/$particion.gz");
}
my @imagenes;
for my $imagen (<$ENV{HOME}/imgs/*.gz>) {
    push @imagenes, [ -M $imagen, $imagen ];               # guardamos su edad y su nombre
}
my @mas_viejos = sort { $a->[0] <=> $b->[0] } @imagenes;   # ordenamos por su edad, en orden ascendente
 
for (my $i=3; $i < @mas_viejos; $i++) {                    # del cuarto hasta el final, hay que borrar
    unlink $mas_viejos[$i]->[1];                           # borramos[perl lines=geshi-n][/perl]
 
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y esto lo que me da la consola:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

syntax error at pruebafinal.pl line 2, near "..."

BEGIN notColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-07-03 17:06 @754

A ver... ese es el código que yo te he dado... y, naturalmente, falla porque no está completo... y no está completo porque no nos das más pistas de lo que hay que hacer...

¿Qué tiene que hacer resguardarImagen? ¿Dónde están las imágenes? ¿Cómo aparecen en el sistema? ¿Hay que bajarlas o vienen solas (por acción de otros programas)? ¿En qué directorio está instalado partimage? ¿Cuál es el directorio de trabajo de esta aplicación? Etcétera...

por **aficionado** » 2011-07-03 18:50 @826

Bien, acá te explico pero de antemano ¡¡¡muchas gracias por tu ayuda!!!
El script tiene que generar automáticamente la imagen y guardarla cuando ya lo ejecute por tercera vez tiene que borrar la primera imagen guardada.

Acabo de formatear mi PC ¡¡y la tengo con Win XP y Ubuntu 10.10!! Ahora empiezo el script de cero. Así quedan las particiones:
:arrow:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Disco /dev/sdf: 160.0 GB, 160041885696 bytes

255 cabezas, 63 sectores/pista, 19457 cilindros

Unidades = cilindros de 16065 * 512 = 8225280 bytes

Tamaño de sector (lógico / físico): 512 bytes / 512 bytes

Tamaño E/S (mínimo/óptimo): 512 bytes / 512 bytes

Identificador de disco: 0x88e088e0

Dispositivo Inicio    Comienzo      Fin      Bloques  Id  Sistema

/dev/sdf1   *           1        9361    75187215    7  HPFS/NTFS

/dev/sdf2            9361       19456    81092097    f  W95 Ext'd (LBA)

/dev/sdf5           12734       15920    25599546    e  W95 FAT16 (LBA)

/dev/sdf6           15921       19456    28402888+   7  HPFS/NTFS

/dev/sdf7            9361       12588    25923584   83  Linux

/dev/sdf8           12588       12733     1164288   82  Linux swap / SolarisColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Las entradas de la tabla de particiones no están en el orden del disco.
:arrow:

ahora yo quiero que el script genere una imagen del Ubuntu y la guarde en la partición F o E, da igual, y cuando ya se hallan guardado 3 imágenes, que borre la más vieja.
:arrow:

el partimage se encuentra en: root@emanuel-desktop:/home/emanuel
:idea:

espero que me ayudes porque ya estoy loco con esto.

por **explorer** » 2011-07-03 19:03 @835

El programa, ¿se ejecutará desde Windows o desde Linux? Como comentas que el partimage está en /home/manuel, supongo que será desde Linux.

¿A qué dispositivo /dev/ corresponden las particiones E: y F:? ¿En qué dispositivo y partición está el Ubuntu?

Foro - Perl en Español

Rotación de ficheros de imágenes

Rotación de ficheros de imágenes

Publicidad

Re: Rotación de ficheros de imágenes

como puedo realizar este script??????

Re: Rotación de ficheros de imágenes

Re: Rotación de ficheros de imágenes

Re: Rotación de ficheros de imágenes

Me da erro por que?

Re: Rotación de ficheros de imágenes

Re: Rotación de ficheros de imágenes

Re: Rotación de ficheros de imágenes

¿Quién está conectado?