Foro - Perl en Español

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 ?

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