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

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

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 ?