El código:
Using perl Syntax Highlighting
- print "\n[+] Texto : ";
- chomp(my $texto = <STDIN>);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
¿ Se puede hacer esto ?
-
- Publicidad
Editar datos en un STDIN
4 mensajes
• Página 1 de 1
Editar datos en un STDIN
por BigBear » 2016-04-06 11:54 @537
Hola, tengo este código. Tengo pensado editar datos de una columna de una BD. Muestro los datos en el stdin y desde ahí lo edito y le doy Entrar teniendo todo editado. El tema es que no sé cómo hacer eso, no parece posible...
El código:
¿ Se puede hacer esto ?
El código:
¿ Se puede hacer esto ?
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Publicidad
Re: Editar datos en un STDIN
por explorer » 2016-04-06 16:24 @725
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
Re: Editar datos en un STDIN
por BigBear » 2016-04-07 10:19 @472
Ok, gracias por responder. Estoy tratando de hacerlo pero no sé dónde poner el texto por defecto para editar. Lo puse en $fake_line y antes del OUT pero aún así no logro el efecto deseado. También lo intenté poniendo en readline() pero en esa función no se puede editar.
El código:
¿ Cómo tendría que hacer ?
El código:
Using perl Syntax Highlighting
- use Term::ReadLine;
- my $fake_line = "bla bla bla";
- $term = Term::ReadLine->new("APP DESCRIPTION");
- $OUT = $term->OUT || *STDOUT;
- $term->addhistory($fake_line);
- my $line = $term->readline("Text : ");
- print $line;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
¿ Cómo tendría que hacer ?
- BigBear
- Perlero frecuente
- Mensajes: 981
- Registrado: 2009-03-01 18:39 @818
Re: Editar datos en un STDIN
por explorer » 2016-04-09 16:12 @717
Es complicado, porque depende de la biblioteca Term::ReadLine::* que tengas instalada. Quiero decir que Term::ReadLine no hace mucho por sí sola, así que lo que hace es llamar a Term::ReadLine::Perl o Term::ReadLine::Gnu o Term::ReadLine::Gnu::XS o cualquier otra que esté instalada.
Yo, por ejemplo, he instalado Term::ReadLine::Gnu, y sí que me permite poner un texto como tu quieres. Se trata de la característica 'preput'. Si está presente, entonces se puede llamar a readline() con un segundo argumento, que es el texto que queremos que el usuario reedite.
Yo, por ejemplo, he instalado Term::ReadLine::Gnu, y sí que me permite poner un texto como tu quieres. Se trata de la característica 'preput'. Si está presente, entonces se puede llamar a readline() con un segundo argumento, que es el texto que queremos que el usuario reedite.
Using perl Syntax Highlighting
- #!/usr/bin/env perl
- use v5.10.1; # vamos a usar say()
- #use Data::Dumper; # ver el contenido de algunas variables
- use Term::ReadLine; # cargamos la biblioteca genérica
- #say Dumper \%INC; # ver qué bibliotecas se han leído
- my $prompt = 'Text : ';
- my $fake_line = "bla bla bla";
- my $new_line;
- my $term = Term::ReadLine->new("App");
- #say Dumper $term->Attribs; # ver los atributos de los que disponemos
- #say Dumper $term->Features; # ver las características de las que disponemos
- # ver si es posible llamar a readline() con un segundo arg.
- if (not $term->Features->{'preput'}) {
- say "No existe la opción de 'preput'";
- $new_line = $term->readline($prompt);
- }
- else {
- $new_line = $term->readline($prompt, $fake_line);
- }
- say $new_line;
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14486
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
4 mensajes
• Página 1 de 1
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado