Foro - Perl en Español

Hola a todos.

Bueno, mi duda es la siguiente: tengo un árbol de directorios organizados por año/mes/días. Ejemplo: dentro del año 2017 tengo 12 carpetas correspondientes a 12 meses, dentro de cada mes 30 o 31 carpetas según los días del mes y dentro de cada día una cantidad X de ficheros.

Lo que necesito es obtener las rutas completas de cada fichero, pues cada fichero pasará después por un decodificador. Ya tengo esto:

$directorio="W:/2017/Agosto/*"; ...

Hola. Tengo una duda y, seguro que es muy fácil, pero no consigo encontrar cómo hacerlo.

Se trata de seleccionar todo el contenido entre dos ocurrencias, o por ejemplo, entre el inicio de una cadena y la última ocurrencia de un carácter. Algo como este ejemplo:

$cadena = "A.B.C.D";

y quiero seleccionar desde el inicio de la cadena hasta el último punto.

Para seleccionar entre el inicio y el primer punto, sé hacerlo:

$cadena =~ ...

Saludos a todos.

Necesito una ayuda. Resulta que estoy creando un script que consume un servicio web (WS). Pero el tema es que tengo que pasarle un valor, que lo llamaremos "token". Este token me ayuda para poder identificarme en el WS y así poder hacer la consulta. Este es el código.

$clienteConsulta = SOAP::Lite-> service('https://ws2.cl/consultaservice?wsdl');
$clienteConsulta->soapversion('1.1');
$clienteConsulta->consultar($numero);
Respuesta:
<faultcode>S:Client</faultcode>
<faultstring>Error de Autenticacion: TOKEN invalido</faultstring>
El tema es que no sé cómo ...

Muy buenas a todos, voy a intentar explicar el problema que tengo lo mejor posible, porque creo que ni yo termino de entenderlo.

Me han mandado un ejercicio en el que necesito, por un lado, crear dos módulos desde cero que hagan lo siguiente:
- Módulo 1 ("Contenido.pm"): pasar una URL en la "command line" y obtener el contenido de dicha URL.
- Módulo 2 ("Show.pm"): extraer solo las URL de la página pasada en ...

Hola.

Estoy haciendo un pequeño programa y no sé por qué cuando solicito un dato por consola me indica que no puede acceder al archivo que le indico, copiando y pegando la ruta en la consola. En cambio, cuando le indico la ruta absoluta del archivo como se muestra en el primer bloque de código, funciona.

Cabecera:
require 'C:\Users\Paco\Desktop\Recursos\perl\libreria.pm';
Funciona la llamada:
print "\nIndica la ruta a testar:";
$ruta=<STDIN>;
testFile('C:\Users\Paco\Desktop\Recursos\perl\prueba.log');
No funciona la ...

Estimados, necesito de su ayuda... leyendo acerca de cómo descargar adjuntos desde un buzón en Gmail he logrado construir el siguiente script el cual me descarga el archivo Excel en este caso, pero el Excel llega solo con el nombre del archivo escrito en su primera celda. La información real no viene... desde ya muchas gracias por su ayuda...

El script es el siguiente:
#!/usr/bin/perl

use Net::IMAP::Client;
use Email::MIME::Attachment::Stripper;
use Data::Dumper;

$HOST = "imap.gmail.com"; ...

Hola. Estoy tratando de extraer datos que están en dos tablas que pertenecen a una página html que tengo guardada en local o sea en mi computadora y pasarlos a XML pero no logro avanzar.

Soy nuevo en Perl y no me empato con la solución. Si pudieran ayudarme se los agradecería. La cuestión es tomar los valores de cada Variable(Promedio,Mínimo,Máximo) y ponerlos en un xml, o sea, algo así:
<Data Variable="Temperatura del aire" ...

Hola a todos.

Tengo el siguiente código que lee un rango de celdas fijo de un archivo Excel con datos del índice de radiación ultravioleta (UV). Tiene escrito las palabras: Bajo, Moderado, Alto, Muy Alto y Extremo.

El asunto es que no logro que imprima una celda en particular y le asocie un color y un rango de números. Por ejemplo: si la celda que está en la columna 3 y fila 25 tiene escrito ...

Hola, tengo un problema a ver si me lo solucionáis:

my $blast1 = "tblastn -query Cas1Xan.fasta -db $genome -evalue 1e-5 -outfmt 6 -out cas1.out";
system($blast1);
print "--> Results for cas1:\n";
my $file1 = "cas1.out";
if ($file1 eq ""){
"No results found\n";}
else {
open my $info1, $file1 or die "Could not open $file1";
print "Gstart\tGend\tE-value\tChain\n";
while(my $line = <$info1>){
chomp $line;
my @col = split("\t", $line);
print "$col\t$col\t$col\n";
}

El caso es que ...

Hola a todos, tengo una plantilla Excel que puedo leer y que busque todos los símbolos de porcentaje (%) y le anteponga un doble backslash (\\%) y lo muestre por pantalla. El problema es que una vez que realiza el cambio de forma simultánea a la hoja correspondiente no sé cómo acceder a una celda de manera individual. Agradezco enormemente su ayuda.
#!/usr/bin/perl

use strict;
use warnings;
use Spreadsheet::Read;

my $ref = ReadData ("23052017.xls"); ...