Using perl Syntax Highlighting
- open FICHERO, "def.txt";
- while($dd = <FICHERO>) {
- chop($dd);
- my @capturados = $dd =~ /[(.+?)]/g;
- # hago operaciones con @capturados
- # aquí quisiera vaciar el array @capturados para que no influya en la
- # siguiente ronda de while()
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Saludos a todos.