Associer un fichier à un tableau

Parmis les modules apparus dans Perl-5.8, on trouve Tie::File. Ce dernier permet de lier un fichier avec un tableau. On oublie la fonction open() pour travailler avec une couche d'abstraction.

On ne travaille plus sur un fichier, on travaille vraiment avec un tableau et toutes les opérations appliquées au tableau le sont également au fichier.

use Tie::File;

my @file;

tie(@file,'Tie::File',$ARGV[0]) or die $!;

for(my $i = 0; $i <= $#file; $i++) {
        $file[$i] =~ s/e/a/g;
}

untie(@file);