Using perl Syntax Highlighting
- @paginas = repes( cortar( savewords("paginas.txt") ) );
- print "uno : ".@paginas;
- @paginas = repes( cortar( savewords("paginas.txt") ) );
- print "dos : ".@paginas;
- sub savewords {
- my @words;
- my @r;
- open( FILE, $_[0] );
- @words = <FILE>;
- close FILE;
- for (@words) {
- push( @r, $_ );
- }
- return (@r);
- }
- sub repes {
- my @limpio;
- foreach $test (@_) {
- push @limpio, $test unless $repe{$test}++;
- }
- return @limpio;
- }
- sub cortar {
- my @nuevo;
- my @leer;
- for (@_) {
- if ( $_ =~ /=/ ) {
- @tengo = split( "=", $_ );
- push( @nuevo, @tengo[0] . "=" );
- }
- else {
- push( @nuevo, $_ );
- }
- }
- return @nuevo;
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
El tema es que siempre lee mal el segundo archivo.
¿ Qué error hay en el código ?