ahora parece andar bien

[z.facultad/75.08/llamadas.git] / inst / callgen

diff --git a/inst/callgen b/inst/callgen
index 8fb382816624e7c05664b76f77497b6bdfbd769a..dde9fb7b59234f63f0f98ffe55410425fbf95bc9 100755 (executable)
--- a/inst/callgen
+++ b/inst/callgen
@@ -19,9 +19,13 @@
 #      cat oridesti.txt | ./gencall
 
 # Configuración
-$CANT_ARCHS=10;
-$MIN_LINEAS=1000;
-$MAX_LINEAS=5000;
+$CANT_ARCHS = 10;
+$MIN_LINEAS = 1000;
+$MAX_LINEAS = 5000;
+$MIN_ANIO   = "1999";
+$MAX_ANIO   = "2004";
+$MIN_COD    = "0000";
+$MAX_COD    = "9999";
 
 #{{{ Variables globales
 our @codes; # Códigos de origen/destino
@@ -33,11 +37,7 @@ our @codes; # C
 # Uso: load_codes()
 sub load_codes()
 {
-       while (<>)
-       {
-               ;
-               push(@codes, substr($_, 0, 2));
-       }
+       push(@codes, substr($_, 0, 2)) while (<STDIN>);
 }
 #}}}
 
@@ -70,13 +70,13 @@ sub rnd($;$)
 #}}}
 
 #{{{ Tipos de campos
-sub aaaa() { return rnd(1999, 2004); }    # año
-sub mm()   { return rnd("01", 12); }      # mes
-sub dd()   { return rnd("01", 28); }      # día
-sub hh()   { return rnd("00", 23); }      # hora
-sub MM()   { return rnd("00", 59); }      # minutos
-sub DDDD() { return rnd("0000", 9999); }  # código de central telefónica
-sub char() { return chr(rnd(65, 90)); }   # caracter aleatorio
+sub aaaa() { return rnd($MIN_ANIO, $MAX_ANIO); } # año
+sub mm()   { return rnd("01", 12); }             # mes
+sub dd()   { return rnd("01", 28); }             # día
+sub hh()   { return rnd("00", 23); }             # hora
+sub MM()   { return rnd("00", 59); }             # minutos
+sub DDDD() { return rnd($MIN_COD, $MAX_COD); }   # código de central telefónica
+sub char() { return chr(rnd(65, 90)); }          # caracter aleatorio
 #}}}
 
 #{{{ line() - Genera una línea del archivo