Lire depuis un fichier

Il existe un grand nombre de façons de faire en fonction du résultat voulu :

my $fd = FileHandle -> new("fichier",O_RDONLY) or die $!;

while(my $line = <$fd>)
{
        chomp($line); # retirer le caractere \n en fin de ligne
        # faire quelque chose avec $line
}

$fd -> close;

On peut aussi assigner directement tout un tableau et ensuite traiter chaque élément du tableau :

open(IN,"<fichier") or die $!;
my @tabular = <IN>;
close(IN);

foreach my $line(@tabular)
{
        chomp($line)
        # faire quelque chose avec $line
}

La commande sysread a la même réaction que la fonction read(2) du C.

On pourra trouver plus d'informations dans les man suivants :

• FileHandle(3)
• read(2)

Et la documentation Perl :

• perldoc -f chomp
• perldoc -f sysread