Foro - Perl en Español

por **maxkcr** » 2011-05-12 08:51 @410

Hola, les cuento de que se trata:

Soy nuevo con Perl, tengo un script para subir archivos pesados (pueden ser de varios GB) a un servidor web (una nube) escrito en bash. No lo escribí yo pero lo estuve retocando para agregarle funcionalidades.

Ahora necesito hacer lo mismo pero con un script de Perl y la función que se encarga de subir los archivos me está dando problemas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

upload() 
{
  local COUNT=$(((SIZE - OFFSET + CHUNK - 1)/CHUNK))
  echo -n "Uploading $COUNT chunks of $CHUNK bytes: "
  dd bs=$CHUNK count=0 skip=$((OFFSET/CHUNK)) 2>/dev/null
  for ((OFFSET = OFFSET/CHUNK; OFFSET*CHUNK < SIZE; OFFSET++)); do
    head -c $CHUNK | curl -v -v -v --data-binary @- -K <(echo "$CSUSR") -f -s -H 'Content-Type: application/octet-stream' -H 'Content-Encoding: tar-gzip' -H 'Expect:' "${CSURI}drives/$DRIVE/write/$((OFFSET*CHUNK))"
    [ $? -eq 0 ] && echo -n . && continue || echo E
    cat <<EOF >&2
Failed to write chunk $OFFSET of $COUNT: aborting
Restart with '-d $DRIVE -o $((OFFSET*CHUNK))' to resume the upload
EOF
    exit 1
  done
  echo " ------------------- Upload completed -------------------"
}
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Por favor, si alguien me puede dar una mano y decirme cómo hago esto mismo en Perl se los agradecería muchísimo.

Veo que hay llamadas a funciones externas, probé usar system("[comandos]") y $variable=`[comandos]` para ejecutarlas desde Perl pero no obtengo resultados.

Saludos

sub upload {
    local $COUNT = ($SIZE - $OFFSET + $CHUNK - 1)/$CHUNK;
    print "Uploading $COUNT chunks of $CHUNK bytes: ";
    system("dd bs=$CHUNK count=0 skip=$((OFFSET/CHUNK)) 2>/dev/null");
    for ($OFFSET = $OFFSET/$CHUNK; $OFFSET*$CHUNK < $SIZE; $OFFSET++) {
        system("head -c $CHUNK | curl -v -v -v --data-binary @- -K <(echo \"$CSUSR\") -f -s -H 'Content-Type: application/octet-stream' -H 'Content-Encoding: tar-gzip' -H 'Expect:' \"${CSURI}drives/$DRIVE/write/$((OFFSET*CHUNK))\" ");
        if ( $? == 0 ) {
            print '.';
        }
        else {
            print 'E';
            print STDERR <<EOF;
Failed to write chunk $OFFSET of $COUNT: aborting
Restart with '-d $DRIVE -o $((OFFSET*CHUNK))' to resume the upload
EOF
        exit 1;
        }
    }
    print " ------------------- Upload completed -------------------\n";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Es obvio que se pueden eliminar las llamadas externas a dd y curl, pero eso puede llevar más tiempo.

por **maxkcr** » 2011-05-12 09:55 @455

Muchas gracias, yo he hecho algo parecido y no ha funcionado hasta ahora. Voy a revisar ambas versiones buscando las diferencias a ver qué sucede.

por **maxkcr** » 2011-05-12 11:47 @532

La función me quedo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub upload()
{
   $CHUNK=4194304;
   $OFFSET=0;
 
   local $COUNT=(($SIZE - $OFFSET + $CHUNK - 1)/$CHUNK);
   print "Uploading $COUNT chunks of $CHUNK bytes: \n";
   system("dd bs=$CHUNK count=0 skip=$((OFFSET/CHUNK)) 2>/dev/null");
   for ($OFFSET = $OFFSET/$CHUNK; $OFFSET*$CHUNK < $SIZE; $OFFSET++)
   {
      system("head -c $CHUNK | curl -v -v -v --data-binary @- -K <(echo \"$CSUSR\") -f -s -H 'Content-Type: application/octet-stream' -H 'Content-Encoding: tar-gzip' -H 'Expect:' \"${CSURI}drives/$DRIVE/write/$((OFFSET*CHUNK))\" ");
      #[ $? -eq 0 ] && echo -n . && continue || echo E
      if ( $? == 0 ) 
      {
         print '.';
      }
      else 
      {
         print 'E';
         print STDERR <<EOF;
Failed to write chunk $OFFSET of $COUNT: aborting
Restart with '-d $DRIVE -o $((OFFSET*CHUNK))' to resume the upload
EOF
         exit 1;
      }
      print " ------------------- Upload completed -------------------\n";
   }
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

pero ahora recibo este mensaje de error:
Can't localize lexical variable $COUNT
en la línea correspondiente a la 6 en este extracto, ¿qué significa?

por **explorer** » 2011-05-12 12:41 @570

Quita "local", a ver...

por **pvaldes** » 2011-05-16 02:50 @160

y define $size ...

De todos modos yo lo reescribiría directamente. Jugar con dd sin especificar claramente origen y destino puede ser bastante peligroso, y más si anulas los mensajes de error, y hay muchos modos mejores de hacerlo.

dd bs=X count=0 skip=Y if=ORIGEN ? of=DESTINO? 2>/dev/null

Foro - Perl en Español

Necesito traducir una función de bash a Perl

Necesito traducir una función de bash a Perl

Publicidad

Re: Necesito traducir una función de bash a Perl

Re: Necesito traducir una función de bash a Perl

Re: Necesito traducir una función de bash a Perl

Re: Necesito traducir una función de bash a Perl

Re: Necesito traducir una función de bash a Perl

¿Quién está conectado?