Ecrire en fichier binaire

**Ph.denis** · 23/08/2009, 17h13

Bonjour à tous,

Je souhaiterais écrire un "VRAIE" fichier binaire. C'est à dire que si j'écris un "1" ou un "0", perl ne me les code pas en ASCII.

Pour le moment j'utilise ceci pour créer mon fichier :

Code :

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

1
2
open (COMPRESSE, '>', "result.bin") or die("erreur fichier\n");
binmode COMPRESSE;

et j'écris dedans comme ceci :

Code :

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

print COMPRESSE "1"

Malheureusement quand je regarde dans les propriétés du fichier créée, il y a tout qui est codé en ASCII donc un "1" ou un "0" prend un octet...

Savez-vous s'il est possible de faire cela?

Merci beaucoup

**Jedai** · 23/08/2009, 20h19

Au lieu d'utiliser binmode(), tu peux ouvrir directement le fichier en mode binaire :

Code :

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

1
2
open my($compact_file), '>:raw', "result.bin"
  or die "erreur fichier : $!\n";

Par ailleurs on ne peux pas écrire un simple bit vers un fichier sur le disque, il faut écrire un octet entier (aucun lien avec Perl, c'est un problème de matériel). C'est pourquoi il va te falloir maintenir un tampon qui s'abstiendra d'écrire tant qu'il n'a pas un octet entier à écrire, par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
package BinaryWriter;
use strict; use Carp;
 
use base 'Exporter';
our @EXPORT = qw(start_binary_writing);
 
sub start_binary_writing {
  my $file = shift;
  my @buffer = ();
  my $count = 0;
  my $finished = 0;
 
  my $writer = sub {
    carp "This file has been finalized, you can't write on it anymore.\n"
      if $finished;
    $count += @_;
    push @buffer, @_;
    while( $count >= 8 ) {
      my @octet = splice @buffer, 0, 8;
      $count -= 8;
      print {$file} (pack 'B8', (join '', @octet));
    }
  };
 
  my $finish = sub {
    print {$file} (pack 'B*', (join '', @buffer));
    $finished = 1;
  };
 
  return ($writer, $finish);
}
 
1;
__DATA__

Puis tu utilises ce module comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#!/usr/bin/env perl
use strict; use warnings;
 
use BinaryWriter;
 
open my($compact_file), '>:raw', "result.bin"
  or die "erreur fichier : $!\n";
 
my ($w, $f) = start_binary_writing $compact_file;
 
$w->(0,1,1,0,0,0,0,1);
 
$w->(0,1,1,0,0,0,1);
 
$f->();
 
close $compact_file;
 
__END__

(si tu écrit déjà tes "bits" par groupe de multiples de 8, tu peux juste utiliser pack directement)

--
Jedaï

PS : Remarque qu'en fait il est extrêmement rare d'avoir besoin ou qu'il soit souhaitable d'écrire bit à bit, donc peut-être que si tu nous disais ce que tu essaies de faire, nous pourrions t'orienter vers une solution un peu moins sauvage...