Foro - Perl en Español

«Bueno, este es un keylogger en Perl que hice con las siguientes opciones

* Captura teclas reconociendo mayúsculas y minúsculas
* Muestra ventanas en las que se está trabajando»

Artículo

Estimados,

Tengo un script el cual verifica sobre algunos archivos si el owner de éste es el usuario "root" y luego realiza una acción.

El problema que tengo es que si el archivo no existe me imprime "como acción NEGATIVA" pero no me dice cuál es su owner ya que no existe, me gustaría que en estos casos directamente no me imprima nada, ya que es erróneo.


use Term::ANSIColor qw(:constants);
my @archivos = ...

Hola, tengo la siguiente función:
sub getSectionDescription {
my $section_code = shift;
my $dbh = &EMIS::Database::gethandle('CEICP');
my $sql = '';
my $sth = undef;
my $row = {};
my $section_name = undef;

if ($dbh) {
$sql = " SELECT SECTION_NAME \n";
$sql.= " FROM LAYOUT_PATHTREE_MVS \n";
$sql.= " WHERE NODE_CODE = '$section_code' \n";

$sth = $dbh->prepare($sql);
$sth->execute;
# foreach ($row = $sth->fetchrow_hashref()) {
# push @{$section_name}, $row;
# }
$sth->finish();
$dbh = releaseDBHandler($dbh);
$section_name ...

Hola, necesito hacer un programa muy parecido a otro para el que también pedí ayuda aquí: lo que quiero es tomar de un fichero solamente lo que aparece entre comillas dobles, tras 'sent:'

TEXTO:
sent: "todo lo que quiero
es que
esto se quede
como está"
Blabla bla bla bla bla
sent: "estos son los
datos
del problema"
Bla bla bla bla bla bla bla
sent: "no estoy de acuerdo"

De momento, lo que he ...

$Ninicial = 1;
$Nfinal = 4365;

while ($Ninicial <= $Nfinal)
{
my $final = "http://..../index.php?id=".$Ninicial;
my $cnx = LWP::UserAgent->new() or die;
my $go = $cnx->get($final);
if ($go->content =~ m/fecha(.*?)fecha/ms)
{
print $Ninicial.": $1\n";
$Ninicial++;
}
}


Hola amigos... Tengo este pequeño script que va muy bien, excepto... cuando se me colapsa y se me queda parado.

Me explico: yo voy recibiendo por consola algo parecido así:

1: lo que quiero obtener
2: ...

Hola, ¿¿¿cómo están???

Mi pregunta es simple: Cómo cargar un archivo de texto (.txt) en un Hash.

De antemano, muchas gracias.

Estoy haciendo un script que sustituye cuando dos caracteres iguales están juntos, con los mismos caracteres entre paréntesis,

Véase:
s/(.)\1/\($1$1\)/g

Obviamente existen variables que al usar expresiones por ejemplo:

$` antes del match
$1 El match
$' Despues del match

¿Pero hay alguna variable, como éstas, que me indique el número de matches que hubo al evaluar la expresión regular?

Es decir, si matcheo 3 veces que me diga $fulanito = 3

Gracias

Hola,

Soy nuevo en esto del Perl y voy algo perdido.

He mirado por el foro pero no he visto la solución a mi problema. Bueno, he visto soluciones pero no me funcionan, supongo que algo no debo de hacer bien.

Tengo que leer un archivo con 20 líneas de números aleatorios, cada línea tiene 240 números.
Algo así:
1,5,34,23,345,...,0
2,3,4,55,6,1,...,23
Cada línea la quiero pasar a un array @color_1, @color_2...

Creo que si me ...

Hace un par de días, chromatic (Modern Perl Books) publicó un artículo titulado «Cómo identificar a un buen programador de Perl» (en inglés).

En él se comentan una serie de cuestiones que habría que realizar en una entrevista de trabajo para saber si la persona que tenemos delante tiene un buen conocimiento de Perl. Y cuando dice "bueno" se refiere a un nivel medio o medio-alto.

Os pongo aquí las referidas cuestiones, para que, cada ...

Hola...

Escribo porque tengo un gran problema: resulta que para poder terminar mi script me falta un último paso que es comparar dos archivos.

Tengo dos archivos así...

Archivo 1:
GCTA
AACCTA
GCCCCA
AACCCA
CTCCAC
......

Archivo 2:
AAACCC
TGTTCT
TGGGTG
GGTGTG
GGTATA
......

Necesito comparar la primera línea de mi archivo 1 con todas las líneas de mi archivo 2, luego la línea 2 del archivo 1 con todas las líneas del archivo 1, ...