Te prometo que es la última pregunta que te hago
De verdad, muchísimas gracias.
-
- Publicidad
Contar ocurrencias
23 mensajes
• Página 2 de 3 • 1, 2, 3
por wampaier » 2009-06-22 12:42 @571
jajajaja.... ¿¿¿qué cosas ud.???... pero es que como te repito soy bastante nuevo en esto... De hecho estoy pensando en tomar un curso acerca de Perl... y de verdad tu ayuda me sirve de mucho... Ahora... una pregunta: ¿la función index() la puedo utilizar con <STDIN> para introducir la palabra que quiera buscar?
Te prometo que es la última pregunta que te hago
De verdad, muchísimas gracias.
Te prometo que es la última pregunta que te hago
De verdad, muchísimas gracias.
- wampaier
- Perlero nuevo
- Mensajes: 66
- Registrado: 2008-08-12 12:50 @576
Publicidad
por wampaier » 2009-06-22 12:59 @582
Te pregunto esto por que al momento que yo meto una palabra en la variable, mira, lo pongo de ejemplo con el código que me diste ahorita...
¿Por qué no me respeta la variable $busqueda?
Using perl Syntax Highlighting
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
open (my $fh, $ARGV[0]) || die "No puedo abrir el fichero: $!\n";
print "Palabra a buscar...!\n";
$busqueda = <STDIN> #en este caso puse "LOCUS"
my @registros;
{
local $/ = "//"; # Suponemos que // no aparece más que como separador de registros
@registros = <$fh>;
}
close file;
print "Leídos ", scalar @registros, " registros\n";
for (my $i = 0; $i < @registros; $i++) {
my $veces = () = $registros[$i] =~ /$busqueda/i;
print "La palabra aparece $veces veces en el registro $i de genbank.txt\n";
}
use strict;
use warnings;
use diagnostics;
open (my $fh, $ARGV[0]) || die "No puedo abrir el fichero: $!\n";
print "Palabra a buscar...!\n";
$busqueda = <STDIN> #en este caso puse "LOCUS"
my @registros;
{
local $/ = "//"; # Suponemos que // no aparece más que como separador de registros
@registros = <$fh>;
}
close file;
print "Leídos ", scalar @registros, " registros\n";
for (my $i = 0; $i < @registros; $i++) {
my $veces = () = $registros[$i] =~ /$busqueda/i;
print "La palabra aparece $veces veces en el registro $i de genbank.txt\n";
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
- Código: Seleccionar todo
Leídos 3 registros
La palabra lymphocyte aparece 0 veces en el registro 0 de genbank.txt
La palabra lymphocyte aparece 0 veces en el registro 1 de genbank.txt
La palabra lymphocyte aparece 0 veces en el registro 2 de genbank.txt
¿Por qué no me respeta la variable $busqueda?
- wampaier
- Perlero nuevo
- Mensajes: 66
- Registrado: 2008-08-12 12:50 @576
por explorer » 2009-06-22 13:45 @615
No le has quitado el retorno de carro a la variable $busqueda.
Hazle un chomp(), después de leerla.
Actualización: Hay un error en el código: donde dice close file; debe ser close $fh;
Hazle un chomp(), después de leerla.
Actualización: Hay un error en el código: donde dice close file; debe ser close $fh;
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
por explorer » 2009-06-22 15:41 @695
Fácil: es cuestión de poner una nueva variable que vaya sumando cuantas veces aparece, en cada una de los registros. Al final, ya sabes las veces que ha aparecido.
Según el código actual, lo podrías hacer en el último bucle, mientras vas sacando el número de veces por registro.
Según el código actual, lo podrías hacer en el último bucle, mientras vas sacando el número de veces por registro.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
-
explorer - Administrador
- Mensajes: 14480
- Registrado: 2005-07-24 18:12 @800
- Ubicación: Valladolid, España
23 mensajes
• Página 2 de 3 • 1, 2, 3
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado