Cuando en el operador de lectura <>
el argumento es una cadena glob
de descripción de ficheros con comodines, el globbing se produce automáticamente:
my $dir = "/home/casiano/"; my $dir_files = <$dir/* $dir/.*>;
También puede hacerse en un contexto de lista:
DB<1> @modules = <*.pm> DB<2> p "@modules" A.pm Abstract.pm B.pm C.pm DandC.pm Frac.pm Fraction.pm
En general, si el identificador entre ángulos es un filehandler, Perl hace un acceso a través de él, en caso contrario interpreta que se trata de una operación de globbing. Esto es asi, incluso si la lectura hace uso de un manipulador indirecto que use variables intermedias. Véase el siguiente ejemplo:
DB<1> $f = 'yapp' DB<2> @f = <$f/*.yp> DB<3> p "@f" yapp/aSb.yp yapp/Autoaction1.yp yapp/Calc.yp yapp/Calc2.yp DB<4> open F, 'logic.pl' DB<5> $x = F DB<6> @x = <$x> DB<7> p "@x" #!/usr/bin/perl -w $a = 4; $b = "hola"; $c = 0; $d = ""; print $a && $b,"\n"; print $a and $b,"\n"; print ($a and $b),"\n";
Casiano Rodríguez León