Re: valor octal de los permisos

[Vicente Barba <r00ted@retemail.es>]

Javier Fdz-Sanguino Pen~a wrote:
 
> Un script podría hacer algo así... a ver lo estoy probando... sí:
> 
> (me ha llevado un ratillo...)
> #!/usr/bin/perl
> while (<STDIN>)
> {
> $total=0;
> $orden=1;
> chomp;
> $linea=$_;
> while ( $trozo=substr($linea,-3)){
> print "My trozo es $trozo\n";
> if ($trozo =~/^r../) { $total=$total+4*$orden; }
> if ($trozo =~/^.w./) { $total=$total+2*$orden; }
> if ($trozo =~/^..x/) { $total=$total+1*$orden; }
> # Le quitamos el trozo
> $linea=substr($linea,0,-3); $orden=$orden*10;
> }
> print "El permiso vale en octal: $total\n";
> }
> exit 0;
> 

Muchas gracias por el script. Aunque buscaba algún paquete de Debian o
un script (del estilo al que dices), de modo que al programa le
pasaríamos como argumento el archivo y la respuesta sería el valor octal
de dicho archivo. Venía haciendo esto de cabeza, aunque es cierto que
con el script que propones es mucho más rápido, pero no permite pasar el
nombre del archivo como argumento. Supongo que sería muy fácil retocar
un poquito el script para que lo hiciera, pero yo de perl...

O sea, que hay por ahí algún programa que ya lo hace o se retoca tu
script.

sugerencias?

-- 
Vicente Barba <r00ted@retemail.es> -- Albacete [ES]
     100% LiNUX: http://personal1.iddeo.es/ret003u7  
     Debian GNU/Linux -- Usuario Registrado # 90822