Foro - Perl en Español

con reconocimiento de Voz.

Aunque está en inglés, es igual de impresionante.

http://www.youtube.com/watch?v=QkD90ZV07zo

Hola a todos,

El caso es que tengo una duda a la que seguramente podreis responder:

Tengo un array @files que contiene una lista ordenada de ficheros pues ha sido obtenida mediante la instrucción "sort".

Sobre dicho array @files, aplico un "grep" con un criterio de selección y guardo el resultado en el mismo @files.
Mi pregunta: se puede garantizar que el resultado obtenido en @files después del grep también estará ordenado, teniendo en cuenta ...

Navegando en perlmonks.org encontré el link a un sitio que es bastante interesante.

El proyecto se llama CodeIDE. Básicamente entras a la página y puedes seleccionar ejecutar cógido de 4 lenguajes distintos: Basic, Pascal, C++ y Perl.

Te muestra unas cajas de texto en donde debes de meter el código que deseas ejecutar, cliquean en "Run" y te despliega el resultado en una ventana que se muestra del lado derecho.

Está bastante interesante y podría ...

OS: fbsd
shell:bash3
root@host:~#perl -e " for ( $i=0; $i<10; $i++; ) { print 'XXX.XXX.X.$i ip$i\n'; } " >> /etc/hosts
syntax error at -e line 1, near "( ="
Unterminated <> operator at -e line 1.
ok, ¿alguien sabe cómo hacer esto?

Hola a todos:
Sucede que en una aplicación que estoy desarrollando, necesito que el usuario seleccione un archivo para subirlo a una Base de Datos, esto lo hago de la manera siguiente:

print <<HTML;
<form enctype="multipart/form-data" method="post" action="$ENV{'SCRIPT_NAME'}">
Name: <input type="text" name="nombre" maxlength="256" />


File: <input type="file" name="archivo" />


<input type="submit" value="Click to Send" />
</form>
HTML

Todo esto dentro de un script de Perl.

Pero sucede que en la parte ...

Hola a todos nuevamente, tengo un problema que seguramente es de fácil solución pero he probado varias alternativas pero no me han funcionado. El problema que es cuando quiero unir de una manera parecida a esta: $usuario .tar.gz no me funciona imprime todo como si el punto fuera el final de la línea.

Sale más o menos así.

#(mas código)

@dominios=`grep -l OWNER=$rv /sistema/users/*`;
foreach $a(@dominios)
{
@usuario=split(/\//,$a);
print ("/home/$usuario.tar.gz");

#(más código)

Y en vez ...

Hola, me he incorporado hace poco al mundillo Perl y necesito ayuda con el problema siguiente. Tengo un objeto que, al construirlo, debe crear un fichero datos_id.dat . El identificador id es característico del objeto. En principio esta vacío, sólo debe crearlo. El código correspondiente, que reproduzco a continuación, funciona correctamente. He aquí el constructor:


sub new {

my $clase = shift;
my $id = shift;

my $self ={};
$self->{id}=$id;

my $fh = IO::File->new(); ...

He estado siguiendo el "hilo" de la creación de reportes de "salida".

llamando salida a la creación de archivos con extensiones xls, pdf, doc.

Con gran éxito pude usar el módulo Spreadsheet::WriteExcel y SimpleExcel descrito en los foros.

Estuve probando el módulo para la creación de la salida pdf, intenté utilizar el módulo PDF::Report junto con el PDF::API2 y el código descrito también por estos módulos y mi salida fue a la mitad puesto que ...

Hola a todos de nuevo, no sabía si postearlo aquí en el subforo de modulos.

Lo que yo pretendo es que al abrir el programa se introduzca la dirección IP o Hostname, user y password, y el programa haga un simple Dir o Ls según sea la plataforma en la que nos encontremos.


#Telnet.pl
#Coded by RevangelyonX
use Net::Telnet;
#Pidiendo datos al usuario necesarios para la conexión.
print "Introduzca Hostname o IP: \n";
$host ...

¿ Existe algún modulo para poder utilzar RawSockets en windows ?

Hasta el momento he encontrado Net::RawIP el cual al parecer no trae soporte para windows al momento de instalarlo. He intentado hacer eso de :
uselib("./");
use RawIP;

ó

require 'RawIP.pm'; //estando obviamente el .pm en el direcotrio actual

Sin mencionar que con cpan no me lo instala.

También he copiado el codigo fuente de RawIP.pm al directorio C:\Perl\lib\Net\ y C:\Perl\site\lib\ ...