my $bufferbin;
my $oldbufferbin = "";
while (read FICHIER, $bufferbin, 4*1024){
my $fifo = $oldbufferbin.$bufferbin;
while ($fifo =~ /(\x1A\xCF\xFC\x1D.{2000,2100})\x1A\xCF\xFC\x1D/g){
my $cadu = 1ドル;
blablabla ....
}
$oldbufferbin = $bufferbin;
}
cela ressemble beaucoup à ton code. j'ai un problème par contre sur le while (/../g), j'ai un début de trame marqué par le code. Donc la fin de la trame est donné par le début de la trame suivante. Mais si j'utilise la regex d'en haut, la boucle suivante ne va pas matcher le début de la trame (qui la fin de la précédente). Il faudrait lui dire de revenir en arrière. Mais je n'ai pas encore trouvé comment.
[^] # Re: meuh
Posté par Nicolas Boulay (site web personnel) . En réponse au message parser un gros fichier. Évalué à 1.
my $bufferbin; my $oldbufferbin = ""; while (read FICHIER, $bufferbin, 4*1024){ my $fifo = $oldbufferbin.$bufferbin; while ($fifo =~ /(\x1A\xCF\xFC\x1D.{2000,2100})\x1A\xCF\xFC\x1D/g){ my $cadu = 1ドル; blablabla .... } $oldbufferbin = $bufferbin; }cela ressemble beaucoup à ton code. j'ai un problème par contre sur le while (/../g), j'ai un début de trame marqué par le code. Donc la fin de la trame est donné par le début de la trame suivante. Mais si j'utilise la regex d'en haut, la boucle suivante ne va pas matcher le début de la trame (qui la fin de la précédente). Il faudrait lui dire de revenir en arrière. Mais je n'ai pas encore trouvé comment."La première sécurité est la liberté"