Lire une chaîne de caractères à terminaison nulle dans un fichier bin

Question

Je veux lire une chaîne de caractères à partir d'un fichier bin (la chaîne commence à partir d'un offset fixe et se termine par un caractère nul).

Comment puis-je faire cela dans un script Perl ?

Answer 1

seek dans la bonne position si nécessaire, puis utiliser :

my $str;
{ local $/ = "\0"; $str = <$fh>; }
die "Premature EOF" if !defined($str) || $str !~ /\0\z/;
chop($str);