Foro - Perl en Español

Buenas, tengo una duda con el método setlocale. Lo que quiero hacer es cambiar la configuración local del "decimal_point" que está establecida con punto, por una coma y "thousands_sep" que está en coma, por un punto.

Para ello tengo el siguiente código.

use POSIX qw(locale_h);
use locale;

my $oldlocale = setlocale(LC_CTYPE); # aquí me entrega la configuración regional del equipo
my $nuevalocale = setlocale(LC_CTYPE,"es_MX") or die "No cambia" ; # aquí no cambia a ...

Estimados, tengo el siguiente script que lee información desde un archivo txt en el cual sus campos están separados por comas, pero hay campos que vienen encerrados en comillas ya que en el valor del campo vienen comas, entonces el script cuando lee el campo lo divide siendo que no debiera ser, ¿qué puedo hacer?

Mi script es el siguiente:

#!/usr/bin/perl
open (FILE, @ARGV) || die "No pude abrir el archivo @ARGV\n";

$NFile="@ARGV";


foreach $a ...

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