Foro - Perl en Español

Buenas, amigos.

Necesito ayuda. Tengo un texto en txt. que lo abro y lo proceso. Y necesito extraer:

* cualquier fecha que exista en el artículo ( ejemplo: 4 SEP 2012 ) y resaltarla con asteriscos, o sea: **** 4 SEP 2012*****

* extraer cada frase del texto por separado

En resumen, ¿alguien sabe qué dos expresiones regulares puedo usar para:
1) extraer la fecha
2) extraer cada frase separada por un punto

¡Gracias!

Saludos, Perl en Español.

Tengo esta dirección:

P:\Públicos\2012\Posdespachos\29 agosto 2012.xls

dentro de la variable $posdespacho.

Me interesa únicamente 29 agosto 2012 por lo cual hice esto:
my @vector = split("\\",$posdespacho);
$vector =~ s/.xls//;


pero al correr el programa

Trailing \ in regex m/\/ at match.pl line 51.

¿Cómo me escapo de la \?

Gracias por adelantado.

Bueno la cosa es que tengo un script que me corre buenísimo en Ubuntu y me sale un montón de errores en Win7.

Tengo las mismas versiones de Perl en ambos S.O. Al hacer correr perl -v me sale "This is perl 5, version 14, subversion 2 (v5.14.2)" solo que mi Ubuntu es 32 bits y el Win7 es 64 bits.

En Win7 estoy utilizando ActivePerl.

A continuación se puede ver los errores que me ...

Chicos, ¿cómo están? Espero que bien. De antemano, muchas gracias por ayudar. Y vuelvo a recurrir a ustedes.

Esta vez lo que necesito hacer es agregar una nueva línea con algo que me llega por parámetro a un documento. En este caso en particular es /etc/hosts. He logrado ingresar lo que necesito y agregarlo en un archivo X pero no entiendo cómo leer el archivo y decir en qué lugar en específico deseo poner la ...

Buen día. ¿Me pueden ayudar con este tema?

Tengo el siguiente código:

sub gets {
my $xml = 'mensaje xml q envio';
my ($url) = @_;
my $curl = new WWW::Curl::Easy;
$curl->setopt( CURLOPT_URL, $url );
$curl->setopt( CURLOPT_CONNECTTIMEOUT, 30 );
$curl->setopt( CURLOPT_RETURNTRANSFER, 1 );
$curl->setopt( CURLOPT_POST, 1 );
$curl->setopt( CURLOPT_POSTFIELDS, $xml );
$curl->setopt( CURLOPT_SSL_VERIFYPEER, 1 );
$curl->setopt( CURLOPT_SSLCERT, 'pem.pem' );
$curl->setopt( CURLOPT_SSLKEY, 'key.key' );
$curl->setopt( CURLOPT_SSL_VERIFYHOST, 1 );
$curl->setopt( CURLOPT_VERBOSE, 0 );
my $code ...

Estimados,
Tengo un parser XML el cual debo entregarle como argumento un directorio y este se encarga de parsear todos los XML que se encuentren en él.

El problema que tengo es que me parsea todo y me lo guarda en la columna "A" porque yo puse que sea así, pero me gustaría en verdad que las URL sean guardadas en la columna correspondiente a su dominio/hosts, ya que tengo muchos XML que parsear.

Ejemplo ...

Hola, pongamos que tengo cantidades de euros almacenadas así:
3.456.850,00
223.456,00
1.225,00
Quiero ir sumándolas, pero no sé de qué forma está sumando Perl.

Se me ocurre quitar los puntos y las comas para sumar y luego volverlos a añadir, pero ¿hay alguna otra forma de sumar esto?

#!/usr/bin/perl

my @cantidades = qw(223.790,92 1.225,00 3.567.833,00);

map $pasta += $_, @cantidades;
print "¿$pasta" . "?\n";

for(@cantidades){
print $prueba += $_;
print "\n";
}

Hola. Tengo el siguiente problema con q() cuando hay \\.

El código es:

my $re = q(hola \\ chau);

print $re;

Y devuelve:

hola \ chau

Lo solucioné con \\\\.

¿ Pero, qué otras soluciones tengo ?

Buenos días.

Recurro a ustedes porque estoy intentado hacer un contador el cual me muestre cuántos usuarios tienen bash por defecto. El problema es que siempre me retorna 0. No entiendo por qué. Y el segundo código es para contar todos los usuarios que se encuentran alojados en passwd.

Soy nuevo en programación y leyendo tutoriales hice el código que pongo más abajo.

Espero me puedan ayudar.

¡¡ Muchas gracias !!



#cuanta cuántos ...

¡Hola!

Necesito pasar un array desde un cgi, a una función JavaScript, que se encuentra dentro del cgi.

Intenté hacer esto en el cgi:

my @coins;
$coins = "Quarter";
$coins = "Dime";
$coins = "Nickel";

luego, en el html:
<script type="text/javascript">var list=new array(); list=\@coins;</script>
<INPUT NAME='promo_code' TYPE='TEXT' maxlength=5 SIZE=10 onKeyup="contar(this,list);" VALUE=$issue-{'promo_code'} >

y en la función:
function contar(input,list) {
if(input.value.length >= 4) {
document.getElementById('websitename').style.display='block';
document.getElementById('websitename').innerHTML = input.value;
alert(list);
}
}

Con ...