Foro - Perl en Español

Buenas noches,

He estado tratando de hacer un código en Perl que me permita tomar de una carpeta un número de archivos de texto y ponerlos en otra carpeta que se encuentra vacía. Para ésto tengo una lista de la carpeta 1 con todos los nombres de los archivos y tengo otra lista con solo los archivos que quiero pasar a la otra carpeta. El nombre de cada uno de los archivos está compuesto de ...

Buenos días,

Tengo un archivo de 1.2 TB y al intentar abrirlo desde un programa hecho en Perl me muestra el mensaje: your version of Perl does not support large files.

La configuración de mi PC es :

SO : CentOS 6.2 64 bits
Kernel : 2.6.32-220.el6.x86_64

Procesador : Core i7 3.4 GHz
Memoria : 16 GB

Version Perl : 5.10.1

Por favor, ¿cuál es la forma de habilitar archivos grandes?

Gracias,

Daniel López

Quiero comprobar la lectura del archivo "/etc/inetd.conf", para luego verificar su configuración, pero según el script no existe y esto es erróneo.

Lo verifiqué como usuario "root" y me dice exactamente lo mismo.

#!/usr/bin/perl
use Term::ANSIColor qw(:constants);
my $FICHERO4 = '/etc/inetd.conf';
my $estatus4 = stat($FICHERO4);

if ((! defined $estatus4) || (-r $FICHERO4)) {
print BOLD, RED, 'No existe', RESET, " El archivo $FICHERO4 no existe en el sistema o no puede ser accedido\n";

} ...

Estimados,
Estoy tratando de parsear la siguiente web, ya que me gustaría ver la información en consola y no por web, ya que ésta mete mucha publicidad.

El sitio es:
http://91.123.198.225/Personas/APELLIDO ... xxxx&Sex=M

Aquí obtenemos una tabla con información pero no sé cómo parsear el HTML.

Alguien me puede ayudar.

Muchas gracias.

Hola,

Tengo un servidor en Perl y un cliente de prueba en Perl.

Quiero enviar una cadena (string) sin enviarla línea por línea, respetando su formato original,
porque si lo envío como "print $socket $datos-ejemplo . "\n";", me llegan los datos por líneas.

Una duda, para enviar datos, ¿es necesario que la línea finalice con '\n'?
Porque sin '\n', parece ser que la línea no se envía.

Gracias a explorer por compartir el código de ...

Tengo el siguiente código:

sub getValue{
my($self, $caseDetail, $plans, $testCaseFlow) = @_;

my @plans = @$plans;
if($caseDetail->data)
{
my $plan;
my $error;
try{
foreach $plan (@plans){
my ($plan_value, $data_value) = split ("-",$plan);
if($caseDetail->data->name eq $data_value){
return $plan_value;
}
}
return $caseDetail->data->getValueByDataAndPlan($plan)->value;
}
catch{
my $e = @_;
$error = $e;
};
if($error){
return $caseDetail->data->value;
}
}
}


Todo funciona perfecto menos cuando se cumple la condición del if()
if($caseDetail->data->name eq $data_value){
return ...

Hola, mira, este ejercicio está hecho prácticamente. Lo que hace es ir recogiendo las líneas y las muestra, pero cuando hago ctrl+d me pregunta que si quiero continuar, si le digo que sí debe entrar en el bucle pero si le digo que no debe salir de la ejecución. ¿Qué me falta?

$contador=0;
print "Introduce palabras y pulsa intro para el salto de línea, cuando quieras finalizar pulsa ctrl+d\n";
@contenido=<STDIN>;
foreach $valores (@contenido)
{ ...

Este script tiene que mostrar todo lo que se haya introducido después de introducir los datos por <STDIN>, al pulsar ctrl + D, debe mostrar todo lo introducido.
Esto es lo que tengo hecho:

while ( $linea = <STDIN> ) {
@contenido < $linea;
}
foreach $valores (@contenido) {
print $valores;
}

Hola:

Tengo este array bidimensional que consigo ordenar por la primera columna,

__DATA__
aaaa1,g,20120111-23,1
aaaa3,c,20120110-3,1
aaaa1,f,20120111-2,1
aaaa1,g,20120111-113,1
aaaa2,a,20120109-23,1
aaaa2,h,20120110-3,1

si intento ordenarlo por la primera y tercera columna el resultado es

row 0: ,
row 1: ,
...

y yo esperaba que me pintase antes 20120111-2 que 20120111-113.
Tengo que hacer la ordenación alfanumérica, de ahí el problema.

¿Cómo puedo aplicar la transformada Schwartziana ...

Hola:

Tengo un fichero así

b,5,6,7
a,2,5,6
a,1,4,5
b,4,6,7
a,1,5,5
b,3,6,7

Tengo que agrupar de los que empiecen por la misma letra.
Mi intención es cargarlo en un array de dos dimensiones.
Cargo todos los que empiezan por a:
a,2,5,6
a,1,5,5
a,1,4,5
y ahora quiero ordenarlo
a,1,4,5
a,1,5,5
a,2,5,6
y ahora hago la agrupación.

Quiero:
pintar "a", el primer valor de la primera segunda columna, la suma de la tercera columna, y el último valor ...