Using perl Syntax Highlighting
- opendir IN, 'carpeta1';
- my @array1 = grep { /^[^.]/ } readdir IN;
- closedir IN;
- opendir IN, 'carpeta2';
- my @array2 = grep { /^[^.]/ } readdir IN;
- closedir IN;
- for (@array1) {
- s/\.txt//;
- }
- for (@array2) {
- s/\.xml//;
- }
- my %array2_elements;
- @array2_elements{ @array2 } = ();
- my @array3 = grep ! exists $array2_elements{$_}, @array1;
- foreach (@array3) {print "$_\n";};
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
Sin embargo, las últimas líneas del script no son cosa mía. Simplemente copié y adapté un código que encontré en Internet para comparar arrays. Me gustaría entenderlo bien para saber usarlo y/o adaptarlo a otras necesidades en el futuro.
¿Alguien me podría explicar literalmente lo que quieren decir las líneas 18, 19 y 20 del código anterior? Soy consciente de que debo aprender a usar hashes en Perl.
Gracias.
