Foro - Perl en Español

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.

Hola. Estaba viendo esta página: http://crashcool.com/ y quería saber si alguien sabía cómo se llama la barra que usa el autor de la página para guardar todas las noticias. Me pareció una forma cómoda y quería hacer lo mismo en mi página.

¿ Alguien sabe ?

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 ...

Buenos días, al utilizar:

use utf8;
print $q->header('text/html; charset=UTF-8');

En algún momento se visualizaron los caracteres especiales pero actualmente no es así. Me pueden ayudar, por favor, a determinar la causa. Gracias.

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 ...

Hola a todos.

Primero, me gustaría presentarme, ya que es mi primer mensaje en este foro, aunque no sea mi primera visita, ya que he leído en muchas ocasiones diferentes secciones y me han ayudado a resolver diversos problemas. Ahora escribo este mensaje por una duda, en principio teórica, pero que recibirá con mucho gusto ejemplos prácticos.

Mi duda es que no sé cómo plantear unas pruebas o validar un script escrito en Perl, ya ...

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 ?