Foro - Perl en Español

Intentaré explicarme lo mejor posible:
Tengo dos listas; una con el nombre numeros.txt y otra con el nombre letras.txt.
numeros.txt letras.txt
1 a
2 b
3 c
4
5
6
7
8
9
0

Lo que quiero es conseguir esto:
a 1
b 2
c 3
a 4
b 5
c 6
a 7
b 8
c 9
a 0

Mi primer programa fue este:
numeros.txt letras.txt
1 a
2 b
3 c
4 d ...

¿Qué tal? Quisiera ver si me pueden ayudar con este pequeño problema...
Tengo este archivo:

GPJFHIG01AN7BW Assembled contig00764 69 - contig00748 3 -
GPJFHIG01D3PF6 Assembled contig00645 650 + contig00009 710 -
GPJFHIG01ADJDG Assembled contig00764 490 + contig00674 586 -
GPJFHIG01CEBKL Singleton
GPJFHIG01ECQ6L Singleton
GPJFHIG01CS9M0 Assembled contig00645 186 + contig00645 273 -
GPJFHIG01CDL5X Assembled contig00764 580 - contig00690 75 +
GPJFHIG01AZUS9 Singleton
GPJFHIG01BHOJ5 Assembled contig00645 146 + contig00645 278 -
GPJFHIG01AHBGC TooShort
GPJFHIG01B6LGY PartiallyAssembled contig02291 359 ...

Bueno, la idea es que tengo un parámetro en mi plantilla:

<TMPL_UNLESS NAME=WIDGET_Etrueque_formlogin>

Y cuando leo los parámetros con mi script:
# Esto está dentro de un ciclo que lee todos los parámetros de plantilla

if ($parametro =~ /widget/i) {

my @parametros = split (/_/, $parametro);

$hash = { $parametro => &getContainWidget($self,@parametros)};
$return = $hash;


}

Lo que quiero con este script es buscar un archivo que está en plugins/Etrueque/formlogin.pl

Pero necesito que me ...

Les dejo el siguiente script por si alguien lo necesita.


#!/usr/bin/perl
use Digest::MD5;
@ARGV or die "Uso: $0 archivo\narchivo: /etc/passwd por ejemplo\n";
my $file = $ARGV;
my $file= shift;
open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
binmode(FILE);

print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";

¿Alguien tiene un script para buscar sticky bit?


~$ find / -perm -1000 -exec ls -la {} \;


Yo tengo en bash pero estaba buscando en Perl.

Saludos.

Hola, soy nuevo en el foro, y estoy aprendiendo a programar en Perl desde principios de este mes (enero).

Escribo porque vengo desde hace varios días leyendo por Internet tutoriales sobre Perl y sigo sin despejar mi duda que pasa por:

Quiero abrir un fichero, leer lo que está escrito e ir pasando cada línea de ese fichero a la consola como si fuera un comando.

Hasta ahora lo que he escrito, sin el resultado ...

¡Hola! ¡Nuevamente necesito ayuda! Bueno, lo que ocurre es que tengo un archivo de esta manera (mucho más largo, de unas 22200 líneas)

gn0058461_int_gn0085512
\ACAAACACAATTCACTCATCGGACCCGCTGGTTCCGGCTAC/
gn0020660_int_gn0260994
\TTAAAAATAAATAAAAATAAAGAAAATATATAAATCTATGAC/
gn0260994_int_gn0046706
\GACAACTTGGAGGAGACACCCGGCGGACCCGGAATCCAAGTC/
_int_gn0031208
\CGACAATGCACGACAGAGGAAGCAGAACAGATATTTAGATTG/
gn0031208_int_gn0002121
\AAAAACAATGCGAATAGGGACGTATTAATTGCCGAATCTCT/
gn0002121_int_gn0031209
\GTGCCCGTGTATCTCTATCGAAAAAATCATATATTTTTTAGA/
gn0031209_int_gn0051973
\ATCGAGCGCAAGTTTGGAGTTCGATGTGTTTTCAGCTGTGAGC/
gn0051973_int_gn0067779
\GTGCGGACGAGTGTCTTGAGACTCTGGGCAAGCGCAGCCAGCCA/

Y un archivo similar pero contiene solo nombres, no las secuencias. Hice un código que lee nombres en archivo que contiene los nombres y los busca en el segundo archivo (el que muestro) y si lo ...

Necesito ir introduciendo elementos en un mismo hash, pero de forma espaciada.
El problema es que si lo hago de la forma:
%hash = ( clave1 => elemento1);
%hash = (clave2 => elemento2);

se me sobreescriben los valores en vez de almacenarse.
¿Hay alguna forma de irlos añadiendo?

¡Muchas gracias!

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