Foro - Perl en Español

La siguiente consulte se me cae en el while() y solo cuando busco una sola vocal, no entiendo por qué.

if (defined $dbh) {

if (defined $dp_s) {

$sql = q/
SELECT DP_CODE,
DP_NAME,
DP_STATUS,
DP_ISI_OFFICE,
DP_COUNTRY,
DP_FORMATTING_OFFICE,
LOCAL_DP_NAME
FROM DP
WHERE UPPER(DP_CODE) LIKE ?
OR UPPER(DP_NAME) LIKE ?
/;


if ((defined $start) && (defined $end)) {
$aux = $sql;
$sql = undef;
$sql = "Select * From (Select a.*, ROWNUM r From ($aux) ...

Buenos días. Tengo tres días empezando a trabajar en Perl, con poca noción en programación. Ha sido difícil, pero en mi poco conocimiento he hecho algunas cosas.

Aquí está mi programa. El mismo lee un archivo txt, compara con una base de datos y ya inserta en una tabla de la base de datos.

Necesito saber cómo sacar errores en la base de datos DBI, pasar el error al log y mandar por mail.


Código ...

Estimados compañeros,

Buen día. Hoy recurro a ustedes ante una pregunta producto de mi clase de bioinformática, a la cual no he encontrado la manera de abordarla. El profesor nos pide hacer un script llamado cuentapalabras.pl. Este script debe buscar "palabras" (más bien dicho, "conjunto de bases") de una longitud especificada por el usuario, las cuales están dentro de un archivo de texto. Dicho script debe de tener un "uso: <Tamaño de palabra> <archivo de ...

Hola amigos.

Tengo que hacer una validación que consiste en buscar si existe un código, que si lo encuentra, no debe permitir seguir.

my $encuentra = $dbh->selectall_arrayref(
"select codigo from documentos where codigo like '$codigo'",
{ Slice => {} }
) || die $self->error($self->{dbh}->errstr);

if ($encuentra) {
$existecodigo ="EL CODIGO YA EXISTE3 $codigo $encuentra";
}
else {
my $sth = $dbh->prepare(
"Update Documentos Set id_sistema =?, id_origen=?, id_tipo = ?, cod_indice=?, codigo=?, correl=? Where ...

¿Qué tal? Nuevamente estoy solicitando de su valioso apoyo.

Tengo una base de datos en PostgreSQL de la cual realicé un respaldo con pg_dump.
El respaldo quedó de la siguiente manera:
--
-- PostgreSQL database dump
--

SET client_encoding = 'SQL_ASCII';
SET standard_conforming_strings = off;
SET check_function_bodies = false;
SET client_min_messages = warning;
SET escape_string_warning = off;

--
-- Name: SCHEMA public; Type: COMMENT; Schema: -; Owner: postgres
--

COMMENT ON SCHEMA public IS 'Standard ...

Buenos días, con una molestia. Acabo de actualizar mi Perl a la versión 5.12.2, pero un script que tenía no me funciona, me da el siguiente error:
Can't locate Net/FTP/File.pm in @INC (@INC contains: /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib/perl5/5.8.8/i386-linux-thread-multi /usr/lib/perl5/5.8.8 .) at .bin/itransfer.pl line 11.
BEGIN failed--compilation aborted at .bin/itransfer.pl line 11.

pero sí tengo instalado el módulo:
cpan> install Net::FTP
Going to read '/root/.cpan/Metadata'
Database was generated on Wed, 08 Dec 2010 ...

Hola a todos.

Quisiera saber si hay alguna forma de ejecutar comandos sobre Windows, con system(), "``", etc. sin que aparezca la pantalla de ejecución sobre el sistema.

No deseo que cuando se ejecuta un comando, por ejemplo un "dir.exe" aparezca en pantalla el comando y el resultado. Me gustaría obtener el resultado en una variable ("'") y que no haya huella en el sistema de lo que se ha ejecutado.

Muchas gracias.

Un saludo, ...

Compañeros:

Una vez más solicitando su ayuda. Deseo crear un script que me devuelva secuencias de ADN que se encuentra entre dos pequeñas secuencias del mismo patrón. Las secuencias de ADN se encuentran en un archivo .txt, y el usuario puede definir que patrón buscar y el archivo a introducir.

Es algo como esto: quiero extraer las secuencias que se encuentran entre el patrón ATC

CATCTAAAAGTGCGTAGATC
GTGTACCAACAGGAGGCTTG
TGTCAGATGAATACACTTGT
TGGGCGTGTTATTAATAAGA
ACTCGCATTCGCCTAGAGAA
CATCTAAAAGTGCGTAGATC
GTGTACCAACAGGAGGCTTG
TGTCAGATGAATACACTTGT

Deseo que ...

Buenas, en estos días he trabajado en relación a la subida de ficheros y he visto lo publicado en el foro varias soluciones que me dan respuestas a mi interrogante, pero queda una y es que cuando tomo los valores del input para guardar la dirección completa de donde he tomado mi archivo, éste automáticamente me toma el nombre del fichero sin realizarle las expresiones regulares para separar el nombre de la dirección.

No sé ...

¡¡¡Buen día compañeros!!!

Estoy iniciando en la bioinformática, y pues Perl es el primer peldaño.

Tengo un pequeño problema con un script que comencé por curiosidad. Deseo generar secuencias aleatorias de ADN, con una longitud especificada con el usuario, así como el numero de secuencias. Igualmente el usuario puede definir el % de GC, es decir, qué porcentaje de C y G hay en la cadena.

He creado mi script, pero no me da la ...