Foro - Perl en Español

por **Eowyn** » 2013-05-02 04:29 @228

Hola, aquí paro de nuevo.

Tengo una parte de código que quiero convertir en subprograma, es ésta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        my $ADI = 0;
        my @array = ('"wid="w1"', 'wid="w2"');
        my $lerroADI= 'wid="w1"';
        for my $ADIa (@array) {
                if ($lerroADI eq $ADIa) {
 
                        $ADI=1;
                last;
                }
        }
        print "$ADI";
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Lo primero es que no me devuelve nunca "1", siempre "0", aunque como se puede ver en el array sí que está wid="w1".

La otra y no por ello menos importante, es que no sé qué hacer con las comillas simples. Quiero convertir ese cacho en un subprograma que haga algo así:

1.- Recibir una línea de archivo por parámetro (lo que en el código de arriba sería $lerroADI

2.- Comparar esa línea con lo que hay dentro del array que le corresponde para ver si esa línea existe en el vector(me da igual dónde, sólo que esté es importante)

3.- Si está devuelve 1; si no está devuelve 0.

El caso es que en el primer paso, el parámetro que recibiría es algo así: <term tid="t549" type="open" lemma="itxi" pos="V.ADI-SIN">

Pero si esa línea no está entre 'comillas simples' no me la interpreta bien. Por tanto, mis preguntas son dos: ¿por qué siempre devuelve 0? y ¿cómo hago para guardar la línea que recibo como parámetro en una variable y que la interprete como si estuviera entrecomillada?

Muchas gracias :roll:

En cuanto a las comillas... las reglas son sencillas: si entrecomillas con comillas simples, lo que pongas dentro será literal. Si lo haces con comillas dobles, será interpretado (variables y demás). Si tienes que entrecomillar cosas que tengan comillas dobles, usa simples. Si son simples, usa dobles

En caso de duda, usa q() para el entrecomillado simple y qq() para el entrecomillado doble. Excepciones a estas reglas: la presencia de una comilla de igual signo que las comillas delimitadoras. En ese caso, se puede poner un escape '\' delante de ella. Aunque en este caso... es siempre mejor usar q() o qq().

por **Eowyn** » 2013-06-04 03:03 @169

Hola, comprendo lo que me explica, pero mi problema con las comillas es otro.

Si yo meto un archivo por teclado, leo la primera línea y esa línea la guardo en una variable, la línea no me la guarda entre comillas, me la guarda tal y como viene y por tanto no me la interpreta.

Así, no puedo pasar esa línea para que la compare directamente con el array, tendría que hacer un paso intermedio para que tal y como llega se guarde en la variable entre comilas simples, para que así al usar esa variable en la interpretación, pueda se interpretada.

No sé si me explico bien...

por **explorer** » 2013-06-04 04:04 @211

Eowyn escribiste:Hola, comprendo lo que me explica, pero mi problema con las comillas es otro.

Si yo meto un archivo por teclado, leo la primera línea y esa línea la guardo en una variable, la línea no me la guarda entre comillas, me la guarda tal y como viene y por tanto no me la interpreta.

Eso es lógico: Perl guarda lo que lee. No sabe que tiene que hacer algo extra si no se lo decimos.

Eowyn escribiste:Así, no puedo pasar esa línea para que la compare directamente con el array, tendría que hacer un paso intermedio para que tal y como llega se guarde en la variable entre comilas simples, para que así al usar esa variable en la interpretación, pueda ser interpretada.

Ya me perdí...

¿Puedes poner un ejemplo?

Edito: Supongamos que recibimos esta línea desde el archivo:

<term tid="t549" type="open" lemma="itxi" pos="V.ADI-SIN">

Entonces es eso justo lo que guardamos en la variable:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $linea = '<term tid="t549" type="open" lemma="itxi" pos="V.ADI-SIN">';   # pongo comillas simples, porque es una cadena literal
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

a partir de ahí puedo comparar o buscar por partes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($linea eq '<term tid="t549" type="open" lemma="itxi" pos="V.ADI-SIN">') {
    say "Son iguales";
}
 
if ($linea =~ /lemma="itxi"/) {
    say "Contiene el lema [itxi]";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Eowyn** » 2013-06-04 05:25 @267

La verdad es que es difícil de explicar... :oops:

El problema aparece entre recibir la línea del archivo y que la variable la recoja. Es decir:

Leo del archivo una línea con la siguiente forma:

<Hola, espero que "todo" vaya bien!>

La quiero guardar en la variable $línea, así que haría algo así:

$línea=<leer primera línea del archivo>

Entonces si hiciera print $línea vería que tengo en realidad esto

$línea= Hola, espero que "todo" vaya bien!

Como Hola, espero que "todo" vaya bien! no entra a $linea entrecomillado, como bien señalas, no puedo usar $linea para comparar con lo que hay dentro del array, porque lógicamente no lo entiende ya que recibe Hola, espero que "todo" vaya bien! en lugar de recibir 'Hola, espero que "todo" vaya bien!'

Tengo que hacer esa comparación con miles de líneas del archivo.

por **explorer** » 2013-06-04 06:44 @322

¡Vaya lío te has hecho!

Las comillas que usas en Perl, como delimitadores de cadenas de caracteres, nunca pertenecen al contenido que delimitan.

Si usamos las comillas es para delimitar una zona del programa como una serie de caracteres literales.

Cuando leemos algo desde un archivo, la línea se lee tal cual del archivo, sin modificaciones (exceptuando si está activa una capa de PerlIO).

Entonces solo queda hacer una simple comparación...

Código: Seleccionar todo: > cat kk.txt <Hola, espero que "todo" vaya bien!>

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use autodie;
 
my $ADI;
my @array = (
    '<Hola, espero que "todo" vaya bien!>',             # En el array se guarda esa cadena de caracteres
);
 
open my $ARCHIVO, '<', 'kk.txt';
 
while (my $lerroADI = <$ARCHIVO>) {
    chomp $lerroADI;
 
    for my $ADIa (@array) {
        if ($lerroADI eq $ADIa) {
            $ADI = 1;
            last;
        }
    }
}
 
if ($ADI) {
    say "Encontrado en la línea $.";
}
 
close $ARCHIVO;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Eowyn** » 2013-06-11 05:18 @263

Sííííí, efectivamente me he hecho un lío, pero ya va mucho mejor. Sólo me da lo de "not a glob reference" que voy a investigarlo por el foro para no darte más trabajo.

Muchas gracias. Por Navidad debería enviarte un jamón o algo así :roll:

por **explorer** » 2013-06-11 06:36 @317

Eowyn escribiste:Por Navidad debería enviarte un jamón o algo así

Si me encuentras un puesto de trabajo, el jamón te lo envío yo

por **Eowyn** » 2013-07-10 04:33 @231

Bueno, en Valladolid no parece haber mucho, pero si miras en opcionempleo.com ¡hay varios puestos para Perl en Barcelona! De lo malo, malo, puedes hacerte autónomo y ayudar previo pago a gente incapaz de acabar su proyecto de fin de carrera (como yo, por ejemplo :oops:

) ¡Ánimo!

Foro - Perl en Español

Problema tonto con comillas

Problema tonto con comillas

Publicidad

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

Re: Problema tonto con comillas

¿Quién está conectado?