Foro - Perl en Español

Amigos:

Necesito tomar varios datos de un archivo 1 y buscar si están en un archivo 2.
Si están tomar esa información del archivo 2 y guardarla en un nuevo archivo.

¿Alguna idea?

Slds.

Buenas.

Llevo toda la tarde con un error tonto que no me deja vivir y por más que lo estudio no veo la forma de solucionarlo.

Resulta que leo un fichero que hace de base de datos; hago un foreach() y luego formateo cada línea para trabajar con cada campo. Recojo un dato en concreto y lo guardo en una variable. Todo va perfecto y lo hace perfecto, lo único que en la terminal me ...

Cordiales saludos a todos.

Tuve que incursionar en las expresiones regulares y como si fuera poco, en Perl.

El problema fue una regla nueva a incluir en Spamassassin. La solución que tenía que implementar era bloquear el acceso de correos que falseaban la dirección de modo bastante convincente para los usuarios comunes. Por ejemplo: un usuario [email protected] recibe un correo de [email protected]@yahoo.com

El usuario ve que el correo viene de Perico y que seguramente es ...

Buenas tardes.

Tengo un problema con el siguiente código y un conocido en Stackoverflow me recomendó utilizar esta plataforma para buscar ayuda.

El siguiente código dejó de funcionar después de una actualización que hizo en una oportunidad una persona.

Desconozco qué actualización hizo pero logramos hacer funcionar bien la información que llega a la bandeja de devueltos. Sin embargo, el perl, por alguna extraña razón, no logra procesar de forma eficiente las query.

Cualquier ayuda ...

Hola a todos, estoy trabajando en un script para activar "case-sensitive" (disponible en últimas versiones de Windows 10) en árboles de directorios, para hacer esto es necesario usar el comando fsutils, el cual no trabaja de manera recursiva por directorios.

El código que poseo es el siguiente:

#!/usr/bin/perl
use v5.20;
use strict;
use autodie;
use File::Find;
use Getopt::Long qw(:config bundling_values require_order no_ignore_case);
use File::Spec::Functions qw(devnull);

# vars
my $enable = 1;
my $disable ...

Hola, Perleros.

Tengo que estimar un índice de ignición (adjunto la tabla con los valores predeterminados, ignicion.jpg), que depende de la temperatura y de una humedad, donde este último va de 2 a 17, y debe calcularse a diario (también les adjunto los archivo de temperatura y humedad).

Hice un código, pero solo para el primer rango de temperatura que es de 30 a 39 °F y sólo para el primer valor de cada matriz. ...

items => !$items ? : $items,


¡juas, juas! ¿Por qué rayos lo usarían? Es lo que me genera duda, ¿cuándo uno podría usar eso ahí?. No entender.

Hola, Perleros.

Estoy tratando de descargar imágenes de un sitio web mediante un código que realizó explorer en su momento. Este descarga la imagen pero no puedo abrirla (dice que no se puede cargar).

Les pido orientación al respecto. Muchas gracias.

PD: El código que muestro no es el original, lo modifiqué con ejemplos de Internet.
#!/usr/bin/perl

use strict;
use warnings;

use LWP::Simple;

my $url = 'https://www.esrl.noaa.gov/psd/cgi-bin/data/composites/comp.day.pl?var=Sea+Level+Pressure&level=1000mb&iy%5B1%5D=&im%5B1%5D=&id%5B1%5D=&iy%5B2%5D=&im%5B2%5D=&id%5B2%5D=&iy%5B3%5D=&im%5B3%5D=&id%5B3%5D=&iy%5B4%5D=&im%5B4%5D=&id%5B4%5D=&iy%5B5%5D=&im%5B5%5D=&id%5B5%5D=&iy%5B6%5D=&im%5B6%5D=&id%5B6%5D=&iy%5B7%5D=&im%5B7%5D=&id%5B7%5D=&iy%5B8%5D=&im%5B8%5D=&id%5B8%5D=&iy%5B9%5D=&im%5B9%5D=&id%5B9%5D=&iy%5B10%5D=&im%5B10%5D=&id%5B10%5D=&iy%5B11%5D=&im%5B11%5D=&id%5B11%5D=&iy%5B12%5D=&im%5B12%5D=&id%5B12%5D=&iy%5B13%5D=&im%5B13%5D=&id%5B13%5D=&iy%5B14%5D=&im%5B14%5D=&id%5B14%5D=&iy%5B15%5D=&im%5B15%5D=&id%5B15%5D=&iy%5B16%5D=&im%5B16%5D=&id%5B16%5D=&iy%5B17%5D=&im%5B17%5D=&id%5B17%5D=&iy%5B18%5D=&im%5B18%5D=&id%5B18%5D=&iy%5B19%5D=&im%5B19%5D=&id%5B19%5D=&iy%5B20%5D=&im%5B20%5D=&id%5B20%5D=&monr1=5&dayr1=1&monr2=5&dayr2=1&iyr%5B1%5D=2018&filenamein=&plotlabel=&lag=0&labelc=Black+and+White&labels=Contours+%28Black+and+White+Only%29&type=1&scale=&label=1&skip_vector=&cint=&lowr=&highr=&istate=0&proj=Custom&xlat1=-60&xlat2=-10&xlon1=240&xlon2=330&custproj=Cylindrical+Equidistant&level1=1000mb&level2=10mb&Submit=Create+Plot';

my $file = 'slp.gif';

getstore($url, $file);

Hola, amigos, tengo el siguiente script para capturar un endpoint en JSON.

#!/usr/bin/perl

use utf8::all;
use JSON;
use LWP::Simple;
use Data::Dumper;

my $ua = LWP::UserAgent->new;

my $server_endpoint = "http://comercio.comerxxx.com/"; #URL contains actual URL

# set custom HTTP request header fields
my $req = HTTP::Request->new( GET => $server_endpoint );
$req->header( 'content-type' => 'application/json' );
$req->header( 'Accept' => 'application/json' );
$req->header( 'secret' => 'secreto' );
$req->header( 'dateDesde' => '2018-06-10' );
$req->header( 'dateHasta' => '2018-06-30' );

my ...

Hola, perleros. Estoy tratando de crear un pdf desde Perl pero no sé cómo leer lo que le envió al xml. ¿Alguien sabrá cómo leearla, por favor.

Estos scripts ya funcionan pero no sé dónde el xml está leyendo @data. No hay un foreach ni nada por el estilo.

Gracias, perleros, de antemano.

#
# The First Basic Report
# Cosimo Streppone <[email protected]>
# 2006-03-14
#
# $Id: basic.pl 16 2006-03-27 16:51:09Z cosimo $ ...