Acudo nuevamente debido a que ya agoté todas mis posibilidades (Googlear hasta casi morir), tengo lo siguiente en una línea:
$string='TEXTO ANTES DE LO QUE NECESITO CAMBIAR +chr(13)+ Y AQUÍ PUEDE IR O NO TEXTO.'
Eso necesito cambiarlo por +chr(13)+ encerrado entre comillas simples.
$string='TEXTO ANTES DE LO QUE NECESITO CAMBIAR '+chr(13)+' Y AQUÍ PUEDE IR O NO TEXTO.'
Desarrollé la siguiente exp. reg. que sí me encuentra el +chr(13)+ (supongo que está ...
-
- Publicidad
Fecha actual 2025-01-01 01:11 @091
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Sacar todos los enlaces de una página
Hola, estoy queriendo hacer una expresión regular en Perl para extraer todos los enlaces porque la voy a usar en Delphi y no puedo usar HTML::LinkExtor que tiene Perl al regalarme todos los enlaces.
Había hecho algo así:
if($code=~/http\:\/\/(.*?)\//) {
print "http://".$1;
}
Pero mi exp. reg. no ayudó en mucho con el tema de los espacios. ¿ Alguien me podría ayudar ?
Había hecho algo así:
if($code=~/http\:\/\/(.*?)\//) {
print "http://".$1;
}
Pero mi exp. reg. no ayudó en mucho con el tema de los espacios. ¿ Alguien me podría ayudar ?
Read more : Sacar todos los enlaces de una página | Vistas : 1398 | Respuestas : 7 | Foro : Básico
Brindar argumentos en bandeja a otro script
Buenas, compañeros. :D Abro este hilo con motivo de consulta.
Resulta que cuento con un script que procesa unos productos y en base a ellos devuelve unas estadísticas (numeritos) finales. Numeritos los cuales deseo tomar desde otro script para simplemente embeberlo en unas tablas y sean más lindos a la vista que por terminal :shock: , puesto que ...
Resulta que cuento con un script que procesa unos productos y en base a ellos devuelve unas estadísticas (numeritos) finales. Numeritos los cuales deseo tomar desde otro script para simplemente embeberlo en unas tablas y sean más lindos a la vista que por terminal :shock: , puesto que ...
Read more : Brindar argumentos en bandeja a otro script | Vistas : 1039 | Respuestas : 5 | Foro : Básico
Descarga de archivos
Hola, tengo una duda...
La situación es que no puede hacer un cgi que se descarge un archivo ZIP.
Básicamente lo que deseo es que un archivo en el servidor llamado:
Miarchivo.abc
que en realidad es un archivo "programa.zip"... sea mandado como tal...
Uso lo siguiente
#!/usr/bin/perl
print "content-type: application/zip\n\n";
open Archivo, "Miarchivo.abc";
while (<Archivo>){
Print;
}
close Archivo;
El navegador sí despliega la ventana de descargar archivo, pero manda un archivo de longitud ...
La situación es que no puede hacer un cgi que se descarge un archivo ZIP.
Básicamente lo que deseo es que un archivo en el servidor llamado:
Miarchivo.abc
que en realidad es un archivo "programa.zip"... sea mandado como tal...
Uso lo siguiente
#!/usr/bin/perl
print "content-type: application/zip\n\n";
open Archivo, "Miarchivo.abc";
while (<Archivo>){
Print;
}
close Archivo;
El navegador sí despliega la ventana de descargar archivo, pero manda un archivo de longitud ...
Read more : Descarga de archivos | Vistas : 967 | Respuestas : 2 | Foro : Básico
Agrupar elementos procedentes de diferentes líneas
Hola, tengo un problema, quizás muy básico, pero que no consigo resolver. Y estaba pensando que seguro que existe algún módulo para resolverlo fácilmente.
El problema es el siguiente. Tengo varias líneas con elementos separados por tabuladores:
X Y Z W
X1 Y1 Z1 W1
X2 Z2 W2
X3 Y2 Z3
X2 Z4 W2
X2 Z4 W3
Los ficheros tienen varios megas, pero tienen el formato que muestro en el ejemplo. A veces no se ...
El problema es el siguiente. Tengo varias líneas con elementos separados por tabuladores:
X Y Z W
X1 Y1 Z1 W1
X2 Z2 W2
X3 Y2 Z3
X2 Z4 W2
X2 Z4 W3
Los ficheros tienen varios megas, pero tienen el formato que muestro en el ejemplo. A veces no se ...
Read more : Agrupar elementos procedentes de diferentes líneas | Vistas : 1848 | Respuestas : 3 | Foro : Bioinformática
Petris: una versión de Tetris en Perl/Tk
Aunque está la noticia en alemán, hay un vídeo donde se puede ver el juego.
Read more : Petris: una versión de Tetris en Perl/Tk | Vistas : 2857 | Respuestas : 3 | Foro : Juegos
YAPC::Brasil::2013
Ya está publicado el calendario de eventos y conferencias de la YAPC::Brasil de este año, que se celebrará los días 15 y 16 de noviembre.
«Este año nos fijaremos en promover diálogo y colaboración entre los desarrolladores Perl y profesionales de otras áreas del conocimiento relacionadas con diferentes áreas científicas, ofreciendo charlas y debates sobre el estado del arte, prácticas y tecnologías dirigidas al procesado, almacenamiento, compartición, análisis y visualización de datos científicos.»
«Este año nos fijaremos en promover diálogo y colaboración entre los desarrolladores Perl y profesionales de otras áreas del conocimiento relacionadas con diferentes áreas científicas, ofreciendo charlas y debates sobre el estado del arte, prácticas y tecnologías dirigidas al procesado, almacenamiento, compartición, análisis y visualización de datos científicos.»
Read more : YAPC::Brasil::2013 | Vistas : 1206 | Respuestas : 0 | Foro : Noticias de Perl
XML-CGI
Hola, buenas tardes. Uso un html conteniendo un calendario:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
<title>SIFAMEP CALENDAR</title>
<!-- link calendar resources -->
<link rel="stylesheet" type="text/css" href="tcal.css" />
<script type="text/javascript" src="tcal.js"></script>
</head>
<body>
<form action="#">
<!-- add class="tcal" to your input field -->
<div><input type="text" name="fecha_sale" class="tcal" value="" /></div>
</form>
</body>
</html>
Paso lo anterior a un programa CGI en Perl y no muestra ...
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="application/xhtml+xml; charset=utf-8" />
<title>SIFAMEP CALENDAR</title>
<!-- link calendar resources -->
<link rel="stylesheet" type="text/css" href="tcal.css" />
<script type="text/javascript" src="tcal.js"></script>
</head>
<body>
<form action="#">
<!-- add class="tcal" to your input field -->
<div><input type="text" name="fecha_sale" class="tcal" value="" /></div>
</form>
</body>
</html>
Paso lo anterior a un programa CGI en Perl y no muestra ...
Filtrar archivos METAR
Hola, compañeros, tengo una duda.
El siguiente código me abre un fichero y elimina las palabras que no deseo, por ejemplo NOSIG, AUTO o 9999.
Esto lo hace correctamente, son cadenas fijas.
#!/usr/local/bin/perl
my $replacestring = "AUTO";
my $replacestring2 = "9999";
my $replacestring3 = "NOSIG";
#my $replacestring4 = "*V*";
open(my $infile,"<","metars.csv") or die $!;
open (my $outfile,">","outmetars.csv") or die $!;
while (<$infile>)
{
$_=~s/$replacestring//g;
$_=~s/$replacestring2//g;
$_=~s/$replacestring3//g;
# $_=~s/$replacestring4//g;
print $outfile $_;
}
close $infile; ...
El siguiente código me abre un fichero y elimina las palabras que no deseo, por ejemplo NOSIG, AUTO o 9999.
Esto lo hace correctamente, son cadenas fijas.
#!/usr/local/bin/perl
my $replacestring = "AUTO";
my $replacestring2 = "9999";
my $replacestring3 = "NOSIG";
#my $replacestring4 = "*V*";
open(my $infile,"<","metars.csv") or die $!;
open (my $outfile,">","outmetars.csv") or die $!;
while (<$infile>)
{
$_=~s/$replacestring//g;
$_=~s/$replacestring2//g;
$_=~s/$replacestring3//g;
# $_=~s/$replacestring4//g;
print $outfile $_;
}
close $infile; ...
Read more : Filtrar archivos METAR | Vistas : 2740 | Respuestas : 17 | Foro : Básico
Problema con print
Tengo un problema con este código:
print " test : ";
for my $num ( reverse 1 .. 5 ) {
print "$num.. ";
sleep 1;
}
Mi idea es que se muestre así
test : 5.. 4.. 3.. 2.. 1..
cada uno acá un segundo, pero el problema es que se muestra todo mal, primero el print() con test aparece al final; y segundo que el script tarda los 5 segundos ...
print " test : ";
for my $num ( reverse 1 .. 5 ) {
print "$num.. ";
sleep 1;
}
Mi idea es que se muestre así
test : 5.. 4.. 3.. 2.. 1..
cada uno acá un segundo, pero el problema es que se muestra todo mal, primero el print() con test aparece al final; y segundo que el script tarda los 5 segundos ...
Read more : Problema con print | Vistas : 831 | Respuestas : 2 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981