Foro - Perl en Español

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 ?

Hola, buenas noches.

Por favor, si pueden ayudarme, necesito extraer texto entre las marcas HTML de este ejemplo:

<span class="field-content"><p><strong class="uppercase">CABRERA CONSIGNACIONES VENDE: lancha</strong> de 5 y 6 mts, de aluminio, marca LeveFord, con póliza, factura y chata incluida, nueva, entrega inmediata. Ref. 70204254 Av. Viedma # 206, primer anillo entre Ñuflo de Chaves y Warnes (C163636430)</p>
</span> </div>
<span class="field-content"><p><strong class="uppercase">IMPORTADORA MENDOZA OFRECE: Micros</strong> Toyota Jumbo 2016 O km, gasolina, con garantía ...