Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^6: 3-byte representation

by BrowserUk (Patriarch)
on Oct 13, 2011 at 15:40 UTC ( [id://931281]=note: print w/replies, xml ) Need Help??


in reply to Re^5: 3-byte representation
in thread 3-byte representation

do you have any idea for this strange behaviour ?

Frankly, no. When I run the version I posted on my system:

C:\test>del ch C:\test>type junk4.pl #!/usr/bin/perl use strict; srand(); my $fil = "ch"; open( OUT, '>>', $fil ) or die $!; binmode OUT; for my $i ( 1 .. 10_000 ) { my $j = int( rand( 20_000 ) ) + 440_000; my $k = substr( pack( 'l>', $j ), 1 ); print OUT $k; } close( OUT ); print "DONE !"; C:\test>junk4 DONE ! C:\test>dir ch Volume in drive C has no label. Volume Serial Number is 8C78-4B42 Directory of C:\test 13/10/2011 15:29 30,000 ch 1 File(s) 30,000 bytes 0 Dir(s) 119,252,598,784 bytes free

I get exactly the result you'd expect?

Are you running it via a webserver? If so, maybe that has something to do with it, but that's not my arena.


With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Replies are listed 'Best First'.
Re^7: 3-byte representation
by gerleu (Novice) on Oct 13, 2011 at 16:36 UTC

    Your code works perfectly on my system ! But if I replace

    open( OUT, '>>', $fil ) or die $!;
    by
    open(OUT, '>>'.$fil);
    then the problem occurs !

      That is weird!

      It would be worth starting a new thread to see if anyone can reproduce and/or explain that before raising a perlbug.


      With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
      Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
      "Science is about questioning the status quo. Questioning authority".
      In the absence of evidence, opinion is indistinguishable from prejudice.

        I apologize and our beloved Perl isn't bugged, of course: when I was running the two versions of the program, mine was faulty because the "binmode OUT" was BEFORE the "open" line ;-( Now all is OK, thank you for your help and patience !

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://931281]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (7)
As of 2024-03-28 11:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found