Using perl Syntax Highlighting
- print savewords("test.txt");
- sub savewords {
- my @words;
- my $r;
- open( FILE, $_[0] );
- @words = <FILE>;
- close FILE;
- for (@words) {
- $r .= $r + $_;
- }
- return ($r);
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
¿ Alguien me puede ayudar ?