Foro - Perl en Español

A raíz de una reciente conversación con el usuario Aceitunas, abro este hilo donde hablaremos de los distintos métodos que conocemos para proteger los programas Perl, de miradas o usos indiscretos.

Hay varios niveles de protección, y depende de lo que queremos proteger: la ejecución, la modificación o la lectura (ver) del código.

Buenos días,

Estoy intentando crear un programa en Perl para organizar los ortólogos que he identificado entre cuatro bacterias del mismo género.

Por un lado tengo cuatro archivos, cada uno de ellos con los identificadores de todos los genes de una bacteria, por otro lado, tengo seis archivos que contienen los identificadores de los ortólogos entre dos de las cuatro bacterias (separados por tabulador); son seis archivos porque he calculado los ortólogos por parejas y ...

«El pasado día 25, Aaron Crane, uno de los administradores del dominio blogs.perl.org, la plataforma de federación de blogs del lenguaje Perl, publicó una entrada donde anunciaba que el sitio había sido víctima de una intrusión. Los datos de casi 3000 cuentas de usuario habían sido publicados».

Artículo

Hola, ¿qué tal? De nuevo reportándome. Verán: quiero saber si en Perl hay modo de desarrollar un sistema de control de documentación con restricciones de usuarios, esto ya que tengo de desarrollar un sistema de gestión de documentos de Calidad y debo seguir lineamientos de la ISO me gustaría que me orientaran para ver qué módulos debo instalar y cómo empezar.

Saludos

Hola a todos, tengo el siguiente problema, y la verdad no sé si es posible resolverlo, tengo varios archivos dentro de un directorio del siguiente tipo:
\documentclass{article}
\usepackage{geometry}
\usepackage{lmodern,pstricks}
\usepackage{pstricks-add}
\usepackage{pstexample}
\begin{document}
\begin{postscript}
\psset{unit=0.5cm,runit=0.5cm}
\begin{pspicture}(0,3)(10,10)
\psdot(2,4)\pscircle(7,7){2}
% Sigue una línea en blanco que no deseo borrar

\psCircleTangents(2,4)(7,7){2}
\pcline(2,4)(CircleT1)
\pcline(2,4)(CircleT2)
\psdots(CircleT1)(CircleT2)
% Sigue una línea en blanco que no deseo borrar

\uput(CircleT1){T1}\uput(CircleT2){T2}
\end{pspicture}
\end{postscript}
\end{document} y deseo dejarlos de la siguiente forma:
\documentclass{article}
\usepackage{geometry} ...

Hola, hice un script para obtener los valores de expresión a partir de datos crudos de microarrays. El código (sé que podría ser mucho mejor) es el siguiente:

$/='ATF'."\t".'1.0'."\n";
while($lineas = <>){
chomp($lineas);
($arriba,$abajo)=split(/"Supplier="/,$lineas);
($letras,$numeros)=split(/"SgdIdNum"/, $abajo);#bien
@columnas=split(/Edge/,$numeros);#bien
foreach $pedazo(@columnas){
@division=split(//,$pedazo);
print "$division\t";
print "\n";}
Lo que hago es aplicar este script a 987 archivos para de cada uno obtener el valor que quiero. El problema es que me imprime los valores que obtiene ...

Hola. Estoy teniendo problemas para hacer programas con skins buenos. El tema es no paso de colores con fondo negro y letras como verde o celeste, ese es mi problema: no tengo ideas más allá de esos colores, por eso quería preguntar si no hay alguna página donde den ejemplos de combinación de colores que no sean negro y verde. Usaría los skin que se ofrecen en Visual Studio o Delphi pero generan dependencias.

Hola,

Estoy un poco perdido con las entradas y salidas en la aplicación de scripts. Es decir, normalmente los script básicos que necesito son para editar un .txt. Entonces, suelo empezar el script:

open F, shift;
while (<F>) {bla bla bla...
close F;

Y para aplicarlo guardo en una misma carpeta el script .pl y el archivo .txt que quiero editar. Después abro la consola de comandos, me ubico en esa carpeta y aplico el ...

Resulta que tengo mi .htaccess en un servidor externo y me funciona bien, enmascaro el dominio:

RewriteEngine On
RewriteRule ^hudong/moodle(.*) http://xxx.com/hudong/moodle$1

Esta directiva la uso en mi servidor externo y funciona perfecto cuando ingreso por ejemplo a:

http://www.midominio.com/hudong/moodle me carga el contenido de http://xxx.com/hudong/moodle sin cambiarme la URL en el navegador.

Ahora, el problema es ...

Hola.

Lo que quiero es saber el número de líneas que contienen la palabra X de un archivo. Esta es la primera aproximación que he hecho
#!/usr/bin/perl -w

my @lista_filtros = (X, Y);
my $filtro;
my $archivo;
my @match;
my $num_match;

$archivo = $ARGV;

foreach $filtro(@lista_filtros)
{
@match = `grep $filtro $archivo`;
$num_match = scalar(@match);
print 'Lineas con '.$filtro.': '.$num_match, "\n";

}
print "Adios\n";

Ahora me gustaría poder combinar los filtros, es decir, saber ...