67 lines
3.0 KiB
Awk
67 lines
3.0 KiB
Awk
#!/usr/bin/nawk -f
|
|
BEGIN {
|
|
file="/export/oracle/scripts/oper_ult_min.txt"
|
|
if (ARGC == 2) {hoy=ARGV[1]}
|
|
else {"date +%Y%m%d" | getline hoy; }
|
|
while ((getline < file) > 0)
|
|
{
|
|
if ($0 ~ "^"hoy) {
|
|
split($0,cad,";");
|
|
|
|
sum_vpm+=cad[2];
|
|
sum_tventa+=cad[3];
|
|
sum_tsia+=cad[4];
|
|
|
|
hora=substr(cad[1],9,2);
|
|
min=substr(cad[1],11,2);
|
|
hhmm=hora":"min;
|
|
|
|
a_vpm[hora]+=cad[2];
|
|
a_tventa[hora]+=cad[3];
|
|
a_tsia[hora]+=cad[4];
|
|
a_tsermepa[hora]=a_tventa[hora]-a_tsia[hora];
|
|
|
|
a_count[hora]+=1;
|
|
count+=1;
|
|
|
|
if (mayor_vpm[hora]<cad[2]){mayor_vpm[hora]=cad[2]; hora_mayor_vpm[hora]=hhmm}
|
|
if (mayor_tventa[hora]<cad[3]){mayor_tventa[hora]=cad[3]; hora_mayor_tventa[hora]=hhmm}
|
|
if (mayor_tsia[hora]<cad[4]){mayor_tsia[hora]=cad[4]; hora_mayor_tsia[hora]=hhmm}
|
|
if (mayor_tsermepa[hora]<cad[3]-cad[4]){mayor_tsermepa[hora]=cad[3]-cad[4]; hora_mayor_tsermepa[hora]=hhmm}
|
|
}
|
|
}
|
|
close file
|
|
{
|
|
print "\n[Resumen Ventas -",hoy"]\n"
|
|
print (" --------------------------------------------------------------------------------------------------------------------------- ");
|
|
print (" | V E N T A S | T. C O M P L E T O | T. S I A | T. S E R M E P A |");
|
|
print (" -----------------------------------------------------------------------------------------------------------------------------------|");
|
|
print ("| Tramo | Total Med | Max Hora | Med | Peor Hora | Med | Peor Hora | Med | Peor Hora |");
|
|
print ("| ----- | ------ ---- | ----- ----- | --------- | --------- ----- | --------- | --------- ----- | --------- | --------- ----- |");
|
|
|
|
for (i=0;i<=23;i++ ) {
|
|
if (i<10) { i="0"i }
|
|
if (a_count[i]<1) {
|
|
a_count[i]=1;
|
|
a_vpm[i]=0; a_tventa[i]=0; a_tsia[i]=0;
|
|
mayor_tventa[i]=0; mayor_vpm[i]=0; mayor_tsia[i]=0; mayor_tsermepa[i]=0;
|
|
hora_mayor_tventa[i]="--:--"; hora_mayor_vpm[i]="--:--"; hora_mayor_tsermepa[i]="--:--"; hora_mayor_tsia[i]="--:--";
|
|
}
|
|
|
|
printf ("| %2s-%02d | %6s %3d | %5d %5s | %6d ms | %6d ms %5s | %6d ms | %6d ms %5s | %6d ms | %6d ms %5s |\n",
|
|
i,i+1,a_vpm[i],a_vpm[i]/a_count[i],mayor_vpm[i],hora_mayor_vpm[i],
|
|
a_tventa[i]/a_count[i],mayor_tventa[i], hora_mayor_tventa[i],
|
|
a_tsia[i]/a_count[i],mayor_tsia[i], hora_mayor_tsia[i],
|
|
a_tsermepa[i]/a_count[i],mayor_tsermepa[i], hora_mayor_tsermepa[i])
|
|
|
|
}
|
|
|
|
print (" ----------------------------------------------------------------------------------------------------------------------------------- ");
|
|
printf "\n"
|
|
printf " Total: %4s ventas procesadas en %d segundos (%d minutos)\n",
|
|
sum_vpm,sum_tventa/1000,sum_tventa/1000/60
|
|
printf " Media: %4d ventas por minuto, %d ms aprox. por venta\n\n",
|
|
sum_vpm/count,sum_tventa/count
|
|
}
|
|
}
|