Using perl Syntax Highlighting
- open(WP, "/tmp/salida.txt");
- while (my $p = <WP>) {
- while ($p =~ m#((/\w*|/\w*/\w*|/\w*/\w*/\w*|/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*|/\w*/\w*/\w*/\w*/\w*/\w*)?/wp-content/)#g) {
- my $dir = $1;
- $directorios{ $dir } = 1;
- }
- }
- close(WP);
- my @directorios = keys %directorios;
- for my $dir (@directorios) {
- print $dir ."\n";
- }
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Gracias de antemano =^.^=
