Un saludo a todos.
Estoy haciendo unos sencillos ejercicios de criptografía gracias a Perl y en los cifrados por sustitución me encuentro con el problema de los caracteres no ASCII.
He tanteado el problema del soporte a utf-8 en un script para establecer la frecuencia de los caracteres que aparecen en una cadena con cierto éxito. El código es el siguiente:
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use Encode;
my @mcifra = split ...
-
- Publicidad
Fecha actual 2024-11-26 11:50 @535
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Consumo de WebService
Estimados,
Estoy programando un cliente para un webservice muy simple. uso las librerías SOAP::Lite.
El webservice recibe la cadena que envío y me responde la cadena más un literal.
Si la cadena es NULL me responde: "error; cadena vacía".
El problema que tengo es que siempre que le mando un dato, me responde que la cadena esta vacía.
Les adjunto el código, el esquema del webservice, y la salida.
¿Me pueden decir qué estoy haciendo ...
Estoy programando un cliente para un webservice muy simple. uso las librerías SOAP::Lite.
El webservice recibe la cadena que envío y me responde la cadena más un literal.
Si la cadena es NULL me responde: "error; cadena vacía".
El problema que tengo es que siempre que le mando un dato, me responde que la cadena esta vacía.
Les adjunto el código, el esquema del webservice, y la salida.
¿Me pueden decir qué estoy haciendo ...
Read more : Consumo de WebService | Vistas : 1806 | Respuestas : 1 | Foro : Intermedio
Ayuda con regex
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á ...
$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á ...
Read more : Ayuda con regex | Vistas : 1028 | Respuestas : 5 | Foro : Básico
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 : 1374 | 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 : 1018 | 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 : 950 | 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 : 1816 | 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 : 2827 | Respuestas : 3 | Foro : Juegos
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 : 2691 | Respuestas : 17 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36882 • Temas totales 7430 • Usuarios totales 1981