Utilizo o windows vista e estou com problemas na leitura de um arquivo ascii,
pois, entre os caracteres de cada variavel, o perl esta sendo atribuindo
automaticamente um espaço. Por exemplo:
DATOS DE : TEMPERATURA MEDIA AMBIENTE DIARIA (ºC) (AÑO: 1971)
D A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E D I A R
I A ( º C ) ( A Ñ O : 1 9 7 1 )
O estranho é que já rodei o mesmo script sem problemas p/ outras bases de
dados, que seguem o mesmo padrão dos arquivos de entrada(anexo), porém, com
estes dados não obtive sucesso.
Segue anexo os dados de entrada e o script perl.
Obrigado,
Lázaro
ÿþD A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E
D I A R I A ( º C ) ( A Ñ O : 1 9 7 1 )
A l t u r a m / s / n / m : 3 3 2 0 L o n g i t u d O e s t e : 6 5 º
4 1 ' 0 0 " L a t i t u d S u d : 1 7 º 4 5 ' 0 0 "
P r o v i n c i a : M i z q u e E s t a c i ó n :
A l a l a y D e p a r t a m e n t o : C o c h a b a m b a
A ñ o :
P a r á m e t r o s M e t e o r o l ó g i c o s :
E s t a c i o n e s :
R e t o r n a r P r i n c i p a l < I W L I N K 1 >
D I A E N E F E B M A R A B R M A Y J U N J U L A G O S E P
O C T N O V D I C T O T A L
1 2 1 , 3 1 7 , 9 1 7 , 7 1 8 , 9
1 8 , 2 1 9 , 8 * * * * * * * * * * * *
* * * * * * * * * * * * 1 9 , 0
2 1 9 , 5 2 1 , 5 1 6 , 1 1 8 , 6
1 9 , 4 1 9 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 9 , 0
3 2 2 , 6 1 5 , 9 1 6 , 8 1 6 , 5
1 7 , 5 1 6 , 6 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 6
4 2 1 , 3 1 7 , 3 1 9 , 3 1 2 , 5
1 8 , 3 1 7 , 1 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 6
5 1 8 , 8 1 5 , 8 1 8 , 1 1 8 , 3
1 8 , 0 1 7 , 5 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 8
6 2 0 , 5 1 3 , 6 2 1 , 9 2 0 , 5
1 9 , 6 1 7 , 5 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 9
7 2 4 , 1 1 7 , 9 2 0 , 1 2 1 , 5
1 8 , 4 1 7 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 9 , 9
8 1 8 , 8 1 7 , 1 1 6 , 2 2 1 , 8
1 8 , 8 1 7 , 6 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 4
9 2 0 , 4 1 3 , 8 2 2 , 0 2 1 , 3
1 7 , 2 1 7 , 3 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 7
1 0 2 0 , 5 1 2 , 6 2 1 , 4 1 9 , 6
1 9 , 8 1 6 , 5 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 4
1 1 2 2 , 6 1 7 , 6 2 2 , 0 2 0 , 3
2 0 , 4 1 4 , 8 * * * * * * * * * * * *
* * * * * * * * * * * * 1 9 , 6
1 2 1 3 , 9 1 5 , 3 2 1 , 9 2 2 , 9
2 0 , 8 1 4 , 6 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 2
1 3 1 2 , 9 1 4 , 8 2 2 , 7 2 0 , 8
2 0 , 8 1 5 , 6 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 9
1 4 1 8 , 1 1 6 , 1 1 7 , 4 1 8 , 1
1 6 , 9 1 6 , 1 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 1
1 5 2 1 , 6 1 4 , 6 1 9 , 0 2 0 , 1
1 8 , 7 1 9 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 8
1 6 2 0 , 0 1 4 , 3 1 8 , 3 1 3 , 8
1 8 , 3 1 6 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 6 , 8
1 7 1 6 , 5 1 6 , 9 2 1 , 3 2 0 , 4
1 8 , 3 1 6 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 2
1 8 1 6 , 5 1 8 , 3 2 1 , 8 2 1 , 2
1 8 , 4 1 6 , 9 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 8
1 9 2 0 , 4 1 5 , 5 2 1 , 1 1 5 , 8
1 9 , 4 1 0 , 9 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 2
2 0 2 3 , 1 1 5 , 6 2 0 , 4 1 8 , 8
1 9 , 5 1 4 , 3 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 6
2 1 2 2 , 6 1 4 , 9 2 2 , 3 1 4 , 3
1 9 , 3 1 0 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 3
2 2 1 2 , 5 1 3 , 5 2 0 , 8 1 6 , 8
1 8 , 8 1 6 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 6 , 4
2 3 1 7 , 3 1 5 , 0 1 4 , 0 1 9 , 0
1 8 , 8 1 5 , 8 * * * * * * * * * * * *
* * * * * * * * * * * * 1 6 , 6
2 4 1 6 , 0 1 2 , 8 2 1 , 5 2 1 , 0
1 9 , 5 1 6 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 9
2 5 1 6 , 0 1 5 , 1 2 1 , 6 2 1 , 0
1 8 , 8 1 5 , 5 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 0
2 6 1 3 , 8 1 7 , 4 1 9 , 8 1 9 , 6
1 8 , 4 1 4 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 2
2 7 1 6 , 5 1 9 , 0 2 2 , 9 1 9 , 8
1 7 , 3 1 5 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 4
2 8 1 6 , 4 1 9 , 0 2 1 , 1 1 9 , 9
1 9 , 0 1 6 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 6
2 9 1 6 , 4 * * * * 2 0 , 3 2 0 , 4
1 7 , 3 1 7 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 4
3 0 1 3 , 3 * * * * 2 2 , 0 1 9 , 5
1 7 , 6 1 6 , 9 * * * * * * * * * * * *
* * * * * * * * * * * * 1 7 , 9
3 1 1 5 , 3 * * * * 2 2 , 3 * * * *
1 7 , 5 * * * * * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 4
S U M 5 6 9 , 5 4 4 9 , 1 6 2 4 , 1 5 7 3 , 0
5 7 9 , 0 4 8 5 , 1 * * * * * * * * * * * *
* * * * * * * * * * * * 3 2 7 9 , 8
M E D 1 8 , 4 1 6 , 0 2 0 , 1 1 9 , 1
1 8 , 7 1 6 , 2 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 , 1
M A X 2 4 , 1 2 1 , 5 2 2 , 9 2 2 , 9
2 0 , 8 1 9 , 8 * * * * * * * * * * * *
* * * * * * * * * * * * 2 4 , 1
M I N 1 2 , 5 1 2 , 6 1 4 , 0 1 2 , 5
1 6 , 9 1 0 , 4 * * * * * * * * * * * *
* * * * * * * * * * * * 1 0 , 4
N 3 1 , 0 2 8 , 0 3 1 , 0 3 0 , 0
3 1 , 0 3 0 , 0 * * * * * * * * * * * *
* * * * * * * * * * * * 1 8 1 , 0
ÿþD A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E
D I A R I A ( º C ) ( A Ñ O : 1 9 7 2 )
A l t u r a m / s / n / m : 3 3 2 0 L o n g i t u d O e s t e : 6 5 º
4 1 ' 0 0 " L a t i t u d S u d : 1 7 º 4 5 ' 0 0 "
P r o v i n c i a : M i z q u e E s t a c i ó n :
A l a l a y D e p a r t a m e n t o : C o c h a b a m b a
A ñ o :
P a r á m e t r o s M e t e o r o l ó g i c o s :
E s t a c i o n e s :
R e t o r n a r P r i n c i p a l < I W L I N K 1 >
D I A E N E F E B M A R A B R M A Y J U N J U L A G O S E P
O C T N O V D I C T O T A L
1 1 8 , 9 2 3 , 1 1 9 , 0 1 9 , 0
1 9 , 5 1 4 , 8 1 7 , 0 1 9 , 5 * * * *
2 0 , 8 2 2 , 0 2 2 , 4 1 9 , 6
2 1 9 , 2 1 4 , 6 1 8 , 8 1 9 , 4
1 8 , 6 1 6 , 6 1 6 , 3 1 9 , 1 * * * *
2 2 , 3 1 9 , 8 2 0 , 0 1 8 , 6
3 2 1 , 5 1 9 , 0 1 7 , 6 1 9 , 4
1 8 , 9 1 6 , 3 1 7 , 3 1 9 , 3 * * * *
2 1 , 4 1 6 , 5 2 1 , 4 1 9 , 0
4 2 0 , 7 1 8 , 5 1 9 , 8 1 5 , 3
1 8 , 5 1 7 , 0 1 7 , 4 1 5 , 3 * * * *
2 0 , 5 2 0 , 0 1 8 , 8 1 8 , 4
5 1 8 , 6 1 8 , 9 2 1 , 0 1 7 , 9
1 8 , 8 1 7 , 1 1 8 , 0 1 8 , 7 * * * *
1 9 , 8 2 0 , 0 1 9 , 5 1 8 , 9
6 1 3 , 5 2 0 , 6 2 2 , 1 1 7 , 4
1 8 , 6 1 6 , 8 1 8 , 6 1 7 , 6 * * * *
2 0 , 9 1 9 , 6 1 9 , 3 1 8 , 6
7 1 2 , 8 1 6 , 4 2 0 , 1 1 8 , 5
2 0 , 1 1 7 , 0 1 5 , 4 1 9 , 2 * * * *
1 9 , 3 2 1 , 0 1 9 , 4 1 8 , 1
8 1 3 , 4 1 9 , 4 1 9 , 4 1 9 , 8
1 8 , 1 1 7 , 4 1 6 , 2 1 9 , 6 * * * *
2 0 , 7 2 2 , 4 2 1 , 8 1 8 , 9
9 1 2 , 7 1 9 , 8 1 4 , 6 1 9 , 6
1 6 , 6 1 7 , 8 1 8 , 1 1 9 , 6 * * * *
2 0 , 6 2 2 , 8 1 3 , 8 1 7 , 8
1 0 1 6 , 4 1 8 , 8 1 2 , 5 1 9 , 6
1 9 , 5 1 7 , 1 1 7 , 4 1 9 , 1 * * * *
2 0 , 4 2 2 , 3 1 5 , 8 1 8 , 1
1 1 1 8 , 9 1 9 , 6 1 8 , 1 1 9 , 3
1 9 , 3 1 6 , 9 1 7 , 9 1 6 , 1 * * * *
2 0 , 1 2 2 , 3 1 8 , 5 1 8 , 8
1 2 1 9 , 9 1 8 , 6 1 8 , 0 2 0 , 8
1 7 , 0 1 6 , 3 1 6 , 8 1 7 , 8 * * * *
2 0 , 3 2 2 , 5 1 3 , 3 1 8 , 3
1 3 2 0 , 0 1 7 , 3 1 6 , 5 2 1 , 5
2 0 , 1 1 7 , 1 1 7 , 1 1 9 , 3 * * * *
2 0 , 5 2 3 , 3 1 6 , 4 1 9 , 0
1 4 1 7 , 1 1 3 , 8 1 7 , 0 2 1 , 4
1 9 , 1 1 5 , 9 1 7 , 8 1 9 , 5 * * * *
2 0 , 8 2 4 , 1 1 7 , 8 1 8 , 6
1 5 1 9 , 4 1 5 , 0 1 8 , 1 1 9 , 5
1 8 , 5 1 3 , 6 1 8 , 1 1 9 , 6 * * * *
2 0 , 8 2 0 , 5 1 7 , 6 1 8 , 2
1 6 1 7 , 7 1 4 , 1 1 8 , 5 2 1 , 1
1 8 , 6 1 4 , 0 1 8 , 2 1 9 , 3 * * * *
1 8 , 9 2 2 , 1 1 7 , 3 1 8 , 2
1 7 1 5 , 3 1 6 , 1 1 8 , 0 2 0 , 6
2 0 , 0 1 1 , 6 1 7 , 1 1 6 , 8 * * * *
2 1 , 5 1 7 , 0 1 4 , 4 1 7 , 1
1 8 1 7 , 0 1 5 , 9 1 3 , 9 2 0 , 6
1 6 , 6 1 5 , 0 1 6 , 5 1 4 , 4 * * * *
2 2 , 4 1 7 , 6 1 3 , 3 1 6 , 7
1 9 1 5 , 9 1 6 , 3 1 7 , 3 2 0 , 9
1 6 , 9 1 5 , 4 1 7 , 3 1 3 , 9 * * * *
2 2 , 3 2 3 , 3 1 5 , 5 1 7 , 7
2 0 1 4 , 1 1 9 , 3 1 7 , 6 2 0 , 8
1 8 , 0 1 5 , 2 1 8 , 5 1 6 , 9 * * * *
2 0 , 9 1 6 , 3 1 8 , 9 1 7 , 9
2 1 1 4 , 9 1 9 , 9 1 8 , 5 1 9 , 1
1 7 , 2 1 5 , 9 1 8 , 1 1 9 , 0 * * * *
2 2 , 5 1 7 , 8 1 8 , 8 1 8 , 3
2 2 1 7 , 1 1 7 , 0 1 8 , 8 1 8 , 3
1 6 , 4 1 4 , 3 1 8 , 4 1 8 , 0 * * * *
2 0 , 0 1 9 , 4 2 0 , 6 1 8 , 0
2 3 1 8 , 9 1 7 , 1 2 0 , 1 1 9 , 6
1 8 , 0 1 4 , 9 1 8 , 3 2 1 , 8 * * * *
2 0 , 3 2 2 , 2 2 1 , 3 1 9 , 3
2 4 1 9 , 9 1 4 , 3 2 1 , 1 1 9 , 4
1 6 , 4 1 5 , 3 1 9 , 4 1 8 , 6 * * * *
2 1 , 6 2 1 , 0 1 7 , 1 1 8 , 6
2 5 1 7 , 4 1 3 , 0 1 6 , 0 1 7 , 7
1 6 , 8 1 5 , 3 1 8 , 8 1 7 , 3 * * * *
2 2 , 1 2 0 , 9 1 5 , 8 1 7 , 4
2 6 1 7 , 9 1 5 , 0 1 7 , 8 1 9 , 6
1 7 , 6 1 5 , 3 1 9 , 0 1 1 , 1 * * * *
2 1 , 4 2 1 , 8 1 7 , 8 1 7 , 7
2 7 1 5 , 0 1 6 , 1 1 8 , 8 1 5 , 1
1 7 , 8 1 5 , 8 1 8 , 5 1 6 , 0 * * * *
1 8 , 5 2 3 , 1 1 8 , 6 1 7 , 6
2 8 2 0 , 3 1 5 , 8 2 0 , 3 1 7 , 0
1 8 , 7 1 4 , 8 1 9 , 3 1 5 , 5 * * * *
1 2 , 5 2 3 , 3 2 0 , 3 1 8 , 0
2 9 1 8 , 0 1 9 , 1 1 7 , 3 1 8 , 4
1 8 , 8 1 6 , 9 1 8 , 6 1 6 , 4 * * * *
1 7 , 5 2 3 , 5 2 1 , 9 1 8 , 8
3 0 2 1 , 0 * * * * 1 7 , 9 1 8 , 6
1 8 , 0 1 7 , 0 1 8 , 5 1 2 , 2 * * * *
2 0 , 5 2 1 , 0 2 0 , 1 1 8 , 5
3 1 2 1 , 1 * * * * 1 8 , 5 * * * *
1 6 , 5 * * * * 1 9 , 8 1 4 , 7 * * * *
2 2 , 4 * * * * 1 9 , 8 1 9 , 0
S U M 5 4 4 , 5 5 0 2 , 4 5 6 3 , 0 5 7 5 , 2
5 6 3 , 5 4 7 4 , 4 5 5 3 , 7 5 4 1 , 2 * * * *
6 3 4 , 5 6 2 9 , 4
5 6 7 , 3 6 1 4 9 , 1
M E D 1 7 , 6 1 7 , 3 1 8 , 2 1 9 , 2
1 8 , 2 1 5 , 8 1 7 , 9 1 7 , 5 * * * *
2 0 , 5 2 1 , 0 1 8 , 3 1 8 , 3
M A X 2 1 , 5 2 3 , 1 2 2 , 1 2 1 , 5
2 0 , 1 1 7 , 8 1 9 , 8 2 1 , 8 * * * *
2 2 , 5 2 4 , 1 2 2 , 4 2 4 , 1
M I N 1 2 , 7 1 3 , 0 1 2 , 5 1 5 , 1
1 6 , 4 1 1 , 6 1 5 , 4 1 1 , 1 * * * *
1 2 , 5 1 6 , 3 1 3 , 3 1 1 , 1
N 3 1 , 0 2 9 , 0 3 1 , 0 3 0 , 0
3 1 , 0 3 0 , 0 3 1 , 0 3 1 , 0 * * * *
3 1 , 0 3 0 , 0 3 1 , 0 3 3 6 , 0
ÿþD A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E
D I A R I A ( º C ) ( A Ñ O : 1 9 7 3 )
A l t u r a m / s / n / m : 3 3 2 0 L o n g i t u d O e s t e : 6 5 º
4 1 ' 0 0 " L a t i t u d S u d : 1 7 º 4 5 ' 0 0 "
P r o v i n c i a : M i z q u e E s t a c i ó n :
A l a l a y D e p a r t a m e n t o : C o c h a b a m b a
A ñ o :
P a r á m e t r o s M e t e o r o l ó g i c o s :
E s t a c i o n e s :
R e t o r n a r P r i n c i p a l < I W L I N K 1 >
D I A E N E F E B M A R A B R M A Y J U N J U L A G O S E P
O C T N O V D I C T O T A L
1 1 8 , 8 2 0 , 9 1 8 , 8 1 7 , 6
1 9 , 5 1 4 , 5 1 4 , 0 1 1 , 8 1 3 , 4
1 9 , 3 1 9 , 8 1 9 , 8 1 7 , 4
2 1 7 , 4 2 1 , 3 1 6 , 2 1 7 , 9
1 9 , 6 1 4 , 3 1 4 , 8 1 1 , 9 1 5 , 9
1 9 , 8 1 8 , 9 1 5 , 4 1 6 , 9
3 2 0 , 8 2 2 , 3 1 7 , 6 1 8 , 4
1 6 , 8 1 4 , 5 1 5 , 2 1 3 , 8 1 6 , 6
1 9 , 7 2 0 , 9 2 0 , 5 1 8 , 1
4 1 5 , 4 1 6 , 3 1 2 , 5 1 8 , 9
1 8 , 3 1 5 , 1 1 6 , 2 1 3 , 1 1 7 , 8
2 0 , 3 2 2 , 3 2 2 , 9 1 7 , 4
5 2 0 , 3 1 6 , 6 1 4 , 0 1 7 , 5
1 8 , 4 1 5 , 6 1 6 , 1 1 2 , 8 1 8 , 6
2 0 , 7 2 0 , 3 1 9 , 9 1 7 , 6
6 2 2 , 0 1 4 , 4 1 4 , 5 1 8 , 6
1 8 , 1 1 5 , 8 1 4 , 8 1 3 , 4 1 6 , 3
2 0 , 9 2 1 , 8 2 3 , 5 1 7 , 8
7 2 2 , 1 1 6 , 3 1 5 , 1 1 7 , 0
1 9 , 4 1 5 , 1 1 6 , 3 1 3 , 3 1 7 , 1
2 0 , 1 1 7 , 8 2 1 , 5 1 7 , 6
8 2 1 , 9 1 5 , 0 1 5 , 6 1 7 , 4
2 0 , 5 1 6 , 4 1 6 , 1 1 4 , 8 1 7 , 6
2 0 , 5 2 1 , 3 1 7 , 4 1 7 , 9
9 2 1 , 6 1 9 , 6 1 7 , 1 1 6 , 9
1 9 , 5 1 5 , 5 1 6 , 8 1 5 , 8 1 8 , 0
2 1 , 5 1 8 , 9 2 0 , 3 1 8 , 5
1 0 2 0 , 0 2 0 , 3 1 8 , 3 1 7 , 7
1 8 , 6 1 5 , 8 1 6 , 1 1 3 , 5 1 9 , 6
1 8 , 3 1 4 , 0 1 9 , 9 1 7 , 7
1 1 2 0 , 3 1 9 , 0 1 8 , 1 1 7 , 8
1 7 , 0 1 6 , 4 1 6 , 1 1 3 , 0 2 0 , 5
2 0 , 5 1 6 , 9 2 0 , 0 1 8 , 0
1 2 1 7 , 2 1 9 , 4 1 9 , 0 1 6 , 5
1 8 , 5 1 5 , 3 1 6 , 2 1 4 , 6 2 1 , 1
1 7 , 3 1 6 , 5 2 1 , 1 1 7 , 7
1 3 2 2 , 3 2 0 , 0 1 9 , 0 1 8 , 9
1 7 , 3 1 5 , 7 1 5 , 9 1 4 , 8 2 0 , 5
1 1 , 0 1 1 , 8 2 0 , 4 1 7 , 3
1 4 1 9 , 0 1 5 , 4 1 9 , 6 1 9 , 3
1 7 , 5 1 5 , 9 1 2 , 6 1 5 , 3 2 0 , 3
1 4 , 9 1 6 , 9 2 0 , 7 1 7 , 3
1 5 1 4 , 6 1 8 , 0 2 0 , 3 1 9 , 3
1 8 , 3 1 5 , 1 1 2 , 0 1 5 , 3 1 9 , 5
1 5 , 6 1 8 , 3 2 0 , 7 1 7 , 2
1 6 1 8 , 0 1 9 , 5 1 8 , 2 1 6 , 1
1 8 , 6 1 5 , 4 1 2 , 5 1 5 , 5 1 9 , 1
2 0 , 5 2 0 , 8 1 8 , 3 1 7 , 7
1 7 1 9 , 8 1 9 , 0 1 9 , 8 1 7 , 0
1 7 , 9 1 4 , 3 1 2 , 6 1 5 , 3 2 0 , 4
1 9 , 3 2 1 , 4 2 0 , 5 1 8 , 1
1 8 1 7 , 0 1 4 , 5 1 8 , 1 1 6 , 9
1 8 , 1 1 2 , 0 1 2 , 9 1 5 , 3 1 8 , 9
1 8 , 0 1 9 , 5 1 6 , 8 1 6 , 5
1 9 1 7 , 1 1 6 , 6 1 7 , 5 1 7 , 5
1 8 , 6 1 0 , 9 1 3 , 3 1 2 , 4 1 7 , 9
2 0 , 3 1 5 , 4 1 3 , 3 1 5 , 9
2 0 1 5 , 1 2 0 , 5 1 8 , 9 1 7 , 9
1 7 , 5 1 1 , 6 1 3 , 6 1 3 , 5 1 8 , 4
1 9 , 8 1 7 , 0 1 3 , 8 1 6 , 5
2 1 1 7 , 5 2 2 , 0 1 9 , 5 1 8 , 4
1 7 , 0 1 1 , 8 1 3 , 0 1 7 , 3 1 6 , 7
2 3 , 1 1 8 , 1 1 8 , 0 1 7 , 7
2 2 2 1 , 8 2 1 , 8 1 8 , 3 1 9 , 6
1 6 , 4 1 3 , 7 1 3 , 4 1 5 , 5 1 7 , 6
2 3 , 4 2 0 , 5 1 8 , 3 1 8 , 4
2 3 2 2 , 6 1 8 , 3 1 7 , 2 1 9 , 9
1 7 , 1 1 3 , 1 1 3 , 7 1 6 , 0 1 9 , 4
2 1 , 5 2 2 , 8 1 8 , 3 1 8 , 3
2 4 2 0 , 5 2 0 , 5 1 9 , 1 1 9 , 4
1 6 , 8 1 2 , 7 1 3 , 4 1 8 , 6 1 9 , 3
1 6 , 5 2 2 , 5 1 6 , 7 1 8 , 0
2 5 1 8 , 5 1 7 , 9 1 9 , 0 1 9 , 9
1 7 , 6 1 2 , 3 1 3 , 3 1 7 , 7 1 6 , 5
2 0 , 4 2 1 , 8 1 9 , 3 1 7 , 8
2 6 1 8 , 3 1 8 , 1 1 6 , 0 1 7 , 8
1 6 , 6 1 2 , 4 1 3 , 3 1 6 , 8 1 4 , 8
1 4 , 6 2 2 , 9 1 5 , 8 1 6 , 4
2 7 1 8 , 0 1 8 , 1 1 6 , 4 1 9 , 0
1 6 , 9 1 2 , 8 1 4 , 2 1 8 , 5 1 8 , 3
2 0 , 6 2 2 , 4 1 8 , 1 1 7 , 8
2 8 1 8 , 9 1 8 , 8 1 6 , 8 1 9 , 3
1 7 , 3 1 4 , 4 1 3 , 9 1 4 , 3 1 9 , 5
2 1 , 6 2 3 , 4 1 3 , 8 1 7 , 7
2 9 2 0 , 5 * * * * 1 8 , 0 1 9 , 1
1 6 , 8 1 3 , 6 1 4 , 1 1 5 , 8 1 9 , 8
1 6 , 0 2 1 , 5 1 4 , 4 1 7 , 2
3 0 2 0 , 9 * * * * 1 9 , 5 1 7 , 5
1 5 , 4 * * * * 1 4 , 2 1 3 , 5 1 5 , 1
1 7 , 0 2 1 , 8 1 6 , 4 1 7 , 1
3 1 2 0 , 8 * * * * 1 7 , 6 * * * *
1 4 , 0 * * * * 1 4 , 1 1 0 , 0 * * * *
2 3 , 0 * * * * 1 8 , 8 1 6 , 9
S U M 5 9 9 , 0 5 2 0 , 4 5 4 5 , 6 5 4 5 , 0
5 4 9 , 9 4 1 2 , 0 4 4 4 , 7 4 5 3 , 2 5 4 4 , 5
5 9 6 , 0 5 8 8 , 2
5 7 4 , 6 6 3 7 3 , 1
M E D 1 9 , 3 1 8 , 6 1 7 , 6 1 8 , 2
1 7 , 7 1 4 , 2 1 4 , 3 1 4 , 6 1 8 , 2
1 9 , 2 1 9 , 6 1 8 , 5 1 7 , 5
M A X 2 2 , 6 2 2 , 3 2 0 , 3 1 9 , 9
2 0 , 5 1 6 , 4 1 6 , 8 1 8 , 6 2 1 , 1
2 3 , 4 2 3 , 4 2 3 , 5 2 3 , 5
M I N 1 4 , 6 1 4 , 4 1 2 , 5 1 6 , 1
1 4 , 0 1 0 , 9 1 2 , 0 1 0 , 0 1 3 , 4
1 1 , 0 1 1 , 8 1 3 , 3 1 0 , 0
N 3 1 , 0 2 8 , 0 3 1 , 0 3 0 , 0
3 1 , 0 2 9 , 0 3 1 , 0 3 1 , 0 3 0 , 0
3 1 , 0 3 0 , 0 3 1 , 0 3 6 4 , 0
ÿþD A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E
D I A R I A ( º C ) ( A Ñ O : 1 9 7 4 )
A l t u r a m / s / n / m : 3 3 2 0 L o n g i t u d O e s t e : 6 5 º
4 1 ' 0 0 " L a t i t u d S u d : 1 7 º 4 5 ' 0 0 "
P r o v i n c i a : M i z q u e E s t a c i ó n :
A l a l a y D e p a r t a m e n t o : C o c h a b a m b a
A ñ o :
P a r á m e t r o s M e t e o r o l ó g i c o s :
E s t a c i o n e s :
R e t o r n a r P r i n c i p a l < I W L I N K 1 >
D I A E N E F E B M A R A B R M A Y J U N J U L A G O S E P
O C T N O V D I C T O T A L
1 1 9 , 3 1 6 , 8 1 9 , 3 1 6 , 0
1 5 , 9 1 7 , 6 1 8 , 4 1 7 , 3 1 6 , 2
1 7 , 5 1 7 , 8 2 2 , 4 1 7 , 9
2 2 0 , 8 * * * * 1 7 , 3 1 6 , 9
1 5 , 9 1 6 , 5 1 6 , 3 1 7 , 5 1 7 , 4
1 8 , 2 1 9 , 6 1 6 , 7 1 7 , 6
3 1 8 , 8 * * * * 1 4 , 1 1 7 , 0
1 5 , 9 1 4 , 0 1 6 , 1 1 4 , 8 1 7 , 3
1 9 , 8 2 1 , 7 1 3 , 8 1 6 , 7
4 1 8 , 2 * * * * 1 6 , 2 1 4 , 9
1 5 , 6 1 5 , 2 1 6 , 4 1 5 , 8 1 8 , 6
1 6 , 3 1 9 , 9 1 7 , 1 1 6 , 7
5 2 0 , 3 * * * * 1 5 , 3 1 2 , 5
1 6 , 5 1 4 , 8 1 6 , 4 1 5 , 4 1 7 , 1
1 3 , 0 2 0 , 5 1 6 , 6 1 6 , 2
6 1 5 , 1 1 6 , 6 1 7 , 8 1 3 , 8
1 6 , 4 1 7 , 8 1 3 , 8 1 4 , 8 1 7 , 1
1 1 , 1 1 5 , 9 1 9 , 5 1 5 , 8
7 1 8 , 0 1 5 , 5 1 6 , 8 1 5 , 3
1 6 , 0 1 6 , 9 1 4 , 9 1 1 , 6 1 6 , 8
9 , 4 1 8 , 5 2 0 , 4 1 5 , 8
8 1 7 , 9 1 6 , 1 1 7 , 0 1 9 , 8
1 5 , 5 1 1 , 3 1 5 , 4 1 2 , 6 1 6 , 0
1 3 , 4 1 2 , 2 2 1 , 2 1 5 , 7
9 1 7 , 5 1 4 , 3 1 7 , 5 1 7 , 4
1 5 , 3 1 3 , 1 1 6 , 8 8 , 5 1 6 , 9
1 5 , 9 1 2 , 8 1 8 , 5 1 5 , 4
1 0 1 6 , 8 1 5 , 1 1 6 , 5 1 4 , 1
1 5 , 3 1 3 , 8 1 6 , 9 1 1 , 9 1 6 , 3
1 5 , 3 1 7 , 5 1 6 , 8 1 5 , 5
1 1 1 7 , 0 1 6 , 0 1 5 , 4 1 5 , 6
1 4 , 6 1 5 , 8 1 6 , 8 1 3 , 1 1 9 , 1
1 5 , 1 1 9 , 8 1 7 , 6 1 6 , 3
1 2 1 7 , 5 1 7 , 3 1 6 , 8 1 5 , 5
1 4 , 0 1 6 , 5 1 7 , 6 9 , 9 1 9 , 1
1 6 , 8 1 9 , 4 1 5 , 4 1 6 , 3
1 3 1 7 , 8 1 4 , 7 1 6 , 4 1 5 , 0
1 4 , 4 1 5 , 8 1 8 , 6 1 4 , 0 2 0 , 0
1 7 , 0 1 8 , 1 1 2 , 1 1 6 , 2
1 4 1 1 , 2 1 5 , 8 1 7 , 1 1 5 , 5
1 4 , 6 1 7 , 6 1 8 , 8 1 4 , 6 1 7 , 5
1 6 , 8 2 0 , 3 1 2 , 8 1 6 , 0
1 5 1 4 , 2 1 6 , 6 1 7 , 3 1 6 , 8
1 4 , 0 1 8 , 5 1 8 , 5 1 5 , 4 1 7 , 8
1 6 , 7 2 0 , 5 1 6 , 1 1 6 , 9
1 6 1 6 , 1 1 5 , 3 1 6 , 8 1 7 , 9
1 5 , 1 1 8 , 2 1 6 , 1 1 4 , 9 1 6 , 0
* * * * 1 9 , 1 1 7 , 4 1 6 , 6
1 7 1 8 , 4 1 5 , 3 1 9 , 3 1 7 , 3
1 4 , 3 1 7 , 1 1 5 , 0 1 7 , 2 1 6 , 0
* * * * 2 0 , 3 1 5 , 3 1 6 , 9
1 8 1 7 , 8 1 7 , 8 1 6 , 1 1 7 , 9
1 4 , 4 1 6 , 4 1 5 , 1 1 2 , 0 1 6 , 6
* * * * 2 2 , 1 1 1 , 8 1 6 , 2
1 9 1 4 , 0 1 7 , 6 1 4 , 8 1 6 , 6
1 4 , 8 1 6 , 1 1 6 , 1 1 4 , 7 1 8 , 5
1 7 , 6 2 1 , 3 1 5 , 0 1 6 , 4
2 0 1 5 , 4 1 7 , 8 1 7 , 0 1 7 , 5
1 5 , 6 1 7 , 1 1 6 , 9 1 6 , 5 1 9 , 3
1 5 , 8 2 2 , 6 1 6 , 8 1 7 , 4
2 1 1 3 , 5 1 5 , 7 1 5 , 4 1 8 , 3
1 6 , 1 1 6 , 9 1 6 , 4 1 3 , 6 1 7 , 8
1 8 , 3 2 0 , 7 1 5 , 9 1 6 , 6
2 2 1 4 , 5 1 6 , 4 1 5 , 8 1 7 , 5
1 4 , 9 1 5 , 4 1 5 , 2 1 4 , 4 1 8 , 0
1 8 , 8 1 3 , 4 2 0 , 4 1 6 , 2
2 3 1 4 , 6 1 7 , 9 1 4 , 4 1 6 , 5
1 5 , 8 1 6 , 0 1 5 , 5 1 6 , 6 1 5 , 3
2 0 , 1 1 8 , 3 1 8 , 8 1 6 , 6
2 4 1 3 , 8 1 6 , 6 1 6 , 5 1 6 , 0
1 5 , 0 1 5 , 8 1 6 , 0 1 7 , 8 1 6 , 7
1 7 , 3 2 3 , 3 1 9 , 7 1 7 , 0
2 5 1 4 , 6 1 6 , 3 1 6 , 8 1 3 , 6
1 5 , 5 1 6 , 3 1 6 , 4 1 6 , 0 1 5 , 3
1 8 , 1 2 1 , 6 1 9 , 6 1 6 , 7
2 6 1 4 , 0 1 8 , 0 1 7 , 0 1 4 , 9
1 5 , 3 1 5 , 7 1 8 , 5 1 5 , 9 1 6 , 5
1 7 , 1 2 1 , 6 2 1 , 4 1 7 , 2
2 7 1 3 , 9 1 8 , 1 1 7 , 6 1 4 , 5
1 3 , 8 1 5 , 8 1 7 , 5 1 8 , 2 1 6 , 9
1 6 , 1 2 2 , 4 1 8 , 0 1 6 , 9
2 8 1 3 , 0 1 9 , 3 1 8 , 0 1 5 , 4
1 3 , 9 1 6 , 4 1 7 , 5 1 7 , 6 1 7 , 2
2 0 , 1 2 1 , 1 1 4 , 8 1 7 , 0
2 9 1 4 , 9 * * * * 1 6 , 4 1 5 , 8
1 7 , 3 1 6 , 5 1 7 , 3 1 7 , 4 1 4 , 5
1 9 , 8 2 3 , 4 1 6 , 9 1 7 , 3
3 0 1 4 , 8 * * * * 1 7 , 8 1 5 , 5
1 6 , 1 1 5 , 0 1 7 , 0 1 7 , 3 1 7 , 8
1 1 , 9 2 4 , 6 1 8 , 9 1 7 , 0
3 1 1 5 , 9 * * * * 1 9 , 4 * * * *
1 6 , 6 * * * * 1 7 , 3 1 7 , 5 * * * *
1 8 , 4 * * * * 1 7 , 0 1 7 , 4
S U M 4 9 9 , 6 3 9 6 , 9 5 1 9 , 9 4 8 1 , 3
4 7 4 , 4 4 7 9 , 9 5 1 5 , 5 4 6 4 , 8 5 1 5 , 6
4 6 1 , 7 5 9 0 , 3
5 3 4 , 7 5 9 3 4 , 6
M E D 1 6 , 1 1 6 , 5 1 6 , 8 1 6 , 0
1 5 , 3 1 6 , 0 1 6 , 6 1 5 , 0 1 7 , 2
1 6 , 5 1 9 , 7 1 7 , 2 1 6 , 6
M A X 2 0 , 8 1 9 , 3 1 9 , 4 1 9 , 8
1 7 , 3 1 8 , 5 1 8 , 8 1 8 , 2 2 0 , 0
2 0 , 1 2 4 , 6 2 2 , 4 2 4 , 6
M I N 1 1 , 2 1 4 , 3 1 4 , 1 1 2 , 5
1 3 , 8 1 1 , 3 1 3 , 8 8 , 5 1 4 , 5 9 , 4
1 2 , 2 1 1 , 8 8 , 5
N 3 1 , 0 2 4 , 0 3 1 , 0 3 0 , 0
3 1 , 0 3 0 , 0 3 1 , 0 3 1 , 0 3 0 , 0
2 8 , 0 3 0 , 0 3 1 , 0 3 5 8 , 0
ÿþD A T O S D E : T E M P E R A T U R A M E D I A A M B I E N T E
D I A R I A ( º C ) ( A Ñ O : 1 9 7 5 )
A l t u r a m / s / n / m : 3 3 2 0 L o n g i t u d O e s t e : 6 5 º
4 1 ' 0 0 " L a t i t u d S u d : 1 7 º 4 5 ' 0 0 "
P r o v i n c i a : M i z q u e E s t a c i ó n :
A l a l a y D e p a r t a m e n t o : C o c h a b a m b a
A ñ o :
P a r á m e t r o s M e t e o r o l ó g i c o s :
E s t a c i o n e s :
R e t o r n a r P r i n c i p a l < I W L I N K 1 >
D I A E N E F E B M A R A B R M A Y J U N J U L A G O S E P
O C T N O V D I C T O T A L
1 * * * * 1 8 , 0 1 5 , 9 1 7 , 8
1 7 , 0 1 6 , 5 1 3 , 5 1 7 , 8 1 6 , 3
1 6 , 9 1 9 , 8 1 2 , 3 1 6 , 5
2 * * * * 1 3 , 1 1 7 , 4 1 3 , 6
1 6 , 3 1 3 , 5 1 4 , 0 1 7 , 2 1 6 , 4
1 8 , 4 2 0 , 1 1 7 , 9 1 6 , 2
3 * * * * 1 4 , 4 1 9 , 4 1 7 , 3
1 6 , 1 1 4 , 6 1 2 , 8 1 6 , 0 1 5 , 1
1 7 , 8 1 9 , 4 1 5 , 8 1 6 , 2
4 * * * * 1 4 , 5 2 0 , 0 1 8 , 0
1 6 , 4 1 7 , 3 1 4 , 6 1 7 , 7 1 8 , 2
1 8 , 9 1 6 , 3 1 7 , 4 1 7 , 2
5 * * * * 1 6 , 0 1 8 , 5 1 7 , 9
1 6 , 3 1 8 , 1 1 2 , 8 1 5 , 0 1 8 , 5
1 7 , 8 2 0 , 8 1 8 , 3 1 7 , 3
6 * * * * 1 7 , 1 1 4 , 0 1 7 , 8
1 8 , 1 1 6 , 2 1 3 , 3 1 5 , 5 1 6 , 4
1 9 , 3 2 0 , 0 1 9 , 5 1 7 , 0
7 * * * * 1 8 , 8 1 2 , 0 2 0 , 6
1 8 , 0 1 5 , 6 1 4 , 3 1 6 , 0 1 5 , 4
1 7 , 0 1 9 , 7 1 3 , 0 1 6 , 4
8 * * * * 1 3 , 9 1 5 , 9 1 7 , 1
1 9 , 2 1 5 , 4 1 5 , 2 1 4 , 0 1 6 , 6
1 6 , 0 1 9 , 6 1 8 , 0 1 6 , 4
9 * * * * 1 6 , 3 2 0 , 3 1 7 , 3
1 9 , 0 1 7 , 5 1 5 , 9 1 6 , 0 1 6 , 0
1 5 , 4 1 7 , 3 1 4 , 0 1 6 , 8
1 0 * * * * 1 5 , 1 1 7 , 8 1 8 , 4
1 8 , 2 1 7 , 0 1 5 , 9 1 5 , 8 1 5 , 5
1 9 , 3 1 6 , 4 1 8 , 7 1 7 , 1
1 1 * * * * 1 6 , 5 1 6 , 9 1 1 , 8
1 8 , 5 1 8 , 4 1 5 , 5 1 6 , 0 1 6 , 6
1 9 , 6 1 4 , 5 1 5 , 6 1 6 , 4
1 2 * * * * 1 8 , 8 2 0 , 5 1 7 , 3
1 6 , 9 1 6 , 9 1 4 , 8 1 6 , 8 1 7 , 5
2 0 , 4 1 4 , 0 1 5 , 3 1 7 , 2
1 3 * * * * 1 6 , 8 1 5 , 8 1 9 , 8
1 5 , 9 1 5 , 8 8 , 0 1 3 , 3 1 8 , 0
2 0 , 6 1 8 , 3 1 3 , 2 1 6 , 0
1 4 * * * * 1 9 , 1 1 6 , 8 2 1 , 5
1 5 , 8 1 5 , 9 1 6 , 0 1 6 , 8 1 5 , 1
2 0 , 0 2 0 , 3 1 7 , 0 1 7 , 7
1 5 * * * * 1 7 , 1 * * * * 1 7 , 3
1 7 , 0 1 4 , 9 1 4 , 3 1 6 , 5 1 4 , 3
1 8 , 4 2 0 , 8 1 5 , 4 1 6 , 6
1 6 * * * * 1 7 , 2 1 5 , 8 1 6 , 8
1 6 , 4 1 5 , 0 1 5 , 3 1 7 , 4 1 6 , 3
1 9 , 9 2 0 , 6 1 8 , 1 1 7 , 2
1 7 * * * * 1 3 , 3 1 8 , 3 1 8 , 5
1 7 , 1 1 5 , 3 1 4 , 1 1 6 , 9 1 5 , 9
1 7 , 0 1 6 , 4 1 9 , 4 1 6 , 6
1 8 * * * * 1 5 , 1 1 7 , 8 2 0 , 1
1 7 , 9 1 6 , 8 9 , 8 1 7 , 3 1 8 , 3
1 8 , 4 9 , 3 2 1 , 0 1 6 , 5
1 9 * * * * 1 5 , 0 9 , 3 2 0 , 8 1 7 , 8
1 6 , 0 1 3 , 1 1 7 , 8 1 7 , 9 1 9 , 0
1 8 , 8 1 7 , 4 1 6 , 6
2 0 * * * * 1 2 , 8 1 4 , 5 2 1 , 0
1 6 , 8 1 6 , 3 9 , 8 1 7 , 9 1 4 , 4
1 3 , 9 2 1 , 0 1 3 , 3 1 5 , 6
2 1 * * * * 1 5 , 9 1 8 , 1 2 1 , 3
1 5 , 5 1 3 , 0 1 4 , 0 1 6 , 4 1 5 , 8
1 0 , 3 2 0 , 4 1 7 , 2 1 6 , 2
2 2 * * * * 1 7 , 3 1 7 , 1 2 0 , 8
1 6 , 3 1 4 , 8 1 4 , 8 1 8 , 0 1 6 , 5
1 0 , 9 1 8 , 2 1 5 , 1 1 6 , 3
2 3 * * * * 1 6 , 9 1 7 , 4 1 5 , 0
1 5 , 3 1 4 , 3 5 , 5 1 7 , 1 1 4 , 5
1 1 , 4 1 9 , 9 1 1 , 8 1 4 , 5
2 4 * * * * 1 7 , 8 1 5 , 9 1 8 , 4
1 6 , 0 1 4 , 9 1 7 , 0 1 7 , 3 1 3 , 6
1 6 , 5 1 1 , 9 1 1 , 6 1 5 , 5
2 5 * * * * 1 4 , 6 1 8 , 6 1 5 , 6
1 6 , 6 1 4 , 7 1 9 , 5 1 7 , 1 1 0 , 8
1 8 , 7 1 0 , 8 1 8 , 3 1 5 , 9
2 6 * * * * 1 6 , 6 1 5 , 8 1 6 , 8
1 6 , 9 1 5 , 6 1 4 , 0 1 6 , 0 1 6 , 5
1 9 , 8 1 4 , 8 2 0 , 3 1 6 , 6
2 7 * * * * 1 3 , 5 1 8 , 3 1 6 , 4
1 7 , 1 1 4 , 5 1 3 , 9 1 7 , 6 1 8 , 0
2 0 , 6 1 5 , 6 1 8 , 0 1 6 , 7
2 8 * * * * 1 7 , 0 2 0 , 5 1 4 , 6
1 8 , 6 1 3 , 4 1 4 , 1 1 7 , 1 1 8 , 0
2 1 , 3 1 7 , 6 9 , 9 1 6 , 6
2 9 * * * * * * * * 2 0 , 1 1 7 , 0
1 6 , 4 1 4 , 5 1 4 , 9 1 7 , 1 1 7 , 8
2 1 , 0 1 6 , 9 1 4 , 5 1 7 , 0
3 0 * * * * * * * * 1 8 , 9 1 7 , 2
1 6 , 6 1 3 , 3 1 6 , 0 1 7 , 5 1 5 , 6
1 9 , 8 1 0 , 5 1 2 , 8 1 5 , 8
3 1 * * * * * * * * 1 7 , 7 * * * *
1 6 , 6 * * * * 1 5 , 0 1 7 , 8 * * * *
1 8 , 5 * * * * 1 3 , 3 1 6 , 5
S U M * * * * 4 4 8 , 5 5 1 5 , 3 5 3 3 , 8
5 2 6 , 6 4 6 6 , 0 4 3 1 , 7 5 1 6 , 7 4 8 5 , 8
5 5 2 , 8 5 2 0 , 0
4 9 3 , 4 5 4 9 0 , 6
M E D * * * * 1 6 , 0 1 7 , 2 1 7 , 8
1 7 , 0 1 5 , 5 1 3 , 9 1 6 , 7 1 6 , 2
1 7 , 8 1 7 , 3 1 5 , 9 1 6 , 5
M A X * * * * 1 9 , 1 2 0 , 5 2 1 , 5
1 9 , 2 1 8 , 4 1 9 , 5 1 8 , 0 1 8 , 5
2 1 , 3 2 1 , 0 2 1 , 0 2 1 , 5
M I N * * * * 1 2 , 8 9 , 3 1 1 , 8 1 5 , 3
1 3 , 0 5 , 5 1 3 , 3 1 0 , 8 1 0 , 3 9 , 3
9 , 9 5 , 5
N * * * * 2 8 , 0 3 0 , 0 3 0 , 0
3 1 , 0 3 0 , 0 3 1 , 0 3 1 , 0 3 0 , 0
3 1 , 0 3 0 , 0 3 1 , 0 3 3 3 , 0
#!perl
#Programa p/ desagregar dados de PREC do SENAMHI/Bolivia em diarios
$dir =
"C:\\Users\\proclima\\Desktop\\dados_bolivia\\temperatura_media_ambiente";
$dirin =
"C:\\Users\\proclima\\Desktop\\dados_bolivia\\temperatura_media_ambiente\\dados_txt";
# dados de entrada
$dirout =
"C:\\Users\\proclima\\Desktop\\dados_bolivia\\temperatura_media_ambiente\\diarios";
# saida dos dados
system ("dir /B $dirin\\*.txt > $dir\\arquivos.dat");
# cria arquivo referencia dos arquivos
open IN, "<arquivos.dat";
# IN = arquivos.dat
@ndiasmes = (0,31,28,31,30,31,30,31,31,30,31,30,31);
# array com quant. dias nos meses do ano
while($nome=<IN>){
open EST,"<$dirin\\$nome";
print "Processando: $nome";
@aux1=split(/_/,$nome);
$cod=$aux1[0];
$ano=substr($aux1[1],0,4);
$ndiasmes[2] = 28;
if(isBissexto($ano)){
# verifica se ano é bissexto
$ndiasmes[2] = 29;
}
for($i = 0; $i < 11; $i++){
# pula linhas em branco
$linha=<EST>;
if($i==1){ #linha 2
@aux2=split(/:/,$linha);
$long=-((substr($aux2[2],0,3))+(substr($aux2[2],7,2))/60+(substr($aux2[2],11,2))/3600);
$lati=-((substr($aux2[3],0,3))+(substr($aux2[3],7,2))/60+(substr($aux2[3],11,2))/3600);
$elev=substr($aux2[1],0,5);
($elev=$elev)=~s/L//;
}
}
$cont=1;
if(($ano>=1970)&&($ano<=1990)){
while($linha=<EST>){
# linha recebe nome estação
@valores = split(/\s+/,$linha);
# guarda dados no array
$dia = $valores[0];
# pega o dia na coluna 1
if(($cont <= 31)&&($dia > 0)){
for($i=1;$i<=12;$i++){
#loop sobre os meses
if($cont<=$ndiasmes[$i]){
$mes = sprintf("%02d",$i);
$dia = sprintf("%02d",$dia);
$temp=$valores[$i];
if($temp ne "****"){
($temp = $temp) =~ s/,/./;
#troca , por .
$temp = sprintf("%10.4f",$temp);
$lati =
sprintf("%10.4f",$lati); # formatação
$long =
sprintf("%10.4f",$long); # formatação
$cod = sprintf("%30s",$cod);
$elev =
sprintf("%10.2f",$elev); # formatação
$aux1=sprintf("%5s",$dia);
if($temp >= 50){
open(PROBLEM,
">>${dir}\\Problemas_com_dados_Temp.txt");
print PROBLEM
"$cod$lati$long$temp$elev$aux1-$mes-$ano \n";
close PROBLEM;
}#if
open (TEMP,
">>${dirout}\\temp_$dia$mes$ano.dat");
print TEMP
"$cod$lati$long$temp$elev\n" ; # escreve em TEMP: o codigo, lat, long e
prec.
close TEMP;
}#if
}#if
}#for
$cont++;
}#if
}#while
}#if
close EST;
}#while
close IN;
system ("rm -f $dir\\arquivos.dat");
exit;
sub isBissexto{
# retorna 1, se for bissexto
$ano = $_[0];
if ($ano%400==0){
return 1;
}elsif ($ano%4==0 && $ano%100!=0){
return 1;
}else{
return 0;
}
}
=begin disclaimer
Sao Paulo Perl Mongers: http://sao-paulo.pm.org/
SaoPaulo-pm mailing list: [email protected]
L<http://mail.pm.org/mailman/listinfo/saopaulo-pm>
=end disclaimer
