Discussion :

[danathane]

Salut tout le monde!!!

Voilà j'ai fait uen recherche rapide sur le site sans trop trouver de réponse à ma question qui me semble un peu bète.. mais bon.

Voilà j'ai un client TCP qui recçoit en permanence des bloc de 512 octets. J'ai dumper ces infos direct dans un fichier text.
Maintenant j'aimerais lire ces infos par bloc de 512 octets. ou 1024 caractère hexa.
Donc en utilisant unpack("H1024",$stream) ca me sort des paquet de 1024 hexa. le soucis, c'est que je n'arrive pas à faire la boucle while.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
tant que (non end of file){
 
 
$stream =unpack("H1024",$file);
traitement($stream);
 
}

Ce code marche pas des masse.. donc si vous avez des idées. je suis preneur.

Merci d'avance.

[Jedai]

$/ est la variable dite "séparateur d'enregistrement", par défaut elle vaut "\n" et <> lit ligne par ligne, mais on peut lui donner d'autres valeurs. en particulier si on lui donne une référence sur un nombre, alors <> lit des blocs de caractères de la longueur donnée.

Donc par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
open my($tcp_dump), '<', $filename
  or die "$filename : $!\n";
 
{ 
  local $/ = \512;
  while( my $block = <$tcp_dump> ) {
    my $stream = unpack( 'H1024', $block );
    # handle $stream
  }
}
 
close $tcp_dump;

--
Jedaï