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 <[EMAIL PROTECTED]> -- Albacete [ES]
100% LiNUX: http://personal1.iddeo.es/ret003u7
Debian GNU/Linux -- Usuario Registrado # 90822
