Problem mit pack

Ich habe da ein Problem mit pack.

Ich versuche einen Counter 0 - Irgendwas und weitere Felder zu einem
Binary zu machen.
Jedoch habe ich bei dem Counter, wenn der Wert = 10 ist, das Problem das
pack nicht "0A" sonder "0D 0A" draus macht und statt vier sogar fünf
byte schreibt.

# Plattform Win32
use strict;
my $count = 0;
my $bis = 100;
open(FILE_EXP, ">out.dat") || die "Fehler : Kann out.dat nicht schreiben
!";
while ($count <= $bis) {
print FILE_EXP pack("L", $count);;
$count ++;
}
close(FILE_EXP);
#

out.dat Pos. 28 -2C

Ist das ein Bug oder habe ich nur einen Schalter übersehen ?

Gruss, Andreas
--
************************************************************ **********
Persönliche Antworten bitte an "a99b00c53@remote.dyndns.info"
Mails bitte nur als Plaintext Senden !!
Send Private-Messages only to "a99b00c53@remote.dyndns.info"
Please send only as Plaintext !!

Re: Problem mit pack

Andreas Krueger!

> Ich habe da ein Problem mit pack.

Nein, Du hast ein Problem mit Windows.

perldoc -f binmode


Gruß
Daniel

Re: Problem mit pack

Daniel Fischer wrote:
> Andreas Krueger!
>
>> Ich habe da ein Problem mit pack.
> Nein, Du hast ein Problem mit Windows.
> perldoc -f binmode
>

Und ich war immer der Meinung einer der wenigen zu sein, die mit Windows
kein Problem haben ;-)

Danke, das war's

Gruss, Andreas

--
************************************************************ **********
Persönliche Antworten bitte an "a99b00c53@remote.dyndns.info"
Mails bitte nur als Plaintext Senden !!
Send Private-Messages only to "a99b00c53@remote.dyndns.info"
Please send only as Plaintext !!