Foro - Perl en Español

Estimados,

Se me presentó un problemilla. Lo más probable es que no sea muy difícil de resolver pero no me resulta.

La idea es ingresar al final de cada línea un dato delimitado por ," (,"fecha"). pero el texto necesito que se ingrese a través del teclado.

Utilizando el comando sed en la consola no tengo problemas de agregar

sed 's/$/,"texto"/' test.csv >test2.csv

Mi idea era la siguiente:
use strict;

print "Fecha a ...

Software error:
Base class package "CGI::Application" is empty.
(Perhaps you need to 'use' the module which defines that package first,
or make that module available in @INC (@INC contains: ../ C:/Perl/site/lib C:/Perl/lib .).
at Bots/ClasificadosOnLineBots.pm line 5
BEGIN failed--compilation aborted at Bots/ClasificadosOnLineBots.pm line 5.
Compilation failed in require at D:\Sitios web\robots buyigo\index.pl line 8.
BEGIN failed--compilation aborted at D:\Sitios web\robots buyigo\index.pl line 8.



Es todo, siendo usuario neto de cgi-app, me he olvidado de ...

Hola,
quiero ordenar un array que contiene líneas que comienzan por un número y van seguidas de una cadena. Este es un ejemplo del array:
322 SDSD
123 DSDAS
423 FFRRF

He probado con @array = sort {$a <=> $b } @array, y funciona, pero me salta error ya que el array contiene elementos no numéricos.

¿Existe alguna variación del sort que se pueda usar?

Gracias.

Buenas,

Los molesto para consultarles si tienen información de cómo "importar" variables a mi script y no tener todo en el mismo código así el que lo use puede setear los valores de las variables más fácil.

Gracias.

Hola a todos:

Me gustaría saber si en Perl es posible ordenar las filas de un fichero mediante más de un campo (p.ej., un CSV). Por ejemplo, que reordenara el fichero teniendo en cuenta la primera columna y, dentro de ésa (para los elementos que son iguales), que ordenara mediante la cuarta columna y, dentro de esa última, mediante la segunda columna...

¿Sabe alguien alguna forma fácil de hacerlo? He intentado mediante el "sort" del ...

Hola... Soy nuevo por aquí... Quiero aportar lo más que se pueda aquí... En fin. este es mi problema.

Trato de buscar en un archivo de texto ciertas cadenas. Para esto, las cadenas que busco las guardo en un array; después, con la instrucción foreach() recorro el array y dentro de éste utilizo un foreach() para recorrer el archivo de texto... así buscando las cadenas uno por uno.

Aquí un pedazo de código:
# ...

Hola, necesito un programa de Perl que saque por pantalla (sin repetición) los nombres de las especies representadas en un fichero.

El fichero es así:
>TPC2_XENTR Xenopus tropicalis
AAGTGACCGTAGACCAAAGCGAGTTTCGGCTCCAGGGAAGCGAGTTTCGGCTCCAGGGAAGCGAGTTTCGGCTCCAGGG
>TPC2_XENLA Xenopus laevis
ATGGAGTCGGAGCCGCTGCTCGGTTGGAGCGTCAATCTGCCTTGGAGAAAAGCGAGTTTCGGCTCCAGGG

Lo que me interesa es que imprima sin repetición solo el nombre (ej: Xenopus tropicalis)

Muchas, muchas, gracias.

No sé si es muy simple, pero lo necesito lo más rápido posible. Gracias.

¡¡Hola gente!!

Soy nuevo en este tema de Perl y requiero la librería perl5lib, que el ejecutable lo tengo en una máquina y no en un server. ¿Alguien me la podría proporcionar o decirme cómo puedo bajarla?

Se los agradecería mucho.

¡¡Saludos!!

Hola.

Quiero un programa de Perl que me saque por pantalla los nombres de la primera columna de una "archivo x" que no tienen nada en la segunda columna.

El archivo x tiene dos columnas. La primera pone un nombre con unos números, sin espacios, y en la segunda columna o no sale nada o sale una explicación.


Necesito un programita sencillito y si pudiera ser como antes mejor... ya sé que es pedir demasiado... ...

Les molesto nuevamente porque hice un script y la verdad que no me resulta muy competente. Por este motivo quería consultarles si pueden darme una mano.

#!/usr/bin/perl -w
use Term::ANSIColor qw(:constants);
print"----------------------------------------------------------------------------------------------------------------\n";
$comando2 = (split " ",( qx(grep ^PASS_MAX_DAY /etc/login.defs)) );
chomp $comando2;
if ("$comando2" != 90) {

print BOLD, RED, "Negativo:", RESET . " El valor del parametro PASS_MAX_DAYS es incorrecto\n";

}

else{

print BOLD, GREEN, "Positivo:", RESET . " El valor del ...