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