[PERL] lire un fichier bytes à bytes

Bonjour à tous,
Existe il une méthode pour lire une fichier bytes à bytes et placé le contenu dans un buffer ??
Merci pour vos réponses !

Ahh, la fonction sysread existe pour cela:

Code:

---

1 2 3 4 5 6 7 8 9

my $buffer; my $buffer_size=1; open(FIC,"./TEST.txt"); while(sysread(FIC,$buffer,$buffer_size)) { print STDOUT $buffer; } close(FIC);

---

Je ne supprime pas le post au cas où quelqu'un en aurait besoin.

Bonne fin de matinée.