Foro - Perl en Español

¡¡¡Hola!!!

Quisiera saber cómo puedo implementar un servicio web en Perl.

Sé que necesito el SOAP::Lite pero sinceramente soy nueva en Perl y no sé cómo empezar.

Ojalá puedan ayudarme. Muchas gracias.

Hola amigos del foro, tengo el siguiente script que me descarga datos meteorológicos de altura de la siguiente forma:

807 115
88 16959 -77.5 335 13 392.2 392.2
86 17108 -77.1 330 16 395.1 395.1
78 17849 -75.3 25 3 410.1 410.1
74 18248 -74.3 130 12 418.3 418.3
71 18562 -73.6 115 26 424.9 424.9
70 18670 -73.3 125 23 427.2 427.2
66 19020 -72.4 130 21 436.4 436.4
63 19296 -71.7 105 15 ...

Tengo este código en PHP:

echo '<pre>';
$last_line = system('ls', $retval);
echo '
</pre>
<hr />Last line of the output: ' . $last_line . '
<hr />Return value: ' . $retval;
echo '<pre>';
$last_line = system('prueba.pl', $retval);
echo '
</pre>
<hr />Last line of the output: ' . $last_line . '
<hr />Return value: ' . $retval;

Y me devuelve esto:

prueba.pl
prueba.pl~

--------------------------------------------------------------------------------
Last line of the output: prueba.pl~
--------------------------------------------------------------------------------
Return value: 0 ...

Hola.

Ando buscando un módulo para hacer efectos marquesina como el siguiente código pero en
batch.

@echo off
title Efecto de Marquesina
SETLOCAL ENABLEDELAYEDEXPANSION
:ini
set /p texto="Texto a Mostrar: > "
if not defined texto goto ini
set v=%texto%
call :string %v%
REM Obtenemos el Tama?o de Pantalla
for /f "tokens=2" %%a in ('mode con^|find /i "col"') do (set /a l=%%a-%length%)
REM Creamos una Variable con L espacios vacios
for /l %%b in ...

Hola a todos, soy nuevo por aquí, ando un poco perdido y busco iluminación divina :-)

Trato de hacer un script que lea la salida de un daemon y tome decisiones "en tiempo real" según ciertos eventos. El daemon es el wpa_supplicant aunque creo que esto no es relevante, éste se puede ejecutar como es lógico en background y foreground (salida por pantalla), la única forma en ...

Hola:

Tengo el siguiente problema:
Quiero sustituir las vocales acentuadas de un archivo por otros valores, pero hasta ahora no me ha funcionado.

#!/usr/bin/perl
use utf8;

%accents = ( á => "á",
é => "é",
ó => "ó",
ú => "ú",
);

$^I = '.bak';
while(<>){
s/()/$accents{$1}/eg;
print;
}

Saludos,

Hola a todos.

Gracias a toda la comunidad de perlenespanol pues aquí he aprendido y seguiré aprendiendo mucho.

Resulta que le he dado a mis usuarios un formulario para que ingresen datos y los datos enviados por mis usuarios los agrego a un archivo de tipo texto de la siguiente manera:


$FILE="datosoct.txt";
open(archivconf,">>".$FILE);
$linea=$id."::".$campo1."::".$campo2."::\n";
print archivconf ($linea);
close(archivconf);


pero los contenidos de la variable $campo1 vienen de un textarea por lo cual el ...

Hola a todos.

Tengo el siguiente problemilla y no sé cuál sería la manera más sencilla de solucionarla.

En un sitio web tengo un formulario que recibe varios datos, entre otros un precio.
El visitante debe escribir el valor, sin comillas, sin comas, y sin punto, dado que es una cifra.

Ejemplo: "35000000"

pero cuando miro la base de datos, veo que muchos de los registros tienen el siguiente formato:

35.000.000
35'000.000

¿A alguien se ...

Hola.

Tengo la siguiente cadena de texto :

:La vida es un misterio sin sentido! :Dejate de joder tio

Lo que ya tengo es /:(.*)!/, con esta expresión regular logro sacar esa parte pero lo que quiero sacar es toda la respuesta que está en el segundo ":" (Dejarte de joder tio) que vendría a ser todo lo que le sigue al segundo ':' en adelante.

¿Cómo lo haría?

Hola, tengo en una variable escalar un texto el cual tiene una comilla simple entre sus caracteres.

Quiero poner adelante de dicha comilla simple una barra invertida.

Ejemplo:


$dato = "tengo una ' en el texto";

# 1er intento:
$dato =~ s/'/\'/g; #esto me lo deja así: "tengo una ' en el texto"

# 2do intento:
$dato =~ s/'/\\'/g; #esto me lo deja así: "tengo una \\' en el texto"


¿Cómo puedo ...