+#!/usr/bin/perl -w
+
+use strict;
+
+# Recibo los parametros de la linea de comando e inicializo
+# las variables generales
+
+if(!$ARGV[0] || !$ARGV[1])
+{
+ print "No me pasaste los parametros adecuados\nuso\nweb020.pl origen destino";
+ exit;
+}
+
+my $origen=$ARGV[0];
+my $destino=$ARGV[1];
+my $arch_salida="$destino/web020";
+my $arch_entrada="$origen/web020";
+my $linea;
+my @datos_linea_anterior;
+my $contador;
+
+# Archivos de entrada y salida
+open arch_ent, "<$arch_entrada";
+open arch_sal, ">$arch_salida";
+
+# Leo el encabezado
+$linea=<arch_ent>;
+
+# Grabo el encabezado en el archivo de salida
+print arch_sal $linea;
+
+my @linea_anterior=(0,0,'nada',0);
+my @campos;
+
+# Leo la cantidad de lineas del archivo de entrada
+my $aux;
+$aux=`wc -l $arch_entrada`;
+($aux)=$aux=~/\s(\d*)\s/;
+# Bucle que recorre el archivo de entrada linea por linea
+for ($contador = $aux ;$contador > 0 ; $contador --)
+{
+ $linea=<arch_ent> unless ($contador == 1);
+ @campos=split(",",$linea);
+
+ if( $linea_anterior[0] eq $campos[0] and
+ $linea_anterior[1] eq $campos[1] and
+ $linea_anterior[2] eq $campos[2] and
+ $linea_anterior[3] eq $campos[3])
+ {
+ my $dias;
+ $dias=0;
+ foreach my $item (1..31)
+ {
+ if( $linea_anterior[3+$item] ne "00" or
+ $campos[3+$item] ne "00")
+ {
+ $campos[3+$item]="01";
+ $dias++;
+ }
+ }
+ $campos[35]=$dias;
+ }else
+ {
+ if( $linea_anterior[0] and
+ $linea_anterior[1] and
+ $linea_anterior[2])
+ {
+ print arch_sal $linea_anterior[$_]."," foreach (0..35);
+ print arch_sal "\n";
+ }else
+ {
+ if($contador < $aux)
+ {
+ my $linea_archivo;
+ $linea_archivo = $aux - $contador + 1;
+ print "Error en la linea ".$linea_archivo.": ";
+ print $linea_anterior[$_]."," foreach (0..35);
+ print "\n";
+ }
+ }
+ }
+
+ @linea_anterior=@campos;
+}
+
+print arch_sal $linea_anterior[$_]."," foreach (0..35);
+print arch_sal "\n";
+
+close arch_ent;
+close arch_sal;
+
projects / mecon / scripts.git / commitdiff