Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re^6: 3-byte representation

by BrowserUk (Pope)
on Oct 13, 2011 at 15:40 UTC ( #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.


Comment on Re^6: 3-byte representation
Download Code
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
Node Status?
node history
Node Type: note [id://931281]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (3)
As of 2014-07-30 22:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (241 votes), past polls