Foro - Perl en Español

Hola. Tengo el siguiente código:
#!usr/bin/perl

use LWP::UserAgent;
use JSON;
use Data::Dumper;

my $nave = LWP::UserAgent->new( ssl_opts => { verify_hostname => 1 } );
$nave->agent(
"Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:25.0) Gecko/20100101 Firefox/25.0"
);
$nave->timeout(5);

my $code = toma("http://localhost/twitter/timeline.php");

my $resultado = JSON->new->decode($code);

print "Created at : " . $resultado->{"created_at"} . "\n";

sub toma {
return $nave->get( $_ )->content;
}


Mi página local me devuelve este código shodan:

[
{
"coordinates": ...

Hola.

¿Cómo hago para agregar una búsqueda y extracción de diferentes combinaciones de palabras?

Tengo un archivo de texto como este:
#name_file
Bacteria;WS3;PRR-12;SSS58A 0.0 0.12 0.6
Bacteria;WS3;PRR-12;Sediment-1 0.5 0.1 0.3
Bacteria;Terrabacteria_group;Firmicutes;Bacilli; unclassified_Bacillales;Bacillaceae;Vulcanibacillu 0.2 0.2 0.6
Bacteria;Terrabacteria_group;Firmicutes;Bacilli;Bacillales;Bacillaceae;Vulcanibacillu 0.2 0.2 0.6
Bacteria;Terrabacteria_group;Firmicutes;Bacilli;Bacillales;Bacillales_incertae_sedis;Bacillales_Family_X 0.1 0.3 0.5
Bacteria;Terrabacteria_group;Firmicutes;Bacilli;Bacillales;Bacillales_incertae_sedis;Bacillales_Family_X._Incertae_Sedis;Thermicanus 0.4 0.13 0.9
Bacteria;Nitrospirae;Nitrospira;Nitrospirales;Thermodesulfovibrionaceae 0.1 0.2 0.6
Bacteria;Nitrospirae;Nitrospira;Nitrospirales;Thermodesulfovibrionaceae;BD2-6 0.0 0.0 0.6
Bacteria;PVC_group;Lentisphaerae;Lentisphaeria;Lentisphaerales 0.7 0.2 0.1
y quiero extraer la primera, y si existe, una segunda palabra (pero no la tercera) que ...

Hola, espero que alguien me pueda apoyar. Requiero actualizar PHP y no encuentro la versión para Linux Red Hat Enterprise. Agradeceré me orienten con el sitio donde se puede descargar.

Escenario: Originado que Linux no está registrado voy a realizar la migración a Linux CentOS. Sin embargo, me ha surgido la pregunta: ¿cómo puedo hacer la migración de LRHE a CentOS, sin perder la información almacenada en el HDD?

Gracias y saludos.

La UMDI-Sisal de la Facultad de Ciencias-UNAM en Yucatán invita a los
estudiantes del Posgrado de Ciencias del Mar y Limnología (PCMyL) a la
materia optativa de "Programación en Perl para aplicaciones en
Bioinformática", que se llevará a cabo durante el semestre 2017-1 en las
instalaciones de la UMDI-Sisal en Yucatán. El curso está dirigido a los
estudiantes inscritos en el PCMyL u otros posgrados de la UNAM, así como de
otras universidades (previa autorización ...

Hola a todos en el foro.

Tengo escrito un pequeño script para capturar las primeras líneas de un archivo dividiendo éste por medio de una expresión regular para luego analizar la sección que deseo con otras expresiones regulares para pasar las capturas a un array.

El script retorna el resultado esperado de manera correcta. Las líneas que deseo capturar son de la forma
% myscript : extraer : { extraer1, extraer2, extraer3} % (se ...

https://adtmag.com/blogs/dev-watch/2016 ... aries.aspx

por detrás de Bash, que alcanza salarios de 100 000 $.

Hola. Resulta que tengo este código:

my @atemp = split( /\-/, $d->{ciudad} );
$d->{ciudad} = pop @atemp;
pero quiero hacerlo en una sola línea, algo como
$d->{ciudad} = pop (@{ split( /\-/, $d->{ciudad} )});
pero no me funciona, hace otra cosa diferente a lo que quiero, que es sacar el nombre de una ciudad que está en un string tipo: xxxx-sadsdas-ciudad o asdas-ciudad, o xxx-zzzz-bbbb-ciudad, es decir el ultimo elemento.

La solución ya ...

Hola, estimados. Tengo el siguiente script que envía a un FTP un archivo Excel, pero por alguna razón que desconozco el archivo Excel llega dañado, si bien llega con el peso correcto, al tratar de abrirlo dice que está dañado. Desde ya, muchas gracias por su ayuda.

#!/usr/bin/perl

use Net::FTP;
use Net::FTP::File;




my $ftp_site = '200.1.1.1';
my $port = '21';
my $ftp_dir = 'nuevo';
my $ftp_user = 'usuario';
my $ftp_password = 'password';
my $dir;
my ...

Hola, buenas tardes.

Por favor, si pueden ayudarme con los hilos, necesito realizar lo siguiente:
primer cuadro
^^^^^^^^^^^^^^^^
Cargando.........
1
Resultado:
1 + 1 = 2
^^^^^^^^^^^^^^^^
segundo cuadro
^^^^^^^^^^^^^^^^
Cargando.........
2
Resultado:
2 + 1 = 3
^^^^^^^^^^^^^^^^
tercer cuadro
^^^^^^^^^^^^^^^^
Cargando.........
3
Resultado:
3 + 1 = 4
^^^^^^^^^^^^^^^^

Nota: mientras va apareciendo el número en Cargando
debajo de Resultado éste va operando con los números que ya le devuelve en Cargando. ...

Hola, estoy tratando de usar la API de Twitter <https://dev.twitter.com/rest/reference/post/statuses/update>. El tema es que no quiero usar ningún módulo. Quiero hacerlo solo con las peticiones de LWP::UserAgent. El primer tema que no entiendo es por dónde se registra en la API para poder usar cualquier opción de la API.

¿ Alguien sabe cómo ?