Foro - Perl en Español

por **Rene Serrano** » 2008-02-11 16:19 @721

Buen día, todos. Tengo un problemita. Tengo un archivo con un formato dado, Ok, y tengo que verificar un columna específica y luego generar otro archivo con esa verificación.

Código: Seleccionar todo: 0004 4135 empleado 15 264.00 125.71 138.29 122.00 264.00 264.00 7.92 15.84 15.77 0.00 0.00 34.60 189.87 0004 4169 empleado 15 264.00 264.00 17.60 0.00 281.60 281.60 8.45 16.90 17.42 0.00 0.00 30.09 208.74 0004 4208 empleado 15 114.29 114.29 60.00 28.57 148.58 351.44 351.44 10.29 21.09 23.99 0.00 0.00 0.00 296.07 0004 4213 empleado 15 114.29 114.29 47.62 47.62 7.62 254.00 217.15 217.15 6.51 13.03 6.96 12.50 0.00 0.00 22.85 155.30 0004 4223 empleado 15 114.29 114.29 23.81 2.38 0.00 140.48 140.48 4.21 8.78 24.50 0.00 0.00 102.99 0004 4232 empleado 15 200.00 200.00 13.33 0.00 213.33 213.33 6.40 12.80 6.60 0.00 0.00 0.00 33.33 154.20 0004 4243 empleado 0 211.43 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00

Ese el formato pero tengo que verificar la columna 9 si tiene valor diferente de 0.00. Esa línea tiene que ir en otro archivo. Cómo puedo hacer para meterlo dentro de un arreglo ya que si nos fijamos hay columnas que no tiene datos. Eso cómo para hacer un split, a ver si me ayudan.

He estado intentando hacerlo con expresiones regulares pero sigo sin conseguirlo.

Saludos.

#!perl 
sub lee_fichero {
my($fichero,$formato,$hash_ref,$clave)=@_;
open(my$data,'<',$fichero)ordie"ERROR: $!\n";

while($linea=<$data>){
##obteniendo solo las lineas  necesarias
if($linea=~/^\s*(\d+)/){
my@campos=unpack($formato,$linea);
#Encontrando campos
if($campos[8]!="0.00")
{
$hash_ref->{$campos[$clave]}=$linea;
}
}

}

close$data;
}


lee_fichero('a.txt','A11 A35 A8 A14 A10 A11 A11 A11 A11',\%data1,1);

# salida 

foreachmy$clave(keys%data1){
print($data1{$clave});
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Saludos

por **criter** » 2008-02-13 14:16 @636

Sorry. ¿No es lo mismo que hacer

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(FILE,"a.txt");
my@lines=<FILE>;
close(FILE);[/b]

foreachmy$line(@lines)
{
my@cols=split(/\t/,$line);

}

if($cols[8]eq'0.00'||$cols[8]eq''){
print"El noveno elemento es 0.00\n";
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

?

Foro - Perl en Español

Revisar un archivo

Revisar un archivo

Publicidad

¿Quién está conectado?