El Operador chdir

El operador chdir nos permite cambiar de directorio dentro de la jerarquía de directorios. Estudie el siguiente ejemplo:

lhp@nereida:~/Lperl/src/dir$ cat -n chdir.pl
     1  #!/usr/bin/perl -w
     2  use strict;
     3
     4  my $directory = shift;
     5  my $expreg = (shift or '.*');
     6  $expreg = qr/$expreg/o;
     7  chdir $directory or die "no encuentro $directory: $!";
     8  my @files = `ls -a`;
     9  
    10  for (@files) {
    11    next unless /$expreg/;
    12    chop;
    13    printf "$_\n";
    14  }

Sigue un ejemplo de ejecución:

lhp@nereida:~/Lperl/src/dir$ chdir.pl /tmp/ '\d+$'
IO-Tty-1.02
Parallel-Simple-Pipe-0.01
ssh-eSbkNq1402
v274545