Hola,
¿Es posible meter un AND en una expresión regular? Me explico con un ejemplo:
Supongamos que quiero comprobar que en la variable $var existe la subcadena "si" y "no". Con dos expresiones regulares sería:
if ($var =~ /si/ && $var =~ /no/)
¿Se puede simplificar ese "if", haciendo dicha comprobación en una sola expresión regular? Hay que tener en cuenta que podría aparecer el "si" antes del "no" y viceversa.
¡Gracias!
-
- Publicidad
Fecha actual 2025-01-15 07:42 @362
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.Cómo extraigo un email completo de un código fuente
Hi!
Ando flojeando con las expresiones regulares y no sé cómo extraer un email de un código fuente.
La duda es cómo identificar cualquier email de cualquier página e ir guardándolo en un log.
ejemplo: [email protected]
Ando flojeando con las expresiones regulares y no sé cómo extraer un email de un código fuente.
La duda es cómo identificar cualquier email de cualquier página e ir guardándolo en un log.
ejemplo: [email protected]
Read more : Cómo extraigo un email completo de un código fuente | Vistas : 636 | Respuestas : 5
Convertir URL a otra
Hi!
Me he dado cuenta de que mi nivel en Perl es bajísimo y no me da vergüenza decirlo.
Ya posteé éste en Intermedio pero necesito un script básico en Perl, para convertir esta URL
http://www.bullcariez.es/index1.php?id= ... ,2,3,4,5,6
a esta
http://www.bullcariez.es/index1.php?id=
terminando la URL en ?id=
Disculpa y adiós.
Me he dado cuenta de que mi nivel en Perl es bajísimo y no me da vergüenza decirlo.
Ya posteé éste en Intermedio pero necesito un script básico en Perl, para convertir esta URL
http://www.bullcariez.es/index1.php?id= ... ,2,3,4,5,6
a esta
http://www.bullcariez.es/index1.php?id=
terminando la URL en ?id=
Disculpa y adiós.
Read more : Convertir URL a otra | Vistas : 2782 | Respuestas : 1
Extracción de datos de una variable
Saludos a todos,
Esta es mi primera participación en un foro. Soy nuevo en el manejo de Perl, y tengo esta situación:
tengo un archivo CGI en el cual recibo por POST un texto correspondiente a un archivo .mol (donde se encuentran datos de moléculas) como este:
MOLECULE=353;CONFORMATION=0;
21 23 0 0 0 0 0 0 0 0999 V2000
-0.3756 0.2209 0.0342 N 0 0 0 0 0 0 0 0 0 0 0 0 ...
Esta es mi primera participación en un foro. Soy nuevo en el manejo de Perl, y tengo esta situación:
tengo un archivo CGI en el cual recibo por POST un texto correspondiente a un archivo .mol (donde se encuentran datos de moléculas) como este:
MOLECULE=353;CONFORMATION=0;
21 23 0 0 0 0 0 0 0 0999 V2000
-0.3756 0.2209 0.0342 N 0 0 0 0 0 0 0 0 0 0 0 0 ...
Read more : Extracción de datos de una variable | Vistas : 480 | Respuestas : 3
Perl, CGI y Template Toolkit
Hola a todos, acá les muestro un ejemplo de como empezar a trabajar con perl-cgi y Template Toolkit.
Lo primero que debemos hacer es crear el template que guardaremos en la misma carpeta que el archivo .pl.
template.tt2 (Preferiblemente puedes omitir la extensión tt2).
<html>
<head><title>Carta para </title></head>
<body>
<p>Gente de , su atención por favor.</p>
<p>Soy el Capitan , que destruiré su planeta</p>
<form action="/formu.html" method="POST">
<input type="submit" value="Volver">
</form>
</body>
</html>
Seguido creamos ...
Lo primero que debemos hacer es crear el template que guardaremos en la misma carpeta que el archivo .pl.
template.tt2 (Preferiblemente puedes omitir la extensión tt2).
<html>
<head><title>Carta para </title></head>
<body>
<p>Gente de , su atención por favor.</p>
<p>Soy el Capitan , que destruiré su planeta</p>
<form action="/formu.html" method="POST">
<input type="submit" value="Volver">
</form>
</body>
</html>
Seguido creamos ...
Read more : Perl, CGI y Template Toolkit | Vistas : 594 | Respuestas : 2
Cálculos estadísticos a partir de un número
Hola, soy nuevo en el foro y en el tema de la programación.
Tengo un problema respecto a un programa que debo programar para un trabajo, el cual debe reconocer un número ingresado como palíndromo, y a partir de este número, debe encontrar la moda, ordenar de mayor a menor y dar el máximo y el mínimo de los elementos del palíndromo que se ingrese.
He logrado avanzar algo en él, sin embargo hay algo ...
Tengo un problema respecto a un programa que debo programar para un trabajo, el cual debe reconocer un número ingresado como palíndromo, y a partir de este número, debe encontrar la moda, ordenar de mayor a menor y dar el máximo y el mínimo de los elementos del palíndromo que se ingrese.
He logrado avanzar algo en él, sin embargo hay algo ...
Read more : Cálculos estadísticos a partir de un número | Vistas : 926 | Respuestas : 6
Falta un registro en la lectura de un fichero
¿Qué tal...? Tengo un problema con mi programa... Ya que hace lo que tiene que hacer... pero no me hace el ciclo completo... Este es mi código:
#!usr/bin/perl
use strict;
use BeginPerlBioinfo;
open (my $fh, $ARGV) or die "Error al pedir el Archivo.\n";
#Declaracion e iniciacion de variables
my $record;
my $dna;
my $annotation;
my %fields;
my $library = $fh;
while (<$fh>)
{
$record = get_next_record($fh);
#Parseo se secuencia y anotacion
($annotation, $dna) = get_annotation_and_dna($record); ...
#!usr/bin/perl
use strict;
use BeginPerlBioinfo;
open (my $fh, $ARGV) or die "Error al pedir el Archivo.\n";
#Declaracion e iniciacion de variables
my $record;
my $dna;
my $annotation;
my %fields;
my $library = $fh;
while (<$fh>)
{
$record = get_next_record($fh);
#Parseo se secuencia y anotacion
($annotation, $dna) = get_annotation_and_dna($record); ...
Read more : Falta un registro en la lectura de un fichero | Vistas : 979 | Respuestas : 8
Varios arrays como parámetros a función
Si ejecuto esto...
#!/usr/bin/perl
use List::Util qw (sum);
use strict;
sub funcion
{
my ($dato) = $_;
my (@vector1) = $_;
my (@vector2) = $_;
print $dato."\n\n";
foreach (@vector1)
{
print $_."\n";
}
print "\n";
foreach (@vector2)
{
print $_."\n";
}
print "\n";
}
my $valor = "BIEN";
my @array1 = (
"hello",
"my",
"dear",
"friend"
);
my @array2 = (
">hola",
">que",
">tal",
">estas"
);
funcion($valor,@array1,@array2);
... obtengo esto ...
... ...
#!/usr/bin/perl
use List::Util qw (sum);
use strict;
sub funcion
{
my ($dato) = $_;
my (@vector1) = $_;
my (@vector2) = $_;
print $dato."\n\n";
foreach (@vector1)
{
print $_."\n";
}
print "\n";
foreach (@vector2)
{
print $_."\n";
}
print "\n";
}
my $valor = "BIEN";
my @array1 = (
"hello",
"my",
"dear",
"friend"
);
my @array2 = (
">hola",
">que",
">tal",
">estas"
);
funcion($valor,@array1,@array2);
... obtengo esto ...
- Code: Seleccionar todo
BIEN
hello
my
... ...
Read more : Varios arrays como parámetros a función | Vistas : 1101 | Respuestas : 2
Contar ocurrencias
¿Qué tal...? Tengo un programa en el cual... voy a buscar una palabra.... pero esa palabra puede estar más de una vez.... ¿Cómo puedo hacerle para que me la cuente una sola vez?
Gracias...
Gracias...
Read more : Contar ocurrencias | Vistas : 3221 | Respuestas : 22
Error al compilar un programa Tk a exe
Hi!
Andaba queriendo compilar un programa que hice en Tk pero me da este error:
Espero que diga alguien cuál es el problema o qué módulo me falta porque al Tk sí lo tengo.
Andaba queriendo compilar un programa que hice en Tk pero me da este error:
- Code: Seleccionar todo
PLEASE SEE THE PERL2EXE USER MANUAL UNDER "Can't locate somemodule.pm in @INC"
FOR AN EXPLANATION OF THE FOLLOWING MESSAGE:
Can't locate Tk/Menu.pm in @INC (@INC contains: PERL2EXE_STORAGE C:\Perl\bin\Co
pilacion C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp/p2xtmp-1764 .) at PERL2EXE_STORAGE/
k/Widget.pm line 270.
at PERL2EXE_STORAGE/Tk/Widget.pm line 203
Espero que diga alguien cuál es el problema o qué módulo me falta porque al Tk sí lo tengo.
Read more : Error al compilar un programa Tk a exe | Vistas : 305 | Respuestas : 1
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981