Foro - Perl en Español

Estoy usando un componente en Delphi que me permite usar las expresiones regulares de Perl en Delphi. El problema es este: necesito sacar todos los nombres de esta línea:
Bot #locos :locos
Bot #locos :SYSTEM 1370177575
Bot = #locos :Bot Test Now

El código en Delphi este:
PerlRegEx1.Regex := '(.*?) = '+sEdit3.Text+' :(.*?)';
Como ven necesito sacar todo lo que le siga a ':', que vendría a ser los nombres. Mi código solo ...

¿Cómo puedo unir dos expresiones regulares para que en una sola línea me traiga los dos datos que deseo?

Tengo esta cadena:
var lat = 3.43575165;
var lon = -76.54623305;
var companyId = '15721119';
var companyName = 'RESTAURANTE';
var cityId = 'gfghj';
var cityName = 'ghfg';

y con este código obtengo lo que tiene el var lat
my ($latitude,$longitude) = $content =~ m/var lat \=(.+?)\;/;
$longitude = $content =~ m/var lon ...

Comienzan las actividades en la YAPC::NA::2013, en Austin, Texas.

Se pueden seguir por flujo de vídeo, tres días de conferencias, en 4 salas de forma simultánea.

Saludos, el otro día estaba aburrido y se me ocurrió hacer esto en Perl, se los dejo aquí a ver qué tal les parece :)

#!/usr/bin/perl
'0O00O0O00OOO0O0O0OOO00OO0OOO0O0000O000000O00000O0"
OO 0O
OO ..:::::::::::.. 00
OO ..:::aad0OOOO0Obaa:::.. OO
0O .::::d:?000OO0O0000?::Ob::::. O0
0O .:::d0O0O:?OO00O000??aO00000b:::. 0O
0O .:::d00000OOa00O0O0OaaOO00O00OO0b:::. OO
00 ::::dP::::::::00O000000O0::::::::Yb:::: O0
00 ::::dP:::::::::Y00OO0O00OP:::::::::Yb:::: 0O
OO ::::d0:::::::::::Y0O00OO0P:::::::::::0b:::: 00
O0 .::::OO::::::::::::YO0O00P::::::::::::0O::::. O0
0O :::::Y0baaaaaaaaaaO0P:T:Y0Oaaaaaaaaaad0P::::: 00
0O :::::::Y0000O0O00O0P::|::Y000OO0OO000P::::::: 0O
0O ::::::::::::::::OO0:::|:::000:::::::::::::::: 0O
OO ...

Hola,

Soy nuevo en Perl y también en este foro (aunque me está gustando y creo que vengo para quedarme :wink: )

Tengo un fichero.csv con dos columnas de longitud variable:

Nombre_Sede;Red_Sede

La idea es leer ambos valores, abrir un fichero .txt, buscar en él el valor Red_Sede y reemplazarlo por Nombre_Sede.

¿Alguna sugerencia? Lo he hecho con VBscript, pero obviamente con un rendimiento nefasto ...

Esta mañana estaba algo aburrido y se me ocurrió hacer un experimento: comparar la velocidad a la que se ejecuta un mismo algoritmo en diversos lenguajes de programación. Para ello, hice un pequeño algoritmo que imprime parte de la serie de Fibonacci, en los siguientes lenguajes:

http://www.utnianos.com.ar/foro/tema-c-perl-java-python-ruby-php-qui%C3%A9n-es-m%C3%A1s-veloz

Esto es lo que tengo que realizar hasta aquí. Todo bien, lo único es que quisiera que leyera varias pasadas y fuera acumulando el total de las ventas perdidas por errores... El error es como si no regresara al primer goto.

Que la transacción sea aprobada
Que la transacción sea suspendida por las siguientes causas:
* Fecha de emisión caducada
* Rebaso el límite de crédito
* No es posible obtener autorización de tarjeta utilizada ...

Necesito ayuda. Lo que busco hacer es lo siguiente:

• Leer el archivo
• Seleccionar el tipo de actividad (esta puede ser, concierto, fútbol, baloncesto, desfile, cine
• Crear un archivo a partir del nombre de la actividad
• Almacenar ahí los registros correspondientes a esa actividad
• Imprimir el nombre del archivo y los registros correspondientes a cada archivo

Tendría que crear en este caso 5 archivos, cada uno a partir del tipo ...

Hola compañeros.

Os pido ayuda otra vez. ¿Cómo puedo hacer el promedio de cada columna? La primera fila tiene el nombre de cada columna:
Azores Cantabrico Gran Sol Vizcaya
1.50 2.00 3.00 3.00
1.75 2.24 3.10 3.20
2.00 2.50 3.30 3.10
1.75 2.40 3.50 3.30

Estos datos están en un fichero .dat, alturaolas.dat.

El resultado que quiero es
Azores Cantabrico Gran Sol Vizcaya
Promedio Promedio Promedio Promedio

He visto que se puede hacer con [perl ...

Buenas. Tengo un problema. Lo que intento hacer es introducir varios datos a un archivo pero solo me aparece un dato.

#!/usr/bin/perl
while (1) { # bucle infinito

print "introduzca datos \n";
print "ingrese número de tique: ";
chop( $numero = <STDIN> );
print "ingrese tipo de actividad: ";
chop( $actividad = <STDIN> );
open( IN, "+>D:/etc/ticketsven.txt" );
seek( IN, 0, 2 );
print IN "$numero:$actividad\n";
close IN;

last if $numero ...