my ($buffer, $chunk);
my $SEPARATOR = 'X'; # C'est ton séparateur de motifs
while (read F, $chunk, 4096)
{
die "Read problem" if not defined $chunk;
last if not $chunk;
$buffer .= $chunk;
if ($buffer =~ s/^([^SEPARATOR]*)$SEPARATOR//)
{
ProcessOneFrame (1ドル);
}
}
die "Incomplete Frame ??" if $buffer;
P.S. il faut faire le même genre de choses pour les paquets IP fragmentés, ils peuvent arriver en plusieurs fois, et il faut donc "recoller les morceaux"
# Une solution...
Posté par mac . En réponse au message parser un gros fichier. Évalué à 3.
my ($buffer, $chunk);
my $SEPARATOR = 'X'; # C'est ton séparateur de motifs
while (read F, $chunk, 4096)
{
die "Read problem" if not defined $chunk;
last if not $chunk;
$buffer .= $chunk;
if ($buffer =~ s/^([^SEPARATOR]*)$SEPARATOR//)
{
ProcessOneFrame (1ドル);
}
}
die "Incomplete Frame ??" if $buffer;
P.S. il faut faire le même genre de choses pour les paquets IP fragmentés, ils peuvent arriver en plusieurs fois, et il faut donc "recoller les morceaux"
P.P.S code pas testé