Foro - Perl en Español

Buenas,

Tengo otra pregunta chorra, ¿cómo le digo a la subrutina que coja @genbank1 y lo meta en @genbank? Es que tengo varios archivos de genbank...

Muchas Gracias.

ORGANISMO(@genbank1);

sub ORGANISMO {
my @genbank = ();
my $organismo = '';
for my $linea (@genbank) {
if ( $linea =~ /^ ORGANISM/ ) {
$linea =~ s/^\s*ORGANISM\s*//;
$organismo = $linea;
}
}
}

Tengo un problema con el siguiente código porque estoy abriendo un array para escribirlo en un archivo de texto. Lo que quiero hacer es que cuando esté escribiendo en el archivo poder reemplazar las \ por \\, las / las dejo como están, solo son las \.

my @files =

('C:/xampp/htdocs/aca.txt','C:/xampp/htdocs/aca.txt',niclog','/var/log/exim/paniclog','/var/lo/exim/rejectlog','/var/log/exim_rejectlog');

open(FILE,">>aca.txt");

for my $linea(@files) {
$linea=~s/\/\\//;
print FILE '"'.$linea.'",';
}
close FILE;

¿ Alguien puede ayudarme ?

Hola, estoy aquí porque necesito ayuda de Uds. Tengo una variable que necesito comparar en varias tablas de una BD... es decir, en la variable tengo una palabra que necesito que las busque en unas tablas (usuario, sede, etc), pero no sé cómo hacerlo. Intenté haciendo con Perl un if(), pero no me busca en las tablas.

También con un case pero no sé cómo hacer en el case que si no encuentra en un ...

Estimados:

Antes de programar alguna solución al problema, quería comentarlo con Uds. y ver qué es lo que se puede hacer, antes de hacerlo claro :P...

Desde un formulario web el usuario podrá buscar por sexo, edad, dirección, teléfono, email, comuna, región, etc... El formulario tiene unos 30 campos para realizar la búsqueda específica, donde se pueden seleccionar o no, los campos anteriores...

Una vez recibiendo los ...

Tengo el siguiente código

use File::Find;

find(\&finder,"dir");

sub finder {
my $file = $_;
print $file."\n";
if(-f $file) {
if ($file =~ /\.txt$/ or $file =~ /\.php$/){
print "$File::Find::dir"."$File::Find::name\n";
}}}

El problema es que al reconocer un archivo quiero tenerlo con la ruta completa pero cuando uso un directorio común como /dir, el problema es que queda algo así: "dir/N3fa5t1cA.txt". Pero yo quiero la ruta completa.

¿ Alguien puede ayudarme ?

Hola, estaba mejorando este herramienta para seguridad web que tengo desde hace tiempo y quiero que si se teclea control+C el código retorne al menú sin problemas. El problema es lo que he intentado con

$SIG{INT} = \&reload;

Pero solo me retorna un valor numérico.

El código es el siguiente:


#!usr/bin/perl
#k0bra 1.5
#Console version
#Automatic SQL Scanner for MYSQL
#(c)0ded By Doddy H
#
#
#C:\Users\DoddyH>perl k0bra.pl http://127.0.0.1/sql.php?id= --
#
# ...

Quisiera generar una aplicación en donde el usuario pueda diseñar, él mismo, consultas a una base de datos acorde a los campos de datos que desea conocer.

Tendría un formulario con las siguientes cajas de texto:
• Select ($param_select): para indicar los nombres de las columnas de la tabla que desea
• Campo ‘FROM’ ($param_from), para indicar el nombre de la tabla y
• Campo ‘WHERE’ ($param_where) para ingresar condiciones si tuviese.

Mi pregunta es, ...

Aquí está el código

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use DBD::Pg;
print error;

print "Content-type: text/html\n\n";

my @pote;
my @log;
local ( $buffer, @pairs, $pair, $name, $value, %FORM );

# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ( $ENV{'REQUEST_METHOD'} eq "POST" ) {
read( STDIN, $buffer, $ENV{'CONTENT_LENGTH'} );
}
else {
$buffer = $ENV{'QUERY_STRING'};
}

# Split information into name/value pairs
@pairs = split( /&/, $buffer );
foreach $pair (@pairs) {
( $name, ...

Hola, gracias de antemano por su ayuda.

Hay un error sintáctico en la última línea de este código y no veo cuál es de ninguna manera. Supongo que es algo simple, pero... :roll:

foreach my $node ($nodeset->get_nodelist) {

my $term= XML::XPath::XMLParser::as_string($node); #Nodo horren informazioa string moduan gorde.

my $gakoa=/pos=".+"/;

Moten_Hash_taula= push(@term_arraya,$term)


Gracias :wink:

Hola amigos tengo el siguiente problema, ojalá puedan ayudarme, tengo el siguiente código

emisor:
use IO::Socket;
my $sock = new IO::Socket::INET (
PeerAddr => 'asomatos',
PeerPort => '7070',
Proto => 'tcp',
);
die "Could not create socket: $!\n" unless $sock;
print $sock "Hello there!\n";
close($sock);

y receptor:
use IO::Socket;
my $sock = new IO::Socket::INET (
LocalHost => 'thekla',
LocalPort => '7070',
Proto => 'tcp',
Listen => 1,
Reuse => 1, 8 );
die ...