Foro - Perl en Español

por **boteropepe** » 2011-01-19 08:05 @378

Hola, necesito hacer un programa muy parecido a otro para el que también pedí ayuda aquí: lo que quiero es tomar de un fichero solamente lo que aparece entre comillas dobles, tras 'sent:'

TEXTO:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

sent: "todo lo que quiero

es que

esto se quede

como está"

Blabla bla bla bla bla

sent: "estos son los

datos

del problema"

Bla bla bla bla bla bla bla

sent: "no estoy de acuerdo"Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De momento, lo que he hecho es esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
# use strict;
# use warnings;
 
my $in_pattern = 0;
 
while (<>) {
 
  if ($_ =~ /sent:\s*"/) {
    $in_pattern = 1;
  } elsif ($_ =~ /"/) {
    $in_pattern = 0;
  }
 
  if ($in_pattern) {
    print "$_\n";
  }
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Entiendo perfectamente por qué así la última línea (la de las comillas de cierre) no se imprima. Lo que pasa es que no sé si existe algo que me permita abordar el problema de esta forma, haciendo que también se imprima la línea de las comillas de cierre, o si lo que debería es hacer otra cosa.

Muchas gracias.

#!/usr/bin/perl
use common::sense;
use File::Slurp;
 
my $fichero = read_file('kk.txt');
 
while ($fichero =~ /sent: "(.+?)"/gosm) {
 
    say "[$1]";
}
 
__END__
[todo lo que quiero
es que
esto se quede
como está]
[estos son los
datos
del problema]
[no estoy de acuerdo]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Usamos las opciones /s y /m para indicar que $fichero está compuesto de varias líneas, y con la /g, buscamos de forma repetida todos los patrones de coincidencia.

por **boteropepe** » 2011-01-20 10:29 @479

Muchas gracias, pero ¿cómo lo podría hacer sin utilizar esas librerías?
Probé así, pero tampoco funciona (solo se imprime la primera ocurrencia):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
use strict;
use warnings;
 
undef $/;
 
while (<>) {
 
  if ($_ =~ /sent: ("[^"]*")/gosm) {
    print "[$1]\n";
  }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-20 12:40 @569

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
undef $/;
 
my $fichero = <>;
 
while ($fichero =~ /sent: ("[^"]*")/gosm) {
    print "[$1]\n";
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Al indefinir $/, con solo una lectura del fichero ya lo tenemos todo cargado, por lo que no necesitamos hacer un bucle por las líneas. Luego sí necesitamos usar un bucle para que la opción /g nos encuentre todas las ocurrencias, dentro del $fichero.

por **boteropepe** » 2011-01-20 14:08 @630

Muchas gracias por la explicación, no sabía si lo podía hacer así (y era que no).

Foro - Perl en Español

Imprimir desde un punto hasta otro en un texto

Imprimir desde un punto hasta otro en un texto

Publicidad

Re: imprimir desde un punto hasta otro en un texto

Re: Imprimir desde un punto hasta otro en un texto

Re: Imprimir desde un punto hasta otro en un texto

Re: Imprimir desde un punto hasta otro en un texto

¿Quién está conectado?