Discussion :

[pepito31]

Bonjour a tous
Ma requete est simple mais je n'arrive pas a trouver la solution sur le net.
J'aimerais creer un fichier binaire avec une taille définie, de 200ko par exemple.
Comment puis je le faire en PERL ?

(j'ai essayé le coup du

Code :

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

1
2
 
system(`dd if=$filein of=$fileout bs=1k count=200`);

mais il ne me sort qu'un fichier de sortie $fileout nul ?!
Autre solution plus simple peut-etre et plus efficace surtout ?
)


Merci pour votre aide
pepito31

[Schmorgluck]

Donc, ce que tu veux faire, ça n'est pas créer un nouveau fichier, mais faire une copie partielle d'un fichier existant, c'est bien ça ? Histoire qu'on se comprenne bien.

[pepito31]

Non non, pardon.
J'ai tenté le dd pour voir si ca pouvait marcher comme ca.

Non, ce que je voudrais, c'est creer un fichier binaire (qui n'existe donc pas) avec une taille en octet fixée. C'est tout.

Merci

[Schmorgluck]

Ah, alors je vois une solution possible utilisant la fonction pack. Je ne dis pas qu'elle est optimale, mais elle marche. Il y a sans doute mieux à utiliser dans un module ou un autre.
Voici comment je remplirais un fichier d'octets nuls :

Code :

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

print {$out} pack "c", 0 for(1..$size);

avec $out, bien sûr, comme handle d'un fichier ouvert en écriture, et $size la taille souhaitée (dans ton cas, 204800), pack "c",0 renvoyant un caractère nul.
Autre façon de procéder :

Code :

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

print {$out} pack "c*", map {0} (1..$size);

Ici, grâce au quantificateur * présent après le c dans le template, toute la liste qui suit, générée par map, est convertie en caractères signés. Je crois que c'est un brin plus propre que ma solution précédente, mais c'est juste une intuition.

[pepito31]

J'ai testé la premier solution et ca fonctionne (excepté les {} dans le print) :
voici le code qui marche pour générer un binaire via ta solution schmorgluck :

Code :

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

1
2
3
 open(BIN,">$myfile");
                 for (my $i = 0; $i < 1024*$Size; $i++) {print (BIN pack ("c",0));}
              close(BIN);

Merci encore pour ton aide.

PS (j'ai tenté la 2eme soluce avec le map, mais il ne veut pas du map{0}) ?
pepito

[Schmorgluck]

J'ai testé mes deux solutions, elles marchent sans problème, mais j'aurais dû indiquer comment j'ouvrais le fichier.

Code :

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

open my $out, ">$file";

Ce qui crée un handle de fichier indirect $out.
Quant au {0} dans map, il ne pose aucun problème, s'il y a problème il vient d'ailleurs. Tu n'aurais pas ajouté une virgule intempestive, des fois ?

Du reste, ta variante est correcte, y a pas, mais d'une façon générale il vaut mieux éviter, en Perl, de rester trop attaché aux syntaxes typiques du C, ça peut géner le raisonnement. En Perl on ne se sert généralement de cette forme de for que quand c'est indispensable.

[Jedai]

Le pack n'est pas vraiment utile ici :

Code :

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

1
2
3
4
open my($out), '>:raw', $file
  or die "$!\n";
print {$out} "\0" x (1024 * 200);
close $out;

--
Jedaï

[Schmorgluck]

Cette notation m'était complètement sorti de la tête. Comme quoi il vaut mieux ne pas tout oublier du C.