in reply to Re^2: Perl or my terminal?
in thread Perl or my terminal?

The only difference I see between your original perl version and other languages is that in the latter you loop, while in the former you output each line as one string. Could that be the reason? e.g. 512 byte boundary or such?

What happens if you redirect the output of each version into files? are they different?

--shmem 

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Replies are listed 'Best First'.
Re^4: Perl or my terminal?
by BrowserUk (Patriarch) on Jun 24, 2007 at 08:01 UTC
    ... in the latter you loop, while in the former you output each line as one string. Could that be the reason?

    Yep! You hit the nail on the head. The following C version produces the same weird output: 

    #include <stdlib.h>

int main( int argc, char **argv ) {
    int i;
    char l[1000] = { 0, };
    
    for( i=0; i<99; i++ ) sprintf( &l[ i * 10 ], "%s", "123456789 " );
    printf( "%s\n", l );

    for( i=0; i<99; i++ ) l[ i ] = 0;

    for( i=0; i<125; i++ ) sprintf( &l[ i * 3 ], "%s", "xx\t" );
    printf( "%s\n", l );

    return 0;
}

    [download]

    And, if I redirect any of the correct versions to a file and then use the type command to display them, it results in the groups of 3 behaviour. The terminal driver is screwed.

    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.
[reply]
[d/l]
[select]
Re^4: Perl or my terminal?
by BrowserUk (Patriarch) on Jun 24, 2007 at 07:45 UTC
    What happens if you redirect the output of each version into files? are they different?

    No. They all look identical in an editor. Which only leaves the terminal driver as suspect. Still, it is very bizarre.

    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.
[reply]

In Section Seekers of Perl Wisdom