Foro - Perl en Español

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

Hola, amigos, estoy intentando sumar múltiples valores de múltiples hashes con la misma clave.

Este es el resultado que me gustaría obtener:

HASH1 => { '2016-07-01' => { 'val1' => '7', 'val2' => '9', }, '2016-07-02' => { 'val1' => '10', 'val2' => '2', } }
HASH2 => { '2016-07-01' => { 'val1' => '8', 'val2' => '4', }, '2016-07-03' => { 'val1' => '3', 'val2' => '2', } }
HASH3 => { '2016-07-01' ...

Hola, ¿en las entrevistas de trabajo para programador les piden programar en ese momento o algo de ese tipo?

Hola a todos de nuevo, estoy tratando de crear un %hash con algunas frases que necesito cambiar.

Las palabras se encuentran dentro de un array y usando map, agrego un mismo texto a todas las palabras contenidas y luego armo el %hash. El código es el siguiente:
#!/usr/bin/env perl
use v5.22;
use Data::Dumper;

### @array con las palabras de entorno
my @ext_env = qw (
postscript tikzpicture pgfpicture ganttchart circuitikz
forest tikzcd dependency pspicture ...

Tengo este error:

Undefined subroutine &MyApp::MyBase::Today called at ..//MyApp/MyBase.pm line 967.

pero en mi código ya tengo cargado el módulo Date::Calc:

use Date::Calc qw(:all);

y quiero llamar una función un método de Date::Calc y no sé por qué me sale ese error. En un servidor me funciona bien, pero lo he pasado a otro, y ya me instalaron el módulo y no funciona, sigue el mismo error.

Hola, grupo. Solicito de su ayuda para resolver un problema. Espero explicar bien el problema para que puedan ayudar a la solución.

Resulta que tengo la siguiente lista de genes abreviados:
ACY1
RNA5S1
USP12-AS1
TRAJ23
ZFAT
Y deseo buscar cada uno en el siguiente archivo de nombres:
Approved Symbol Approved Name
A2MP1 alpha-2-macroglobulin pseudogene 1
ACY1 aminoacylase 1
SLIT2 slit guidance ligand 2
RN7SL843P RNA, 7SL, cytoplasmic 843, pseudogene
SP9YP24 ubiquitin specific peptidase 9, Y-linked ...