Foro - Perl en Español

por **creating021** » 2008-01-01 20:29 @895

Buenas.

Tengo un programa que toma como argumento un path de X archivo ( perl miprograma.pl ../archivo.dat )

Eso es fácil de hacer ( por ARGV ) pero... ¿Que tal si ejecuto el programa con un pipe?

Algo como

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

cat ../archivo.dat |perl miprograma.plColoreado en 0.003 segundos,  usando GeSHi 1.0.8.4

¿Cómo trabajo con esto, cómo leo ese archivo?

Para poner esto más claro .. con <STDIN> lees del input estándart. Que significa del pipe

cat blah.txt | ./programa.pl

o del archivo mandado al stdin del proceso

./programa.pl < blah.txt

o del humano que está delante del compu. En el primero caso cada ves que acabas de leer un archivo obtienes un undef y si sigues a leer Perl abres el archivo siguiente.

Con <> lees de los archivos incluidos cuando lanzas la programa

./programa.pl archivo1.txt archivo2.txt

o del pipe o archivo mandado al stdin o el humano.

por **creating021** » 2008-01-02 12:13 @550

Qué hago si quero usar el STDIN así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

cat ../archivo.dat |perl miprograma.pl

miprograma.pl: El archivo.dat está corrupto, desea  eliminarlo? [Y|n] y
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Cómo leo ese "y" o ese "n" si estoy usando el STDIN para leer el archivo?

por **explorer** » 2008-01-02 15:14 @676

Si esa pregunta sale en pantalla hacia el usuario, en mitad de la lectura del fichero que entra por la entrada estándar, no podrás distinguir lo que recibes del fichero de lo que te responda el usuario.

Pero sí si has consumido todo el fichero. Deberás usar la función clearerr(), según indica el perlfaq8, Why can't my script read from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)?

por **creating021** » 2008-01-02 16:58 @748

Hmmm... está bien, pero no puedo leer todo el archivo de una sola vez.

Intenté abrir la tty y leer la entrada, pero al crear el pipe desde la terminal el programa no está corriendo desde el dispositivo ( obvio, está corriendo en el pipe ¿O no es eso? ).

Si puedo leer la tty, este problema será historia.

por **explorer** » 2008-01-02 17:12 @758

¿Y no es más fácil hacer

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

perl miprograma.pl archivo.datColoreado en 0.002 segundos,  usando GeSHi 1.0.8.4

?
Así sabes qué fichero tienes que procesar y te queda la entrada estándar para preguntar al usuario.

por **creating021** » 2008-01-02 17:27 @768

Sí, lo es, pero no para el que programa en shell y tiene que usar grep o cualquier otro comando.

Lo que quiero hacer es un lector de documentos... la idea es que se pueda ejecutar como less o more.

por **explorer** » 2008-01-02 17:41 @778

¡Hey! ¡Estamos en Perl! ¡Casi todo ya está hecho!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use Term::Pager;

my$t= Term::Pager->new( rows => 25, cols => 80 );
$t->add_text($text);
$t->more();Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Hay más módulos en CPAN. Busca por 'pager'.

Foro - Perl en Español

Usar un pipe como argumento

Usar un pipe como argumento

Publicidad

¿Quién está conectado?