Foro - Perl en Español

Saludos a todos... recién comienzo con esto del Perl y me gusta mucho ya que me da cierto control...

Aquí detallo mi consulta

Escenario:

Yo envío un archivo mediante formulario a un script CGI. Éste lo graba en el servidor mediante este fragmento de código :

open (OUTFILE, ">$tmp_dir/$archivo") || die "No Open";
binmode(OUTFILE);

while ( read(STDIN, $buffer, 1024) )
{ print OUTFILE $buffer; }

Resultado del envío (solo fragmento del comienzo y final)

-----------------------------41184676334 ...

Buenas tardes. Una duda... trato de conectarme a una base de datos

DB2 versión 8.3

pero no me deja conectarme... me manda el siguiente error

Code: Seleccionar todo

DBI connect('dsnContent','root',...) failed: [unixODBC][IBM]
[Controlador ODBC de iSeries Access]Anomalía de enlace de comunicaciones.
comm rc=10061 - CWBCO1049 - No se ha iniciado la aplicación  del servidor iSeries
(SQL-08004)

No sé si me falta bajar alguna librería aparte, porque esa me está tronando, y no me deja conectarme. Mi archivo es ...

¡Hola! Tengo un problema, tengo un webservice java y un cliente en Perl; conecto con el soap y llamo a un método que me devuelve un array, el array lo recibo pero solo recibo la primera posición del array, y no sé qué hacer o cómo tengo qué hacer para recibirlo entero.
¡Muchas gracias! Un buen foro éste, ¡pena no encontrarlo antes!

¡Un saludo!

Hola que tal amigos.

Tengo un problema muy grave pues tengo que subir un sitio a un servidor que me está dando problemas, lo que pasa es lo siguiente:

Tengo CMS sencillo en el cual hay un formulario donde subo título, fecha, contenido, y una imagen.

El problema es que tengo un editor TinyMCE dentro de mi textarea contenido, y a veces sucede que al querer subirlo se tarda muchísimo y termina mostrándome error, miren, ...

Tengo el siguiente programa que por cierto lo copié de algún foro por aquí...

#!/usr/bin/perl

use Net::SFTP::Foreign;

my $host = 'XXX.X.XX.XXX';
my $port = 2222;
my $user = 'root';
my $pass = '***********';

my $sftp = Net::SFTP::Foreign->new(
host => $host,
port => $port,
user => $user,
password => $pass,
# more => '-v', # No es compatible esto con la opci<F3>n 'password' anterior
);

$sftp->error and die "SSH connection failed: " . $sftp->error;

print $sftp->cwd, ...

Hola buenas, tengo un problema al hacer una condición con if.

$user = $1 if ( $doc =~ m/::(.*?)__/mosix);
if (!$user) {
print "\033[1mUser mysql:\033[0m not found!\n";
}
else {
print "\033[1mUser mysql:\033[0m $user\n";
}

Mi código lo tengo puesto así pero éste no funciona siempre como debería de funcionar.

Yo lo que quiero hacer es que si esta línea se cumple:
$user = $1 if ( $doc =~ m/::(.*?)__/mosix);
imprima el $user, y si ...

Foro:

Estoy incursionando en el mundo Perl.

Concretamente: logré cargar a un arreglo (array) una linea de un archivo de texto. Dicha línea tiene el formato XXXX XXXX XXXX XXXX (nótese el espacio entre cada dato, hubiese sido más fácil un ;, pero bueno, todo no se puede).

¿Cómo logro descomponer cada línea, para guardar luego cada dato en variables, teniendo como patrón el espacio entre cada dato?

¿Tendré que usar la función split()? (aún ...

Hola, tengo un par de preguntas sobre el uso de paréntesis en las expresiones regulares.

Estoy buscando una serie de palabras para hacer sustituciones, pero solo quiero hacer la sustitución cuando la palabra encontrada satisfaga determinadas condiciones contextuales. En este caso lo que rodea a la palabra que quiero sustituir es solo un contexto, no forma parte de la sustitución.

Mis preguntas son las siguientes.

En el siguiente programa
foreach $palabra (@listapalabras) {

while (<>) ...

Hola, he esto viendo en el foro el mensaje "Bareword "xxx" not allowed while "strict subs" in use..."

En mi caso donde pongo "xxx" es TRUE, me ha quedado claro que Perl no lo entiende, pues se supone que ha de estar definido antes.

Mi problema y mi pregunta es que yo tengo dos entornos Perl en dos máquinas distintas (A y B), cuando he pasado los fuentes de una aplicación de A (donde no ...

Hola, buenas.

Tengo un problema para cuya solución no tengo suficientes conocimientos en Perl y, por tanto, no sé si se puede resolver o no.

Bien, tengo un conjunto de textos, donde algunas palabras están etiquetadas con sus categorías. Por ejemplo, la palabra fruta, está etiquetada como <Nombre>fruta<\Nombre>. El problema es que, como todos sabemos, hay palabras que tienen más de una categoría gramatical. Como por ejemplo, la palabra "como". La cual, en concreto, tiene ...