Pablo de Sa

Relaxa cara eu entendo isso sim, não tem problema o tempo não. Mas ficou mt legal o seu script, p**** agora eu entendi direitinho como ficou. Valeu mesmo Fvox, isso me ajudou mt cara. Conseguir reduzir o tempo de execução do meu script em 1hora e 3 min. p**** mt melhor agora. Brigadao.

Fvox, parece que funcionou sim. Se eu trocar o "|" por " " fica exatamente do jeito que eu preciso. Vou fazer um teste com arquivo completo. Mas voce poderia me explicar umas coisas no script que eu não entendi muito bem. 1. O split esta quebrando a string em todos os espaços ou somente no espaço limite ? 2. porque o split tem limite 4 ? não entendi isso. 3. o que o pop ta fazendo ? Agradeço.

Fvox, obrigado pela resposta. Estou em reuniao no momento mais dentro de alguns minutos foi olhar o seu codigo e tentar entende-lo melhor e já lhe passo um feed back. Obrigado

Oi galera minha dúvida é a seguinte. Tenho uma serie de strings em arquivo de texto desta maneira. -1 30 -1 9 6 5 -1 33 14 -1 29 33 -1 31 -1 27 32 32 -1 31 -1 -1 33 30 então eu gostaria de fazer um split exatamente no terceiro espaço de cada linha. e utilizar apenas a primeira metade do split. De modo que minhas strings ficassem Assim. -1 30 -1 -1 33 14 -1 31 -1 -1 31 -1 alguém sabe me dizer como fazer esse split ? eu pesquisei que da pra fazer usando expressão regular, mas não sou mt experiente em perl e confesso que não consegui fazer. Agradesço a ajuda. PS: eu fiz um teste usando for, ate funcionou. Segue o pedaço do codigo abaixo my @str=split(' ', $_); for($i = 0; $i < scalar(@str)-3; $i++) { print "$str[$i] "; } mas como o arquivo de texto original tem aproximadamente 6GB fica muito ruim usar esse for pois estou demorando quase 3 horas para processar o arquivo. Por isso que gostaria de aprender a fazer o split no espaço especifico e otimizar o processo. Desde já muito obrigado.